(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"]
    [(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) (expt 2 bits))))
(define b- (lambda (x y bits) (remainder (- x y) (expt 2 bits))))
(define b* (lambda (x y bits) (remainder (* x y) (expt 2 bits))))
(define b/ (lambda (x y bits) (remainder (exact-floor (/ x y)) (expt 2 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-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-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-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))

; 'dir' is only needed in Racket
(define (blodwen-read-bytevec curdir fname)
  (guard
    (x (#t #f))
    (let* [(h (open-file-input-port fname
                                    (file-options)
                                    (buffer-mode line) #f))
           (vec (get-bytevector-all h))]
      (begin (close-port h)
             vec))))

(define (blodwen-isbytevec v)
(if (bytevector? v)
    0
    -1))

; 'dir' is only needed in Racket
(define (blodwen-write-bytevec curdir fname vec max)
  (guard
    (x (#t -1))
    (let* [(h (open-file-output-port fname (file-options no-fail)
                                     (buffer-mode line) #f))]
      (begin (put-bytevector h vec 0 max)
             (close-port h)
             0))))



;; 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) (condition-wait c m t))
(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)))]))
(define PrimIO-prim__putStr (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_putStr" (string) void) farg-0) (vector 0 )))
(define PrimIO-prim__nullAnyPtr (lambda (farg-0) ((foreign-procedure #f "idris2_isNull" (void*) int) farg-0)))
(define PrimIO-prim__getString (lambda (farg-0) ((foreign-procedure #f "idris2_getString" (void*) string) farg-0)))
(define PrimIO-prim__getStr (lambda (farg-0) ((foreign-procedure #f "idris2_getStr" () string) )))
(define 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 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__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__writeBuffer (lambda (farg-0 farg-1 farg-2 farg-3 farg-4) (blodwen-write-bytevec 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__readBufferFromFile (lambda (farg-0 farg-1 farg-2) (blodwen-read-bytevec farg-0 farg-1)))
(define Buffer-Data-prim__newBuffer (lambda (farg-0 farg-1) (blodwen-new-buffer farg-0)))
(define Buffer-Data-prim__isBuffer (lambda (farg-0) (blodwen-isbytevec 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 Commands-IDEMode-Idris-prim__printfHex (lambda (farg-0 farg-1 farg-2 farg-3) ((foreign-procedure #f "fprintf" (void* string int) void) farg-0 farg-1 farg-2) (vector 0 )))
(define REPL-IDEMode-Idris-prim__fdopen (lambda (farg-0 farg-1 farg-2) ((foreign-procedure #f "fdopen" (int string) void*) farg-0 farg-1)))
(define Data-Socket-Network-idrnet_errno (lambda (farg-0) ((foreign-procedure #f "idrnet_errno" () int) )))
(define FFI-Network-socket_listen (lambda (farg-0 farg-1 farg-2) ((foreign-procedure #f "listen" (int int) int) farg-0 farg-1)))
(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-shl arg-0 arg-1)))
(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-case--33418-10104 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain arg-0 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))
(define Main-case--33408-10092 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Main-quitOpts e-2) eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-1) (Main-stMain e-2 eta-1)) (lambda (err) (lambda (eta-1) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-1))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-1)))) (lambda (res) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn e-5 eta-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0)))))))))
(define Main-case--32099-9861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc1 (Prelude-not (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-0))))) (cond ((equal? sc1 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 arg-19 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-15 (REPL-Idris-loadMainFile arg-4 arg-19 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-displayErrors arg-4 arg-19 arg-5 arg-6 arg-14 e-5) eta-1))))))) eta-0))))))))
(define Main-case--32319-9731 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define Main-case--32622-9464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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) ((0) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-5 e-5) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))))))))
(define Main-case--32478-9397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (REPL-IDEMode-Idris-initIDESocketFile e-2 e-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (let ((act-16 (PrimIO-putStrLn e-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 e-6 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))))))))))))))))
(define Main-case--32397-9277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-15 (REPLOpts-Idris-setOutput arg-14 (vector 0 0 (File-System-stdin) (File-System-stdout)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-replIDE arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))))))) (else (Main-case--32478-9397 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (CommandLine-Idris-ideSocketModeHostPort arg-0)))))))
(define Main-case--32319-9221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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) (Main-case--32397-9277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 (Prelude-not arg-11))) (else (lambda (eta-0) (let ((act-15 (REPL-Idris-repl arg-4 arg-19 arg-5 arg-6 arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-showTimeRecord arg-4 eta-0)))))))))))
(define Main-case--32099-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 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 ((doRepl 0)) (Main-case--32319-9221 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((doRepl 1)) ((Main-case--32319-9731 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 doRepl e-5 e-6 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 6))) e-8))) eta-0))))))))))))))))))
(define Main-case--32099-9068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23) (let ((sc0 arg-23)) (cond ((equal? sc0 0) (lambda (eta-0) (Package-Idris-findIpkg arg-4 arg-14 arg-13 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0)))))))
(define Main-case--32007-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) (let ((sc0 arg-17)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((sc1 (Main-checkVerbose arg-0))) (cond ((equal? sc1 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-getSession arg-4 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((sc5 (Prelude-not (let ((sc6 e-8)) (let ((e-1 (vector-ref sc6 2))) e-1))))) (cond ((equal? sc5 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((_-0 0)) ((Main-case--32099-9068 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 (let ((sc6 e-8)) (let ((e-2 (vector-ref sc6 3))) e-2))) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc8 (Prelude-not (let ((sc9 e-8)) (let ((e-0 (vector-ref sc9 1))) e-0))))) (cond ((equal? sc8 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-6 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc7 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-21 (REPL-Idris-loadMainFile arg-4 e-6 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-11 (vector-ref sc8 1))) ((REPL-Idris-displayErrors arg-4 e-6 arg-5 arg-6 arg-14 e-11) eta-1))))))) eta-0))))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 ((SetOptions-Idris-postOptions arg-4 e-6 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 0)) (let ((sc9 e-12)) (cond ((equal? sc9 0) (let ((doRepl 0)) ((Main-case--32319-9221 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((doRepl 1)) ((Main-case--32319-9731 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 doRepl e-13 e-14 (let ((sc12 e-13)) (let ((e-16 (vector-ref sc12 6))) e-16))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31881-8905 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((Package-Idris-processPackageOpts arg-4 arg-5 arg-14 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-not e-5))) (cond ((equal? sc2 0) (let ((act-16 ((SetOptions-Idris-preOptions arg-4 arg-14 arg-0) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((finish 1)) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 (let ((sc5 (Main-checkVerbose arg-0))) (cond ((equal? sc5 0) (REPLOpts-Idris-setOutput arg-14 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-19 (Main-updateREPLOpts arg-14 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-20 (Context-Core-getSession arg-4 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-21 (let ((sc9 (Prelude-not (let ((sc10 e-10)) (let ((e-1 (vector-ref sc10 2))) e-1))))) (cond ((equal? sc9 0) (REPLCommon-Idris-iputStrLn arg-14 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-22 (let ((_-0 0)) ((Main-case--32099-9068 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 (let ((sc10 e-10)) (let ((e-2 (vector-ref sc10 3))) e-2))) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-23 (let ((sc11 e-12)) (case (vector-ref sc11 0) ((0) (Context-Core-logTime 'erased arg-4 (lambda () "Loading prelude") (let ((sc12 (Prelude-not (let ((sc13 e-10)) (let ((e-0 (vector-ref sc13 1))) e-0))))) (cond ((equal? sc12 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude arg-4 e-8 arg-5 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc11 1))) (Context-Core-logTime 'erased arg-4 (lambda () "Loading main file") (lambda (eta-1) (let ((act-23 (REPL-Idris-loadMainFile arg-4 e-8 arg-5 arg-6 arg-14 e-2 eta-1))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-13 (vector-ref sc12 1))) ((REPL-Idris-displayErrors arg-4 e-8 arg-5 arg-6 arg-14 e-13) eta-1))))))) eta-0))))))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-24 ((SetOptions-Idris-postOptions arg-4 e-8 arg-5 arg-6 arg-14 arg-0) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc12 1))) (let ((_-0 0)) (let ((sc13 e-14)) (cond ((equal? sc13 0) (let ((doRepl 0)) ((Main-case--32319-9221 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl (Prelude-C-124C-124 arg-10 (lambda () arg-11))) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-26 (Context-Core-showTimeRecord arg-4 eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((doRepl 1)) ((Main-case--32319-9731 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 finish e-5 _-0 e-7 e-8 e-9 e-10 e-11 e-12 e-13 doRepl e-15 e-16 (let ((sc16 e-15)) (let ((e-18 (vector-ref sc16 6))) e-18))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))
(define Main-case--31881-8834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1))))))
(define Main-case--31872-8785 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Context-Core-initDefs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((InitPrimitives-Core-addPrimitives e-6) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Context-Core-setWorkingDir e-6 "." eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Main-updateEnv e-6 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc8 ide)) (cond ((equal? sc8 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-22 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 ((Main-showInfo e-6 e-12 arg-0) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 1)) (let ((sc10 e-13)) (cond ((equal? sc10 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-24 ((Package-Idris-processPackageOpts e-6 e-7 e-12 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((sc12 (Prelude-not e-14))) (cond ((equal? sc12 0) (let ((act-25 ((SetOptions-Idris-preOptions e-6 e-12 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((finish 1)) (let ((sc14 e-15)) (cond ((equal? sc14 0) (let ((act-26 (let ((sc15 (Main-checkVerbose arg-0))) (cond ((equal? sc15 0) (REPLOpts-Idris-setOutput e-12 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((act-27 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((act-28 (Main-updateREPLOpts e-12 eta-0))) (let ((sc17 act-28)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc17 1))) (let ((act-29 (Context-Core-getSession e-6 eta-0))) (let ((sc18 act-29)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc18 1))) (let ((act-30 (let ((sc19 (Prelude-not (let ((sc20 e-19)) (let ((e-1 (vector-ref sc20 2))) e-1))))) (cond ((equal? sc19 0) (REPLCommon-Idris-iputStrLn e-12 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc19 act-30)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc19 1))) (let ((act-31 (let ((_-1 0)) ((Main-case--32099-9068 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 (let ((sc20 e-19)) (let ((e-2 (vector-ref sc20 3))) e-2))) eta-0)))) (let ((sc20 act-31)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc20 1))) (let ((act-32 (let ((sc21 e-21)) (case (vector-ref sc21 0) ((0) (Context-Core-logTime 'erased e-6 (lambda () "Loading prelude") (let ((sc22 (Prelude-not (let ((sc23 e-19)) (let ((e-0 (vector-ref sc23 1))) e-0))))) (cond ((equal? sc22 0) (lambda (eta-1) (ProcessIdr-Idris-readPrelude e-6 e-17 e-7 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc21 1))) (Context-Core-logTime 'erased e-6 (lambda () "Loading main file") (lambda (eta-1) (let ((act-32 (REPL-Idris-loadMainFile e-6 e-17 e-7 e-8 e-12 e-2 eta-1))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-3 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-22 (vector-ref sc22 1))) ((REPL-Idris-displayErrors e-6 e-17 e-7 e-8 e-12 e-22) eta-1))))))) eta-0))))))) (let ((sc21 act-32)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc21 1))) (let ((act-33 ((SetOptions-Idris-postOptions e-6 e-17 e-7 e-8 e-12 arg-0) eta-0))) (let ((sc22 act-33)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc22 1))) (let ((_-1 0)) (let ((sc23 e-23)) (cond ((equal? sc23 0) (let ((doRepl 0)) ((Main-case--32319-9221 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-34 (let ((act-34 (IORef-Data-readIORef 'erased e-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-34) eta-0)))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 (Context-Core-showTimeRecord e-6 eta-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((doRepl 1)) ((Main-case--32319-9731 arg-0 arg-1 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 ide ideSocket outmode fname e-12 finish e-14 _-1 e-16 e-17 e-18 e-19 e-20 e-21 e-22 doRepl e-24 e-25 (let ((sc26 e-24)) (let ((e-27 (vector-ref sc26 6))) e-27))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31866-8777 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 ((Main-tryTTM arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 1)) (let ((sc2 e-5)) (cond ((equal? sc2 1) (let ((act-16 (Context-Core-initDefs eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((InitPrimitives-Core-addPrimitives e-7) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (Context-Core-setWorkingDir e-7 "." eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Main-updateEnv e-7 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc10 ide)) (cond ((equal? sc10 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-23 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-24 ((Main-showInfo e-7 e-13 arg-0) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-1 1)) (let ((sc12 e-14)) (cond ((equal? sc12 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-25 ((Package-Idris-processPackageOpts e-7 e-8 e-13 arg-0) eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-15))) (cond ((equal? sc14 0) (let ((act-26 ((SetOptions-Idris-preOptions e-7 e-13 arg-0) eta-0))) (let ((sc15 act-26)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc15 1))) (let ((finish 1)) (let ((sc16 e-16)) (cond ((equal? sc16 0) (let ((act-27 (let ((sc17 (Main-checkVerbose arg-0))) (cond ((equal? sc17 0) (REPLOpts-Idris-setOutput e-13 (vector 1 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc17 act-27)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-28 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Main-updateREPLOpts e-13 eta-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Context-Core-getSession e-7 eta-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (let ((sc21 (Prelude-not (let ((sc22 e-20)) (let ((e-1 (vector-ref sc22 2))) e-1))))) (cond ((equal? sc21 0) (REPLCommon-Idris-iputStrLn e-13 (Main-banner) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((_-2 0)) ((Main-case--32099-9068 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 (let ((sc22 e-20)) (let ((e-2 (vector-ref sc22 3))) e-2))) eta-0)))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((sc23 e-22)) (case (vector-ref sc23 0) ((0) (Context-Core-logTime 'erased e-7 (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-7 e-18 e-8 eta-1))) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0)) (else (let ((e-2 (vector-ref sc23 1))) (Context-Core-logTime 'erased e-7 (lambda () "Loading main file") (lambda (eta-1) (let ((act-33 (REPL-Idris-loadMainFile e-7 e-18 e-8 e-9 e-13 e-2 eta-1))) (let ((sc24 act-33)) (case (vector-ref sc24 0) ((0) (let ((e-3 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-23 (vector-ref sc24 1))) ((REPL-Idris-displayErrors e-7 e-18 e-8 e-9 e-13 e-23) eta-1))))))) eta-0))))))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 ((SetOptions-Idris-postOptions e-7 e-18 e-8 e-9 e-13 arg-0) eta-0))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((_-2 0)) (let ((sc25 e-24)) (cond ((equal? sc25 0) (let ((doRepl 0)) ((Main-case--32319-9221 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) eta-0))) (else (let ((act-35 (let ((act-35 (IORef-Data-readIORef 'erased e-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-35) eta-0)))) (let ((sc26 act-35)) (case (vector-ref sc26 0) ((0) (let ((e-2 (vector-ref sc26 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-25 (vector-ref sc26 1))) (let ((act-36 (Context-Core-showTimeRecord e-7 eta-0))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((doRepl 1)) ((Main-case--32319-9731 arg-0 _-0 _-1 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ide ideSocket outmode fname e-13 finish e-15 _-2 e-17 e-18 e-19 e-20 e-21 e-22 e-23 doRepl e-25 e-26 (let ((sc28 e-25)) (let ((e-28 (vector-ref sc28 6))) e-28))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31718-8660 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-2 e-5 e-6))))))))))
(define Main-case--31700-8637 (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-15 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-7 e-2 e-3 e-1 e-5 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31235-8609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setPrefix arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) eta-0)))))))
(define Main-case--31235-8574 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-4) (Prelude-C-61C-61_Eq__Char arg-4 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31235-8531 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-6) (Prelude-C-61C-61_Eq__Char arg-6 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31235-8480 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (Options-Core-pathSep))) e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31419-8398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Unknown code generator " (Prelude-show_Show__String arg-9))) eta-0)))))))
(define Main-case--31235-8374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((cg (vector 1 e-1))) (Main-case--31419-8398 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 cg (Options-Core-getCG e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Main-case--31235-8299 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-addLibDir arg-0 e-1 eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
(define Main-updateREPLOpts (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (System-getEnv "EDITOR" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (IORef-Data-writeIORef 'erased arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-9 e-2 e-3 e-1 e-8 e-7)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Main-updateEnv (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (System-getEnv "IDRIS2_PREFIX" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (Context-Core-setPrefix arg-0 e-1 ext-0))) (else (Context-Core-setPrefix arg-0 (IdrisPaths-yprefix) ext-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (System-getEnv "IDRIS2_PATH" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addExtraDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (System-getEnv "IDRIS2_DATA" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((sc5 e-9)) (case (vector-ref sc5 0) ((1) (let ((e-1 (vector-ref sc5 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addDataDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (let ((act-21 (System-getEnv "IDRIS2_LIBS" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((e-1 (vector-ref sc7 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-addLibDir arg-0 eta-0 eta-1))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Strings-Data-trim eta-0)) (Strings-Data-split (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 (Options-Core-pathSep))) e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (let ((act-23 (System-getEnv "IDRIS2_CG" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-24 (let ((sc9 e-13)) (case (vector-ref sc9 0) ((1) (let ((e-1 (vector-ref sc9 1))) (let ((cg (vector 1 e-1))) ((Main-case--31419-8398 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-1 cg (Options-Core-getCG e-1)) ext-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) ext-0)))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-26 (SetOptions-Idris-addPkgDir arg-0 "prelude" ext-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-27 (SetOptions-Idris-addPkgDir arg-0 "base" ext-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-28 (Context-Core-addDataDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc13 (let ((sc14 (let ((sc15 e-15)) (let ((e-4 (vector-ref sc15 5))) e-4)))) (let ((e-0 (vector-ref sc14 1))) e-0)))) (let ((e-4 (vector-ref sc13 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "support"))))) ext-0))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-29 (Context-Core-addLibDir arg-0 (Strings-Prelude-C-43C-43 (let ((sc14 (let ((sc15 (let ((sc16 e-15)) (let ((e-4 (vector-ref sc16 5))) e-4)))) (let ((e-0 (vector-ref sc15 1))) e-0)))) (let ((e-4 (vector-ref sc14 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "lib"))))) ext-0))) (let ((sc14 act-29)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-30 (let ((act-30 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-30) ext-0)))) (let ((sc15 act-30)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-20 (vector-ref sc15 1))) (let ((sc16 e-20)) (case (vector-ref sc16 0) ((1) (let ((e-1 (vector-ref sc16 1))) (Context-Core-addLibDir arg-0 e-1 ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Main-tryYaffle (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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) ((17) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Main-Yaffle-yaffleMain e-4 (vector 0 ) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))(else (Main-tryYaffle e-3)))))))))))
(define Main-tryTTM (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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) ((18) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Metadata-Core-dumpTTM e-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))(else (Main-tryTTM e-3)))))))))))
(define Main-stMain (lambda (arg-0 ext-0) (let ((act-15 ((Main-tryYaffle arg-0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 1) (let ((act-16 ((Main-tryTTM arg-0) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 1)) (let ((sc3 e-6)) (cond ((equal? sc3 1) (let ((act-17 (Context-Core-initDefs ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-7 ext-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Idris.Syntax.Syn" ) (Syntax-Idris-initSyntax) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 ((InitPrimitives-Core-addPrimitives e-8) ext-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Context-Core-setWorkingDir e-8 "." ext-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 (Main-updateEnv e-8 ext-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((ide (SetOptions-Idris-ideMode arg-0))) (let ((ideSocket (SetOptions-Idris-ideModeSocket arg-0))) (let ((outmode (let ((sc11 ide)) (cond ((equal? sc11 0) (vector 0 0 (File-System-stdin) (File-System-stdout))) (else (vector 1 1)))))) (let ((fname (Main-findInput arg-0))) (let ((act-24 (Core-Core-newRef 'erased 'erased (vector "Idris.REPLOpts.ROpts" ) (REPLOpts-Idris-defaultOpts fname outmode) ext-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-25 ((Main-showInfo e-8 e-14 arg-0) ext-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc12 1))) (let ((_-1 1)) (let ((sc13 e-15)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((act-26 ((Package-Idris-processPackageOpts e-8 e-9 e-14 arg-0) ext-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc14 1))) (let ((sc15 (Prelude-not e-16))) (cond ((equal? sc15 0) (let ((act-27 ((SetOptions-Idris-preOptions e-8 e-14 arg-0) ext-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc16 1))) (let ((finish 1)) (let ((sc17 e-17)) (cond ((equal? sc17 0) (let ((act-28 (let ((sc18 (Main-checkVerbose arg-0))) (cond ((equal? sc18 0) (REPLOpts-Idris-setOutput e-14 (vector 1 1) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc18 act-28)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-29 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc19 act-29)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-19 (vector-ref sc19 1))) (let ((act-30 (Main-updateREPLOpts e-14 ext-0))) (let ((sc20 act-30)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-20 (vector-ref sc20 1))) (let ((act-31 (Context-Core-getSession e-8 ext-0))) (let ((sc21 act-31)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-21 (vector-ref sc21 1))) (let ((act-32 (let ((sc22 (Prelude-not (let ((sc23 e-21)) (let ((e-1 (vector-ref sc23 2))) e-1))))) (cond ((equal? sc22 0) (REPLCommon-Idris-iputStrLn e-14 (Main-banner) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc22 act-32)) (case (vector-ref sc22 0) ((0) (let ((e-2 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-22 (vector-ref sc22 1))) (let ((act-33 (let ((_-2 0)) ((Main-case--32099-9068 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 (let ((sc23 e-21)) (let ((e-2 (vector-ref sc23 3))) e-2))) ext-0)))) (let ((sc23 act-33)) (case (vector-ref sc23 0) ((0) (let ((e-2 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-23 (vector-ref sc23 1))) (let ((act-34 (let ((sc24 e-23)) (case (vector-ref sc24 0) ((0) (Context-Core-logTime 'erased e-8 (lambda () "Loading prelude") (let ((sc25 (Prelude-not (let ((sc26 e-21)) (let ((e-0 (vector-ref sc26 1))) e-0))))) (cond ((equal? sc25 0) (lambda (eta-0) (ProcessIdr-Idris-readPrelude e-8 e-19 e-9 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))) ext-0)) (else (let ((e-2 (vector-ref sc24 1))) (Context-Core-logTime 'erased e-8 (lambda () "Loading main file") (lambda (eta-0) (let ((act-34 (REPL-Idris-loadMainFile e-8 e-19 e-9 e-10 e-14 e-2 eta-0))) (let ((sc25 act-34)) (case (vector-ref sc25 0) ((0) (let ((e-3 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-24 (vector-ref sc25 1))) ((REPL-Idris-displayErrors e-8 e-19 e-9 e-10 e-14 e-24) eta-0))))))) ext-0))))))) (let ((sc24 act-34)) (case (vector-ref sc24 0) ((0) (let ((e-2 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-24 (vector-ref sc24 1))) (let ((act-35 ((SetOptions-Idris-postOptions e-8 e-19 e-9 e-10 e-14 arg-0) ext-0))) (let ((sc25 act-35)) (case (vector-ref sc25 0) ((0) (let ((e-2 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-25 (vector-ref sc25 1))) (let ((_-2 0)) (let ((sc26 e-25)) (cond ((equal? sc26 0) (let ((doRepl 0)) ((Main-case--32319-9221 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl (Prelude-C-124C-124 ide (lambda () ideSocket))) ext-0))) (else (let ((act-36 (let ((act-36 (IORef-Data-readIORef 'erased e-14 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) ext-0)))) (let ((sc27 act-36)) (case (vector-ref sc27 0) ((0) (let ((e-2 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-26 (vector-ref sc27 1))) (let ((act-37 (Context-Core-showTimeRecord e-8 ext-0))) (let ((sc28 act-37)) (case (vector-ref sc28 0) ((0) (let ((e-2 (vector-ref sc28 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-27 (vector-ref sc28 1))) (let ((doRepl 1)) ((Main-case--32319-9731 arg-0 _-0 _-1 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ide ideSocket outmode fname e-14 finish e-16 _-2 e-18 e-19 e-20 e-21 e-22 e-23 e-24 doRepl e-26 e-27 (let ((sc29 e-26)) (let ((e-29 (vector-ref sc29 6))) e-29))) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define Main-showInfo (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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) ((27) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))(else (Main-showInfo arg-0 arg-1 e-3)))))))))))
(define Main-quitOpts (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased 0 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) ((6) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (CommandLine-Idris-versionMsg) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0)))) ((7) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (CommandLine-Idris-usage) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0)))) ((5) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (IdrisPaths-yprefix) eta-0))) (Prelude-pure_Applicative__IO 'erased 1 eta-0))))(else (Main-quitOpts e-3)))))))))))
(define Main-main (lambda (ext-0) (let ((act-15 (CommandLine-Idris-getCmdOpts ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 ((Main-quitOpts e-2) ext-0))) (let ((sc1 act-16)) (cond ((equal? sc1 0) (Core-Core-coreRun 'erased 'erased (lambda (eta-0) (Main-stMain e-2 eta-0)) (lambda (err) (lambda (eta-0) (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Uncaught error: " (Core-Core-show_Show__Error err)) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (lambda (res) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn e-5 ext-0))) (PrimIO-putStrLn (CommandLine-Idris-usage) ext-0)))))))))
(define Main-findInput (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((14) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Main-findInput e-3)))))))))))
(define Main-checkVerbose (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((10) 0)(else (Main-checkVerbose e-3)))))))))))
(define Main-banner (lambda () (Strings-Prelude-C-43C-43 "     ____    __     _         ___                                           \xa;" (Strings-Prelude-C-43C-43 "    /  _/___/ /____(_)____   |__ \\                                          \xa;" (Strings-Prelude-C-43C-43 "    / // __  / ___/ / ___/   __/ /     Version " (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 0 (Version-Idris-version)) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "  _/ // /_/ / /  / (__  )   / __/      https://www.idris-lang.org           \xa;" (Strings-Prelude-C-43C-43 " /___/\\__,_/_/  /_/____/   /____/      Type :? for help                     \xa;" (Strings-Prelude-C-43C-43 "\xa;" "Welcome to Idris 2.  Enjoy yourself!"))))))))))
(define IdrisPaths-yprefix (lambda () "__PREFIX__"))
(define IdrisPaths-idrisVersion (lambda () (vector 0 (vector 0 0 (vector 0 (+ 1 (+ 1 0)) 0)) "c0d5ff897")))
(define Prelude-case--7925-8703 (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--8150-8632 (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--8085-8569 (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--8150-8632 '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--7923-8508 (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--8085-8569 '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--7957-8441 (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--7922-8390 (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--7957-8441 '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--7708-8177 (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--7688-8150 (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--7708-8177 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0)))))))
(define Prelude-case--7550-7999 (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--7498-7948 (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--6696-7173 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (x) (Prelude-strCons #\\ (Prelude-protectEsc (lambda (eta-0) (Prelude-isDigit eta-0)) (Prelude-show_Show__Int (char->integer arg-0)) x)))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
(define Prelude-case--6549-7151 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (x) (Prelude-strCons #\\ (Strings-Prelude-C-43C-43 e-1 x))))) (else (Prelude-case--6696-7173 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127))))))))
(define Prelude-case--6524-6986 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else "")))))
(define Prelude-case--6268-6799 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--6269-6785 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--6102-6609 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (cast-int-char (Prelude-C-43_Num__Int (char->integer arg-0) 32))) (else arg-0)))))
(define Prelude-case--6087-6595 (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--5955-6482 (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--5953-6472-unpackC-39 arg-0 (Prelude-C-43_Num__Int arg-3 1) arg-2 arg-1)))))))
(define Prelude-case--5893-6426 (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--5740-6300 (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--5060-5689 (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--5065-5580 (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--5066-5552 (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--3723-4037 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--3724-4023 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--3638-3924 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1)))))))
(define Prelude-case--2620-2779 (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 2620(2779) at Prelude.idr:429:3--435:1"))))))
(define Prelude-case--2619-2760 (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 2619(2760) at Prelude.idr:426:3--429:3"))))))
(define Prelude-case--2593-2730 (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--2512-2665 (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 2512(2665) at Prelude.idr:394:3--401:1"))))))
(define Prelude-case--2511-2646 (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 2511(2646) at Prelude.idr:391:3--394:3"))))))
(define Prelude-case--2485-2616 (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--1878-2277 (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--1883-2152 (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--1884-2110 (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--1703-1876 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
(define Prelude-case--1638-1859 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1703-1876 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0)))))))
(define Prelude-case--1643-1842 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1644-1828 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1465-1662 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
(define Prelude-case--1400-1645 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1465-1662 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0)))))))
(define Prelude-case--1405-1628 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1406-1614 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1346-1555 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
(define Prelude-case--1281-1538 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1346-1555 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0)))))))
(define Prelude-case--1286-1521 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1287-1507 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-n--5953-6472-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--5955-6482 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2))))
(define Prelude-n--6954-7416-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--6954-7416-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--6117-6621-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--6549-7031-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--6549-7031-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 )))))))))))
(define Prelude-n--6549-7030-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--6954-7416-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--7688-8150 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--7922-8390 '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--7925-8703 '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--7923-8508 '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--2512-2665 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 (Prelude-fromInteger_Num__Integer 0)))))
(define Prelude-mod_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--2620-2779 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 (Prelude-fromInteger_Num__Int 0)))))
(define Prelude-min_Ord__String (lambda (arg-0 arg-1) (Prelude-case--1644-1828 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--6269-6785 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--3724-4023 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--1406-1614 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--1287-1507 arg-1 arg-0 (Prelude-C-60_Ord__Int 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--1884-2110 '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--5066-5552 '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--1643-1842 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--6268-6799 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--3723-4037 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--1405-1628 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--1286-1521 arg-1 arg-0 (Prelude-C-62_Ord__Int 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--1883-2152 '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--5065-5580 '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-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--2511-2646 arg-1 arg-0 (Prelude-C-61C-61_Eq__Integer arg-1 (Prelude-fromInteger_Num__Integer 0)))))
(define Prelude-div_Integral__Int (lambda (arg-0 arg-1) (Prelude-case--2619-2760 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int arg-1 (Prelude-fromInteger_Num__Int 0)))))
(define Prelude-compare_Ord__String (lambda (arg-0 arg-1) (Prelude-case--1638-1859 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--1400-1645 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--1281-1538 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-0 arg-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--1878-2277 '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--5060-5689 '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) (Prelude-fromInteger_Num__Int 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--2485-2616 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-fromInteger_Num__Integer 0)))))
(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--2593-2730 arg-0 (Prelude-C-60_Ord__Int arg-0 (Prelude-fromInteger_Num__Int 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-2914) (Prelude-map_Functor__List 'erased 'erased func arg-2914))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List '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-3799) (lambda (arg-3801) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-3799 arg-3801))))))))))
(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-8035) (lambda (arg-8036) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8035 arg-8036))) (lambda (arg-8037) (lambda (arg-8038) (lambda (arg-8039) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8037 arg-8038 arg-8039)))) (lambda (arg-8040) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8040)) (lambda (arg-8041) (lambda (arg-8042) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8041 arg-8042))))))
(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897))))))
(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Prec arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Prec arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Prec arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Prec arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Prec arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Prec arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Prec arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Prec arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Prec arg-896 arg-897))))))
(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Nat arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Nat arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Nat arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Nat arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Nat arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Nat arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Nat arg-896 arg-897))))))
(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Integer arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Integer arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Integer arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Integer arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Integer arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Integer arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Integer arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Integer arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Integer arg-896 arg-897))))))
(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897))))))
(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-621) (lambda (arg-622) (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-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (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-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (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-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (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-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (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-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (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-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (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-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (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-896 arg-897))))))
(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (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-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-896 arg-897))))))
(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Nat arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Nat arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Nat arg-2342)))))
(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Integer arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Integer arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Integer arg-2342)))))
(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342)))))
(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Integer arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Integer arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Integer arg-2342))) (lambda (arg-2392) (Prelude-negate_Neg__Integer arg-2392)) (lambda (arg-2393) (lambda (arg-2394) (Prelude-C-45_Neg__Integer arg-2393 arg-2394))))))
(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342))) (lambda (arg-2392) (Prelude-negate_Neg__Int arg-2392)) (lambda (arg-2393) (lambda (arg-2394) (Prelude-C-45_Neg__Int arg-2393 arg-2394))))))
(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String))))
(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2914) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__Maybe 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Prelude-join_Monad__Maybe 'erased arg-3146))))))
(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-2914) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-2914 eta-0)))))) (lambda (a) (lambda (arg-2981) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased arg-2981 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (lambda (eta-0) (Prelude-C-60C-42C-62_Applicative__IO 'erased 'erased arg-2982 arg-2984 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (lambda (eta-0) (let ((act-15 (arg-3143 eta-0))) ((arg-3144 act-15) eta-0))))))) (lambda (a) (lambda (arg-3146) (lambda (eta-0) (let ((act-20 (arg-3146 eta-0))) (act-20 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-2914) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3146))))))
(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Integer arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Integer arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Integer arg-2342))) (lambda (arg-2519) (lambda (arg-2520) (Prelude-div_Integral__Integer arg-2519 arg-2520))) (lambda (arg-2521) (lambda (arg-2522) (Prelude-mod_Integral__Integer arg-2521 arg-2522))))))
(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342))) (lambda (arg-2519) (lambda (arg-2520) (Prelude-div_Integral__Int arg-2519 arg-2520))) (lambda (arg-2521) (lambda (arg-2522) (Prelude-mod_Integral__Int arg-2521 arg-2522))))))
(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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased ext-2 ext-3)))
(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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624))))))
(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Prec arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Prec arg-623 arg-624))))))
(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Ordering arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Ordering arg-623 arg-624))))))
(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624))))))
(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Integer arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Integer arg-623 arg-624))))))
(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624))))))
(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624))))))
(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Bool arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Bool arg-623 arg-624))))))
(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-621) (lambda (arg-622) (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-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-623 arg-624))))))
(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-623 arg-624))))))
(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-623 arg-624))))))
(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-2914) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__Maybe 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2982 arg-2984))))))))
(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-2914) (Prelude-map_Functor__List 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__List 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-2982 arg-2984))))))))
(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-2914) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-2914 eta-0)))))) (lambda (a) (lambda (arg-2981) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased arg-2981 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (lambda (eta-0) (Prelude-C-60C-42C-62_Applicative__IO 'erased 'erased arg-2982 arg-2984 eta-0)))))))))
(define Prelude-__Impl_Applicative_C-40EitherC-32C-36eC-41 (lambda (arg-0) (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-2914) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-2982 arg-2984))))))))
(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__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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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__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__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__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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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--5953-6472-unpackC-39 arg-0 0 (Prelude-length arg-0) arg-0)))
(define Prelude-uncurry (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) ((arg-3 e-2) e-3))))))
(define Prelude-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--6087-6595 arg-0 (Prelude-isLower arg-0))))
(define Prelude-toLower (lambda (arg-0) (Prelude-case--6102-6609 arg-0 (Prelude-isUpper arg-0))))
(define Prelude-the (lambda (arg-0 arg-1) arg-1))
(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--7498-7948 '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--7550-7999 '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--5893-6426 arg-2 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-0 (Prelude-length arg-2)))))
(define Prelude-strCons (lambda (ext-0 ext-1) (string-cons ext-0 ext-1)))
(define Prelude-sqrt (lambda (arg-0) (sqrt arg-0)))
(define Prelude-sin (lambda (arg-0) (sin arg-0)))
(define Prelude-showPrec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
(define Prelude-showParens (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 1) arg-1) (else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-1 ")")))))))
(define Prelude-showLitString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) eta-0)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (cond ((equal? sc1 #\") (lambda (x) (Strings-Prelude-C-43C-43 "\\\"" ((Prelude-showLitString e-3) x))))(else (lambda (x) ((Prelude-showLitChar e-2) ((Prelude-showLitString e-3) x)))))))))))))
(define Prelude-showLitChar (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 (integer->char 7)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\a" arg-1))) ((equal? sc0 (integer->char 8)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\b" arg-1))) ((equal? sc0 (integer->char 12)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\f" arg-1))) ((equal? sc0 (integer->char 10)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\n" arg-1))) ((equal? sc0 (integer->char 13)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\r" arg-1))) ((equal? sc0 (integer->char 9)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\t" arg-1))) ((equal? sc0 (integer->char 11)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\v" arg-1))) ((equal? sc0 (integer->char 14)) (lambda (eta-0) (Prelude-protectEsc (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\H)) "\\SO" eta-0))) ((equal? sc0 (integer->char 127)) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\DEL" arg-1))) ((equal? sc0 #\\) (lambda (arg-1) (Strings-Prelude-C-43C-43 "\\\\" arg-1)))(else (Prelude-case--6549-7151 arg-0 (Prelude-n--6549-7031-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--6549-7030-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-shl ext-0 ext-1)))
(define Prelude-reverse (lambda (ext-0) (string-reverse ext-0)))
(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-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--6524-6986 arg-2 arg-1 arg-0 (Prelude-firstCharIs arg-0 arg-2)) arg-2))))
(define Prelude-printLn (lambda (arg-0 arg-1 arg-2 ext-0) (PrimIO-putStrLn (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (e-1 arg-2))) ext-0)))
(define Prelude-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-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))) (Prelude-C-43_Num__Integer (Prelude-fromInteger_Num__Integer 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-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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624)))) (Prelude-toUpper arg-0) (Prelude-n--6117-6621-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--3638-3924 arg-0 (let ((sc0 (or (and (<= arg-0 0) 1) 0))) (cond ((equal? sc0 0) 1)(else 0))))))
(define Prelude-intToBool (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-id (lambda (arg-0 arg-1) arg-1))
(define Prelude-fromInteger (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (e-3 arg-2))))))
(define Prelude-foldr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-1 'erased) 'erased) arg-4) arg-5) arg-6))))))))
(define Prelude-foldl (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-4) (lambda (arg-5) (lambda (arg-6) (((((e-2 'erased) 'erased) arg-4) arg-5) arg-6))))))))
(define Prelude-floor (lambda (arg-0) (floor arg-0)))
(define Prelude-flip (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((arg-3 arg-5) arg-4)))
(define Prelude-firstCharIs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") 1)(else (arg-0 (string-ref arg-1 0)))))))
(define Prelude-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--5740-6300 '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-2338) (lambda (arg-2339) (Prelude-C-43_Num__Integer arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Integer arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Integer arg-2342)))))
(define Prelude-countFrom (lambda (arg-0 arg-1 arg-2) (vector 0 arg-1 (lambda () (Prelude-countFrom 'erased (arg-2 arg-1) arg-2)))))
(define Prelude-cos (lambda (arg-0) (cos arg-0)))
(define Prelude-const (lambda (arg-0 arg-1 arg-2 ext-0) arg-2))
(define Prelude-concatMap (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 (Builtin-fst 'erased 'erased arg-3))) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-5) (((((e-1 'erased) 'erased) (lambda (x) (lambda (arg-6) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-4 (vector-ref sc1 1))) ((e-4 (arg-4 x)) arg-6)))))) (let ((sc1 (Builtin-snd 'erased 'erased arg-3))) (let ((e-3 (vector-ref sc1 2))) e-3))) arg-5))))))
(define Prelude-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-46 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (arg-3 (arg-4 ext-0))))
(define Prelude-C-45 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-2) (lambda (arg-3) ((e-3 arg-2) arg-3)))))))
(define Strings-Prelude-C-43C-43 (lambda (arg-0 arg-1) (string-append arg-0 arg-1)))
(define List-Prelude-C-43C-43 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (List-Prelude-C-43C-43 'erased e-3 arg-2)))))))))
(define Prelude-C-43 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (lambda (arg-2) (lambda (arg-3) ((e-1 arg-2) arg-3)))))))
(define Prelude-C-42 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (lambda (arg-3) ((e-2 arg-2) arg-3)))))))
(define Prelude-C-38C-38 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else 1)))))
(define PrimIO-case--342-427 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3)))
(define PrimIO-case--200-329 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6)))
(define PrimIO-case--183-307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--200-329 '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--342-427 'erased arg-1 'erased (arg-1 w))))))
(define PrimIO-unsafeDestroyWorld (lambda (arg-0 arg-1 arg-2) arg-2))
(define PrimIO-unsafeCreateWorld (lambda (arg-0 arg-1) (arg-1 #f)))
(define PrimIO-schemeCall (lambda (arg-0 arg-1 arg-2 ext-0) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
(define PrimIO-putStrLn (lambda (arg-0 ext-0) (PrimIO-putStr (string-append arg-0 "\xa;") ext-0)))
(define PrimIO-putStr (lambda (arg-0 ext-0) (PrimIO-prim__putStr arg-0 ext-0)))
(define PrimIO-prim__schemeCall (lambda (arg-0 arg-1 arg-2 arg-3) (apply (eval (string->symbol arg-1)) (blodwen-read-args arg-2))))
(define PrimIO-prim__nullPtr (lambda (arg-0 arg-1) (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased arg-1))))
(define PrimIO-prim__forgetPtr (lambda (arg-0 ext-0) (Builtin-believe_me 'erased 'erased ext-0)))
(define PrimIO-primIO (lambda (arg-0 arg-1) arg-1))
(define PrimIO-io_pure (lambda (arg-0 arg-1 ext-0) arg-1))
(define PrimIO-io_bind (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (PrimIO-case--183-307 'erased 'erased 'erased arg-3 'erased (arg-2 ext-0))))
(define PrimIO-getLine (lambda (ext-0) (PrimIO-prim__getStr 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 Main-Yaffle-case--24345-5649 (lambda (arg-0 arg-1 arg-2 arg-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-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (cond ((equal? sc1 ".ttc") (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "Processing as TTC" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1256 eta-1)))) arg-3 arg-5 (FC-Core-emptyFC) 0 arg-1 (vector 0 ) (vector 0 ) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (PrimIO-putStrLn "Read TTC" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "Processing as TTImp" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (let ((act-17 (Directory-Core-makeBuildDirectory arg-3 (Directory-Core-pathToNS (let ((sc4 arg-6)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-6)) (let ((e-1 (vector-ref sc4 2))) e-1)) arg-1) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (let ((act-18 (Directory-Core-getTTCFileName arg-3 arg-1 ".ttc" eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4572 arg-4573 eta-1)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4574 arg-4575 eta-1))))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1256 eta-1))))) arg-3 arg-5 (vector 0 ) e-8 eta-0)))))))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (PrimIO-putStrLn "Written TTC" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "Processing as TTImp" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (ProcessDecls-TTImp-processTTImpFile arg-3 arg-4 arg-5 arg-1 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((act-17 (Directory-Core-makeBuildDirectory arg-3 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (Directory-Core-getTTCFileName arg-3 arg-1 ".ttc" eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4572 arg-4573 eta-1)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4574 arg-4575 eta-1))))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1256 eta-1))))) arg-3 arg-5 (vector 0 ) e-8 eta-0)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (PrimIO-putStrLn "Written TTC" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))
(define Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))
(define Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))
(define Main-Yaffle-__Impl_HasNames_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4572 arg-4573 eta-0)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-4574 arg-4575 eta-0)))))))
(define Main-Yaffle-yaffleMain (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-initDefs ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Ctxt" ) e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-getDirs e-6 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 ((Main-Yaffle-processArgs arg-1) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Context-Core-setLogTimings e-6 e-10 ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((InitPrimitives-Core-addPrimitives e-6) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 ((Main-Yaffle-case--24345-5649 arg-1 arg-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\.)) arg-0)) ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased e-8 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Main-Yaffle-usage) eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define System-case--2051-1659 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (PrimIO-prim__getString arg-1)) eta-0)))))))
(define System-system (lambda (arg-0 ext-0) (System-prim_system arg-0 ext-0)))
(define System-getEnv (lambda (arg-0 ext-0) (let ((act-15 (System-prim_getEnv arg-0 ext-0))) ((System-case--2051-1659 arg-0 act-15 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-15)) (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define System-getArgs (lambda (ext-0) (System-prim__getArgs ext-0)))
(define System-exitWith (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit 0 eta-0)))) (else (let ((e-0 (vector-ref sc0 1))) (Builtin-believe_me 'erased 'erased (lambda (eta-0) (System-prim_exit e-0 eta-0)))))))))
(define Strings-Data-with--2279-830 (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--2281-860 '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--2281-860 '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--2281-860 (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--2222-795 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-parseNumWithoutSign arg-1 (Prelude-C-43_Num__Integer (Prelude-C-42_Num__Integer 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--2135-690 (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--2093-645 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--2091-635-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2))))))
(define Strings-Data-case--2024-583 (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--2016-569 (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--1955-509 (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--1950-496 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1955-509 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1)))))))
(define Strings-Data-n--1937-480-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--1937-480-toFArgs arg-0 e-3)))))))))
(define Strings-Data-n--2272-828-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2279-830 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3))))
(define Strings-Data-n--2091-635-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--2093-645 arg-0 e-2 e-3 (Prelude-isSpace e-2)))))))))
(define Strings-Data-n--1990-531-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--1950-496 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--1990-531-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--2135-690 arg-1 arg-0 (List-Data-span 'erased arg-0 (Prelude-unpack arg-1)))))
(define Strings-Data-parsePositive (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2272-828-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--2222-795 e-2 e-3 arg-1 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char e-2 #\0) (lambda () (Prelude-C-60C-61_Ord__Char e-2 #\9)))))))))))
(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--2091-635-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--2016-569 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624)))) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624)))) (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--1937-480-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--4430-3248 (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--4430-3190 (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--4356-3167 (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--4430-3190 '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--4430-3248 '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--3816-2581 (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--3707-2514 (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--3603-2367 (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--3344-2102 (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--2404-1222 (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--2321-1148 (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--2295-1128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2321-1148 '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--2187-1009 (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--2122-926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2118-908-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2118-908-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2)))))))
(define List-Data-case--2052-863 (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--1946-762 (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--1915-738 (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--1946-762 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2))))))))
(define List-Data-case--1859-671 (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--1804-617 (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--3943-2690-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--3943-2690-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--3943-2690-spreadHeads 'erased arg-1 arg-2 e-3 e-7))))))))))))))
(define List-Data-n--3707-2464-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--3707-2464-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--3707-2465-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3707-2464-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0))))
(define List-Data-n--2118-908-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--2122-926 '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--4356-3167 'erased arg-1 e-2 e-10 ((arg-1 e-2) e-10) e-3 e-11)))))))))))))
(define List-Data-__Impl_DecEq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-decEq_DecEq__C-40ListC-32C-36aC-41 'erased arg-1 ext-0 ext-1)))
(define List-Data-zipWith (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (vector 1 ((arg-3 e-1) e-4) (List-Data-zipWith 'erased 'erased 'erased arg-3 e-2 e-5))))))))))))))))
(define List-Data-zip (lambda (arg-0 arg-1 ext-0 ext-1) (List-Data-zipWith 'erased 'erased 'erased (lambda (x) (lambda (y) (vector 0 x y))) ext-0 ext-1)))
(define List-Data-unionBy (lambda (arg-0 arg-1 arg-2 arg-3) (List-Prelude-C-43C-43 'erased arg-2 (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (List-Data-deleteBy 'erased arg-1 eta-2 eta-3))) eta-0 eta-1))) (List-Data-nubBy 'erased arg-1 arg-3) arg-2))))
(define List-Data-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--3943-2690-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-split (lambda (arg-0 arg-1 arg-2) (List-Data-case--2404-1222 '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--2295-1128 '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--3707-2514 'erased arg-2 arg-1 (List-Data-n--3707-2465-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3707-2514 'erased arg-2 arg-1 (List-Data-n--3707-2465-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-nubBy (lambda (arg-0 ext-0 ext-1) (List-Data-n--2118-908-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--3603-2367 '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--3344-2102 '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--1946-762 '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-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--3816-2581 '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-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--1859-671 '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--2052-863 '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--1804-617 '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--2187-1009 'erased arg-2 e-2 e-3 arg-1 ((arg-1 arg-2) e-2)))))))))
(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--1973-2030 (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--1973-1952 (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--1937-1923 (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--1973-1952 '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--1973-2030 '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--2709-2665 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2709-2629-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2709-2630-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-case--2642-2602 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2642-2566-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2642-2567-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-case--2575-2539 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2575-2503-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2575-2504-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-case--2508-2476 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2508-2440-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2508-2441-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-n--2709-2630-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--2642-2567-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--2575-2504-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--2508-2441-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--2709-2629-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
(define Equality-Decidable-n--2642-2566-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
(define Equality-Decidable-n--2575-2503-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
(define Equality-Decidable-n--2508-2440-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--2709-2665 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--2642-2602 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--2508-2476 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--2575-2539 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--1937-1923 '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-case--1291-341 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (lambda (eta-0) (e-1 (Nat-Data-fromLteSucc 'erased 'erased eta-0)))))) (else (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 1 e-3))))))))
(define Nat-Data-succNotLTEzero (lambda (arg-1 arg-0) (blodwen-error-quit "No clauses")))
(define Nat-Data-pred (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-0 1))) e-0))))))
(define Nat-Data-plusZeroRightNeutral (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 ))))))
(define Nat-Data-plusSuccRightSucc (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 ))(else (vector 0 ))))))
(define Nat-Data-isLTE (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 (vector 0 )))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (lambda (eta-0) (Nat-Data-succNotLTEzero 'erased eta-0))))(else (let ((e-1 (- arg-1 1))) (Nat-Data-case--1291-341 e-0 e-1 (Nat-Data-isLTE e-0 e-1))))))))))))
(define Nat-Data-fromLteSucc (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) e-2))))
(define 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--24754-8149 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define REPL-Yaffle-case--24733-8099 (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-15 (let ((act-15 (Prelude-printLn 'erased (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d x-0)))) x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x-0) (Source-Lexer-Parser-show_Show__Token x-0)) (lambda (d-0) (lambda (x-0) (Source-Lexer-Parser-showPrec_Show__Token d-0 x-0)))) d x)))) e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (REPL-Yaffle-processCatch arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))
(define REPL-Yaffle-case--23580-7961 (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-15 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Termination-Core-checkTotal arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-16 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-6))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-5)) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))
(define REPL-Yaffle-case--24433-7863 (lambda (arg-0 arg-1 arg-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--24377-7799 (lambda (arg-0 arg-1 arg-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-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ":\xa;" (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-10) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) arg-10)) e-0)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) (Strings-Prelude-C-43C-43 ": Calls non covering function" (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-3)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-1)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))(else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-7) ": All cases covered") eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define REPL-Yaffle-case--23580-7748 (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-15 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Context-Core-getTotality arg-3 (FC-Core-emptyFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-5)) ((REPL-Yaffle-case--24377-7799 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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))
(define REPL-Yaffle-case--24146-7590 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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-15 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define REPL-Yaffle-case--24094-7537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-16 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-6) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))))) (else (let ((act-16 (PrimIO-putStrLn "Failed" eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1))))))))))) (lambda (err) (lambda (eta-1) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name arg-9)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1)))) eta-0)))(else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Already defined" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define REPL-Yaffle-case--23580-7490 (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-15 (let ((act-15 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-17 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-11) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1)))))) (else (let ((act-17 (PrimIO-putStrLn "Failed" eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1))))))))))) (lambda (err) (lambda (eta-1) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-9)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))) eta-0))(else (let ((act-16 (PrimIO-putStrLn "Already defined" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))) (else (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))
(define REPL-Yaffle-case--23580-7354 (lambda (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-15 (ExprSearch-Interactive-TTImp-exprSearch arg-3 arg-2 arg-1 (FC-Core-toplevelFC) e-6 (vector 0 ) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-17 ((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-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-18 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) d eta-1))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-19 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x)))) e-12 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 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))))))(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--23580-7224 (lambda (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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-17 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-5 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 (let ((act-18 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-9 eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-19 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0))))))))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 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)))))))(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--23580-7157 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0))))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))))))))))))))))
(define REPL-Yaffle-case--23580-7016 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normalise (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 ((Unelab-TTImp-unelab (vector 0 ) arg-3 (vector 0 ) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0))))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))))))))))
(define REPL-Yaffle-n--23580-7068-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-7 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((Unelab-TTImp-unelab (vector 0 ) arg-4 (vector 0 ) e-8) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-9))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))))))))))))))))))))))))
(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-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " ==>\xa;" (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 (Context-Core-show_Show__Def (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "\x9;" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__SCCall x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SCCall d x)))) (let ((sc2 e-7)) (let ((e-20 (vector-ref sc2 21))) e-20))) "\xa;"))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))))
(define REPL-Yaffle-repl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (PrimIO-putStr "Yaffle> " ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (PrimIO-getLine ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((REPL-Yaffle-case--24733-8099 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-15 (let ((act-15 (PrimIO-putStrLn (Core-Core-show_Show__Error err) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-normalise (vector 0 ) e-6 (vector 0 ) e-2 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-7) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0))))))))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-lookupTyName e-10 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (REPL-Yaffle-n--23580-7068-printName e-9 e-10 arg-2 arg-1 arg-0 eta-1)) e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-3 (vector-ref sc2 2))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-6 (vector 0 ) e-7 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 ((Unelab-TTImp-unelab (vector 0 ) arg-0 (vector 0 ) e-8) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Prelude-printLn 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) e-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0))))))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-17 (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-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-19 (Normalise-Core-normaliseHoles (vector 0 ) e-12 (vector 0 ) e-9 eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-20 (let ((act-20 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-13 eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-21 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d x)))) e-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0))))))))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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)))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-1 arg-2 (FC-Core-toplevelFC) e-8 (vector 0 ) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-20 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-1) (let ((act-20 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) d eta-1))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-21 (Prelude-printLn 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) x)) (lambda (d-0) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 (vector 0 ) d-0 x)))) e-14 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1))))))))) e-13) eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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)))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-findTyDeclAt arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-4 p))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 (Context-Core-lookupDefExact e-11 (let ((sc7 e-6)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (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-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-19 (PrimIO-putStrLn (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__ImpClause x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpClause d x)))) e-16) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1)))))) (else (let ((act-19 (PrimIO-putStrLn "Failed" eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1))))))))))) (lambda (err) (lambda (eta-1) (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find a definition for " (Name-Core-show_Show__Name e-11)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) eta-0))(else (let ((act-18 (PrimIO-putStrLn "Already defined" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0))))))) (else (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))))))))))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))) (else (let ((act-17 (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-5)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))))))))))))) ((5) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc3 1))) (let ((bind-0 e-7)) ((REPL-Yaffle-case--24377-7799 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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))))))))))) ((6) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Core-Core-traverse_ 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Termination-Core-checkTotal arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (Context-Core-getTotality arg-0 (FC-Core-emptyFC) fn eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-19 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name fn) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-9))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1))))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))))))))))) ((7) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Context-Core-lookupCtxtName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "Bye for now!" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))
(define Source-Parser-case--5318-359 (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) (Prelude-pure_Applicative__IO 'erased (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-2) e-2 arg-1) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 e-5)) eta-0))))))))
(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-15 (File-System-readFile arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Source-Parser-runParser 'erased 0 (Unlit-Parser-isLitFile arg-1) e-2 arg-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 e-5)) ext-0))))))))
(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--2973-2508 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
(define File-System-case--2793-2348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (File-System-closeFile arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (File-System-closeFile arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0)))))))))
(define File-System-case--2781-2330 (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-15 (File-System-fPutStr e-2 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (let ((act-16 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))))))))
(define File-System-case--2706-2268 (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-15 (File-System-closeFile arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (Strings-Data-fastAppend e-2)) eta-0))))) (else (lambda (eta-0) (let ((act-15 (File-System-closeFile arg-1 eta-0))) (File-System-returnError 'erased eta-0))))))))
(define File-System-case--2618-2249 (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-15 (File-System-n--2618-2171-read arg-0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-16 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (Strings-Data-fastAppend e-3)) eta-0)))) (else (let ((act-16 (File-System-closeFile e-2 eta-0))) (File-System-returnError 'erased eta-0))))))))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
(define File-System-case--2630-2212 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (File-System-n--2618-2171-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0)))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
(define File-System-case--2620-2182 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (List-Data-reverse 'erased arg-2)) eta-0))) (else (lambda (eta-0) (let ((act-15 (File-System-fGetLine arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (File-System-n--2618-2171-read arg-0 (vector 1 e-2 arg-2) arg-1 eta-0))) (else (File-System-returnError 'erased eta-0)))))))))))
(define File-System-case--2537-2108 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
(define File-System-case--2473-2048 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-ok 'erased arg-1 eta-0))) (else (lambda (eta-0) (File-System-returnError 'erased eta-0)))))))
(define File-System-case--2366-1949 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (vector 0 ) eta-0)))))))
(define File-System-case--2320-1911 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (Prelude-cast_Cast__Int_Char arg-1) eta-0)))))))
(define File-System-case--2248-1837 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased (PrimIO-prim__getString arg-1) eta-0)))))))
(define File-System-case--2187-1779 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (File-System-returnError 'erased eta-0))) (else (lambda (eta-0) (File-System-ok 'erased arg-2 eta-0)))))))
(define File-System-case--2060-1658 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 3 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 4 )) eta-0))) ((equal? sc0 4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 5 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-1 5))) eta-0)))))))
(define File-System-n--2618-2171-read (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (File-System-fEOF arg-2 ext-0))) (let ((sc0 act-15)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__IO 'erased (vector 1 (List-Data-reverse 'erased arg-1)) ext-0)) (else (let ((act-16 (File-System-fGetLine arg-2 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (File-System-n--2618-2171-read arg-0 (vector 1 e-2 arg-1) arg-2 ext-0))) (else (File-System-returnError 'erased ext-0)))))))))))
(define File-System-show_Show__FileError (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (Prelude-show_Show__Int e-0)))) ((1) "File Read Error") ((2) "File Write Error") ((3) "File Not Found") ((4) "Permission Denied") (else "File Exists")))))
(define File-System-showPrec_Show__FileError (lambda (arg-0 arg-1) (File-System-show_Show__FileError arg-1)))
(define File-System-__Impl_Show_FileError (lambda () (vector 0 (lambda (x) (File-System-show_Show__FileError x)) (lambda (d) (lambda (x) (File-System-showPrec_Show__FileError d x))))))
(define File-System-writeFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (File-System-openFile arg-0 (vector 1 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (File-System-fPutStr e-2 arg-1 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((sc2 e-3)) (let ((act-17 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) ext-0))))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-17 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) ext-0))))))))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) ext-0))))))))
(define File-System-stdout (lambda () (File-System-prim__stdout)))
(define File-System-stdin (lambda () (File-System-prim__stdin)))
(define File-System-returnError (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim_fileErrno ext-0))) (let ((sc0 act-15)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) ext-0)) ((equal? sc0 1) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 )) ext-0)) ((equal? sc0 2) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 3 )) ext-0)) ((equal? sc0 3) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 4 )) ext-0)) ((equal? sc0 4) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 5 )) ext-0))(else (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 0 (Prelude-C-45_Neg__Int act-15 5))) ext-0)))))))
(define File-System-removeFile (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__removeFile arg-0 ext-0))) ((File-System-case--2537-2108 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define File-System-readFile (lambda (arg-0 ext-0) (let ((act-15 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (File-System-n--2618-2171-read arg-0 (vector 0 ) e-2 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((act-17 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (Strings-Data-fastAppend e-3)) ext-0)))) (else (let ((act-17 (File-System-closeFile e-2 ext-0))) (File-System-returnError 'erased ext-0)))))))) (else (File-System-returnError 'erased ext-0)))))))
(define File-System-openFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (File-System-prim__open arg-0 (File-System-modeStr arg-1) 0 ext-0))) ((File-System-case--2187-1779 arg-1 arg-0 act-15 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr act-15) (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define File-System-ok (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-1) ext-0)))
(define File-System-modeStr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "r") ((1) "w") ((2) "a") ((3) "r+") ((4) "w+") (else "a+")))))
(define File-System-fileModifiedTime (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__fileModifiedTime arg-0 ext-0))) ((File-System-case--2473-2048 arg-0 act-15 (Prelude-C-62_Ord__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define File-System-fileError (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim_error arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0)) ext-0))))
(define File-System-fflush (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__flush arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0))))
(define File-System-fPutStr (lambda (arg-0 arg-1 ext-0) (let ((act-15 (File-System-prim__writeLine arg-0 arg-1 ext-0))) ((File-System-case--2366-1949 arg-0 arg-1 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define File-System-fGetLine (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__readLine arg-0 ext-0))) ((File-System-case--2248-1837 arg-0 act-15 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-15)) (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define File-System-fGetChar (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__readChar arg-0 ext-0))) (let ((act-16 (File-System-prim_error arg-0 ext-0))) ((File-System-case--2320-1911 arg-0 act-15 act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 0))) ext-0)))))
(define File-System-fEOF (lambda (arg-0 ext-0) (let ((act-15 (File-System-prim__eof arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0)) ext-0))))
(define File-System-closeFile (lambda (arg-0 ext-0) (File-System-prim__close arg-0 ext-0)))
(define File-System-chmodRaw (lambda (arg-0 arg-1 ext-0) (let ((act-15 (File-System-prim__chmod arg-0 arg-1 ext-0))) ((File-System-case--2973-2508 arg-1 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define Unlit-Parser-case--2586-426 (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--2562-401 (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--2586-426 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--2586-426 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0)))))))
(define Unlit-Parser-case--2558-380 (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--2562-401 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--2562-401 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0)))))))
(define Unlit-Parser-case--2528-364 (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--2498-321-isStyle arg-0 (Unlit-Parser-styleCMark)))))))
(define Unlit-Parser-case--2498-349 (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--2528-364 arg-0 (Unlit-Parser-n--2498-321-isStyle arg-0 (Unlit-Parser-styleOrg))))))))
(define Unlit-Parser-case--2501-332 (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--2498-321-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--2501-332 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--2498-320-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
(define Unlit-Parser-n--2498-320-hasSuffix (lambda (arg-0 arg-1) (Strings-Data-isSuffixOf arg-1 arg-0)))
(define Unlit-Parser-unlit (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 arg-1)) (else (let ((e-2 (vector-ref sc0 1))) (Literate-Text-unlit e-2 arg-1)))))))
(define Unlit-Parser-styleOrg (lambda () (vector 0 (vector 1 (vector 0 "#+BEGIN_SRC idris" "#+END_SRC") (vector 1 (vector 0 "#+begin_src idris" "#+end_src") (vector 1 (vector 0 "#+COMMENT idris" "#+END_COMMENT") (vector 1 (vector 0 "#+comment idris" "#+end_comment") (vector 0 ))))) (vector 1 "#+IDRIS:" (vector 0 )) (vector 1 ".org" (vector 0 )))))
(define Unlit-Parser-styleCMark (lambda () (vector 0 (vector 1 (vector 0 "```idris" "```") (vector 0 )) (vector 0 ) (vector 1 ".md" (vector 0 )))))
(define Unlit-Parser-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--2558-380 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0))))
(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--2498-349 arg-0 (Unlit-Parser-n--2498-321-isStyle arg-0 (Unlit-Parser-styleBird)))))
(define Literate-Text-with--2790-1205 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 3))) (let ((sc3 e-10)) (case (vector-ref sc3 0) ((2) (let ((e-11 (vector-ref sc3 1))) (let ((e-12 (vector-ref sc3 2))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 2))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((0) (let ((e-21 (vector-ref sc6 2))) (let ((sc7 e-21)) (cond ((equal? sc7 "") (vector 0 (vector 1 e-11) e-12))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2))))))(else (vector 0 (vector 0 ) arg-2)))))))(else (vector 0 (vector 0 ) arg-2)))))))))
(define Literate-Text-with--2571-1051 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (Literate-Text-reduce arg-6 arg-5))(else (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Data-unlines e-2))))))))))(else (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (Literate-Text-reduce arg-6 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Data-unlines e-2)))))))))))
(define Literate-Text-with--2482-1036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Literate-Text-reduce arg-6 arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Literate-Text-with--2571-1051 e-3 (Views-List-Data-snocList 'erased e-3) arg-2 arg-3 e-2 arg-7 arg-6 arg-5 arg-4 arg-0))))))))
(define Literate-Text-case--2717-1144 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (cond ((equal? sc3 "") (vector 1 (Literate-Text-reduce e-2 "")))(else (vector 0 (vector 0 e-6 e-10 e-11))))))))))))))))
(define Literate-Text-case--2497-976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) (List-Data-replicate 'erased (List-Data-length 'erased (Strings-Data-lines arg-2)) "\xa;"))) (else "")))))
(define Literate-Text-case--2432-943 (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--2482-970-blank_content (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Literate-Text-case--2497-976 arg-0 arg-1 arg-2 arg-3 arg-4 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624)))) (integer->char 10) (Prelude-unpack arg-2)))))
(define Literate-Text-untilEOL (lambda () (Lexer-Text-manyUntil 'erased (Lexer-Text-is (integer->char 10)) (Lexer-Text-any))))
(define Literate-Text-unlit (lambda (ext-0 ext-1) (Literate-Text-extractCode ext-0 ext-1)))
(define Literate-Text-reduce (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (Literate-Text-reduce e-3 (Strings-Prelude-C-43C-43 arg-1 (Literate-Text-n--2482-970-blank_content e-5 e-6 e-8 e-3 arg-1))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (Literate-Text-reduce e-3 (Strings-Prelude-C-43C-43 arg-1 (Prelude-substr (Prelude-C-43_Num__Nat (Prelude-length e-9) (+ 1 0)) (Prelude-length e-10) e-10)))))) (else (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (Literate-Text-with--2482-1036 e-13 (Strings-Data-lines e-13) e-5 e-6 e-12 e-11 e-3 arg-1))))))))))))))))))
(define Literate-Text-rawTokens (lambda (arg-0 arg-1) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc0 lamc-0)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Literate-Text-block e-2 e-3) (lambda (eta-0) (vector 0 (Strings-Data-trim e-2) (Strings-Data-trim e-3) eta-0))))))) arg-0) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (m) (vector 0 (Literate-Text-line m) (lambda (eta-0) (vector 2 (Strings-Data-trim m) eta-0)))) arg-1) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 1 eta-0))) (vector 0 ))))))
(define Literate-Text-line (lambda (arg-0) (vector 4 (vector 4 (Lexer-Text-exact arg-0) (lambda () (Lexer-Text-space))) (lambda () (Literate-Text-untilEOL)))))
(define Literate-Text-isLiterateLine (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Literate-Text-with--2790-1205 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--2717-1144 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--2321-470 (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--2297-449 (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-n--2488-589-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--2488-589-lexStr e-3)))))))))
(define Lexer-Text-n--2488-590-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2488-589-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-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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624)))) 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-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--2297-449 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--2488-590-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q))))))
(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2321-470 arg-0 (Prelude-unpack arg-0))))
(define Lexer-Text-any (lambda () (Core-Lexer-Text-pred (lambda (eta-0) 0))))
(define Core-Lexer-Text-case--2992-2497 (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-pack e-11)))))))))))))))
(define Core-Lexer-Text-case--2936-2445 (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-pack e-11)))))))))))))))
(define Core-Lexer-Text-case--2772-2313 (lambda (arg-0 arg-1 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--2558-2280 (lambda (arg-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--2772-2313 '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--2570-2196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 0 arg-5 arg-4 (arg-8 (Prelude-pack (List-Data-reverse 'erased e-5)))) (vector 0 (Prelude-C-43_Num__Int arg-5 (Prelude-cast_Cast__Nat_Int (Core-Lexer-Text-n--2558-2091-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5))) (vector 0 (Core-Lexer-Text-n--2558-2092-getCols 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 arg-4) e-6))))))))) (else (Core-Lexer-Text-n--2558-2093-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10))))))
(define Core-Lexer-Text-case--2569-2115 (lambda (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) (Prelude-C-43_Num__Int arg-7 (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2))))(else (Prelude-cast_Cast__Nat_Int (List-Data-length 'erased e-2))))))))))
(define Core-Lexer-Text-case--2179-1949 (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--2179-1915 (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--2179-1880 (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--2179-1836 (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--2179-1787 (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--2558-2093-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--2570-2196 '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--2558-2092-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2569-2115 '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--2558-2091-countNLs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (List-Data-length 'erased (List-Data-filter 'erased (lambda (arg-8) (Prelude-C-61C-61_Eq__Char arg-8 (integer->char 10))) arg-7))))
(define Core-Lexer-Text-tokenise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Lexer-Text-case--2558-2280 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2558-2093-getFirstToken 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-5 arg-6))))
(define TokenData-Core-Lexer-Text-tok (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
(define Core-Lexer-Text-scan (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Prelude-pure_Applicative__Maybe 'erased (vector 0 arg-2 arg-3))) ((1) (vector 0 )) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Lexer-Text-case--2179-1787 '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--2179-1836 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--2992-2497 '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--2936-2445 '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--6448-1938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 ) (vector 0 )))) (else (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 1 arg-5) arg-3))) (lambda (hidt) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-5) arg-2)) (lambda (ps) (Core-Parser-Text-pure 'erased 'erased (vector 0 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) hidt) ps)))))))))))
(define Source-Rule-Parser-case--6357-1774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) (else (Source-Rule-Parser-blockEntries 'erased (vector 1 arg-3) arg-1))))))
(define Source-Rule-Parser-case--6025-1433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 1 arg-2))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Not the end of a block entry"))))))
(define Source-Rule-Parser-case--6025-1400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 1 arg-2))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Not the end of a block entry"))))))
(define Source-Rule-Parser-case--6025-1371 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Not the end of a block entry"))))))
(define Source-Rule-Parser-case--5982-1335 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Not the end of a block entry"))))))
(define Source-Rule-Parser-case--5922-1299 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Not the end of a block entry"))))))
(define Source-Rule-Parser-case--5837-1209 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Invalid indentation"))))))
(define Source-Rule-Parser-case--5837-1185 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Invalid indentation"))))))
(define Source-Rule-Parser-case--5721-1110 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else (Core-Parser-Text-pure 'erased 'erased (vector 0 )))))))
(define Source-Rule-Parser-case--5577-959 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Core-Parser-Text-fail 'erased 'erased 'erased (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (Core-Parser-Text-pure 'erased 'erased (vector 0 arg-1 (vector 1 arg-0))))))))
(define Source-Rule-Parser-case--5577-940 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Core-Parser-Text-fail 'erased 'erased 'erased (Strings-Prelude-C-43C-43 "can't use reserved name " arg-0))) (else (Core-Parser-Text-pure 'erased 'erased (vector 1 arg-0)))))))
(define Source-Rule-Parser-case--5524-877 (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--5494-851 (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--5475-834 (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--5444-809 (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--5438-800 (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--5444-809 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--5396-769 (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--5388-757 (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--5396-769 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--5346-724 (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--5338-712 (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--5346-724 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--5296-679 (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--5287-667 (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--5296-679 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--5245-633 (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--5236-621 (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--5245-633 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--5217-601 (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--5198-584 (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--5179-567 (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--5078-509 (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 2 e-2))))))))
(define Source-Rule-Parser-case--5078-476 (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 3 e-2))))))))
(define Source-Rule-Parser-case--5072-469 (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--5078-476 arg-0 e-0 (Support-Parser-getCharLit e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 1 (vector 4 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--5078-509 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 9 ))) ((equal? sc1 "Double") (vector 1 (vector 10 ))) ((equal? sc1 "Int") (vector 1 (vector 6 ))) ((equal? sc1 "Integer") (vector 1 (vector 7 ))) ((equal? sc1 "String") (vector 1 (vector 8 )))(else (vector 0 ))))))(else (vector 0 ))))))
(define Source-Rule-Parser-n--6448-1813-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))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-blockEntries 'erased e-6 arg-2)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-1836) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 1 e-5) ps)))))))))))) (else (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-1869) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 ) ps))))))))))))
(define Source-Rule-Parser-n--5575-919-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-0 (Source-Rule-Parser-reservedNames))))
(define Source-Rule-Parser-n--5575-921-opNonNS (lambda () (Core-Parser-Text-C-60C-42 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 0 0 (Source-Rule-Parser-symbol "(") (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField)))) (Source-Rule-Parser-symbol ")"))))
(define Source-Rule-Parser-n--5575-922-opNS (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ".(")) (lambda () (lambda (_-1004) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-operator) (lambda () (Source-Rule-Parser-recField)))) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-1034) (Core-Parser-Text-pure 'erased 'erased (vector 0 arg-0 n)))))))))))))
(define Source-Rule-Parser-n--5575-920-nameNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Parser-Text-pure 'erased 'erased (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--5577-940 e-2 (Source-Rule-Parser-n--5575-919-reserved e-2)))(else (Source-Rule-Parser-case--5577-959 e-2 e-3 (Source-Rule-Parser-n--5575-919-reserved e-2))))))))))))
(define Source-Rule-Parser-n--5052-438-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1)))))
(define Source-Rule-Parser-n--6021-1354-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--6021-1355-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--6025-1371 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--6025-1400 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--6025-1433 arg-0 arg-1 e-1 arg-3 (Prelude-C-60C-61_Ord__Int arg-3 arg-0)))) (else (Core-Parser-Text-pure 'erased 'erased (vector 3 )))))))
(define Source-Rule-Parser-unqualifiedName (lambda () (Source-Rule-Parser-identPart)))
(define Source-Rule-Parser-terminator (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 1)) (lambda () 1)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-1511) (Core-Parser-Text-pure 'erased 'erased (vector 3 )))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 1)) (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ";")) (lambda () (lambda (_-1500) (Core-Parser-Text-pure 'erased 'erased (Source-Rule-Parser-n--6021-1354-afterSemi arg-1 arg-0 arg-0))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (Source-Rule-Parser-n--6021-1355-afterDedent arg-1 arg-0 arg-0 col))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 3 ))))))))))
(define Source-Rule-Parser-symbol (lambda (arg-0) (Core-Parser-Text-terminal 'erased 'erased (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--5236-621 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-strLit (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected string literal" (lambda (x) (Source-Rule-Parser-case--5198-584 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-reservedNames (lambda () (vector 1 "Type" (vector 1 "Int" (vector 1 "Integer" (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 () (Core-Parser-Text-terminal 'erased 'erased "Expected record field" (lambda (x) (Source-Rule-Parser-case--5217-601 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-pragma (lambda (arg-0) (Core-Parser-Text-terminal 'erased 'erased (Strings-Prelude-C-43C-43 "Expected pragma " arg-0) (lambda (x) (Source-Rule-Parser-case--5388-757 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-operator (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected operator" (lambda (x) (Source-Rule-Parser-case--5438-800 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-nonEmptyBlock (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-2056) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-2065) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-1)) (lambda () (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-2092) (Core-Parser-Text-pure 'erased 'erased (vector 1 (Builtin-fst 'erased 'erased res) ps))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-blockEntry 'erased (vector 1 col) arg-1)) (lambda () (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-1)) (lambda (ps) (Core-Parser-Text-pure 'erased 'erased (vector 1 (Builtin-fst 'erased 'erased res) ps)))))))))))))
(define Source-Rule-Parser-namespacedIdent (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected namespaced name" (lambda (x) (Source-Rule-Parser-case--5494-851 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-name (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-n--5575-921-opNonNS) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-namespacedIdent)) (lambda () (lambda (ns) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (Source-Rule-Parser-n--5575-922-opNS ns) (lambda () (Source-Rule-Parser-n--5575-920-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 (Core-Parser-Text-fatalError 'erased 'erased 'erased "Unexpected end of expression") arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (Source-Rule-Parser-continueF (Core-Parser-Text-fatalError 'erased 'erased 'erased (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 e-2 "'"))) arg-0)))))))
(define Source-Rule-Parser-keyword (lambda (arg-0) (Core-Parser-Text-terminal 'erased 'erased (Strings-Prelude-C-43C-43 "Expected '" (Strings-Prelude-C-43C-43 arg-0 "'")) (lambda (x) (Source-Rule-Parser-case--5287-667 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(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 () (Core-Parser-Text-terminal 'erased 'erased "Expected integer literal" (lambda (x) (Source-Rule-Parser-case--5179-567 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-init (lambda () 0))
(define Source-Rule-Parser-identPart (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected name" (lambda (x) (Source-Rule-Parser-case--5475-834 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-holeName (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected hole name" (lambda (x) (Source-Rule-Parser-case--5524-877 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-exactIdent (lambda (arg-0) (Core-Parser-Text-terminal 'erased 'erased (Strings-Prelude-C-43C-43 "Expected " arg-0) (lambda (x) (Source-Rule-Parser-case--5338-712 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-eoi (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Core-Parser-Text-nextIs 'erased "Expected end of input" (lambda (eta-0) (Source-Rule-Parser-n--5052-438-isEOI (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3)))))) (lambda (_-456) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))
(define Source-Rule-Parser-continueF (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 (Prelude-C-38C-38 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-1101) arg-0)) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-1093) arg-0))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (Source-Rule-Parser-case--5721-1110 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 (Core-Parser-Text-fail 'erased 'erased 'erased "Unexpected end of expression") ext-0)))
(define Source-Rule-Parser-constant (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected constant" (lambda (x) (Source-Rule-Parser-case--5072-469 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Source-Rule-Parser-checkValid (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) ((1) (let ((e-0 (vector-ref sc0 1))) (Source-Rule-Parser-case--5837-1185 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--5837-1209 e-1 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 e-1)))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "End of block"))))))
(define Source-Rule-Parser-blockWithOptHeaderAfter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-1906) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-1915) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-optional 'erased 'erased 0 (Source-Rule-Parser-blockEntry 'erased (vector 0 ) arg-3))) (lambda (hidt) (Source-Rule-Parser-n--6448-1813-restOfBlock 'erased 'erased arg-4 arg-3 arg-2 hidt)))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (Source-Rule-Parser-case--6448-1938 '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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-checkValid arg-1 col)) (lambda (_-1539) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (arg-2 col)) (lambda () (lambda (p) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-terminator arg-1 col)) (lambda (validC-39) (Core-Parser-Text-pure 'erased 'erased (vector 0 p validC-39)))))))))))))
(define Source-Rule-Parser-blockEntries (lambda (arg-0 arg-1 arg-2) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 (Prelude-C-38C-38 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-1609) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-blockEntry 'erased arg-1 arg-2)) (lambda () (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockEntries 'erased (Builtin-snd 'erased 'erased res) arg-2)) (lambda (ts) (Core-Parser-Text-pure 'erased 'erased (vector 1 (Builtin-fst 'erased 'erased res) ts))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))))
(define Source-Rule-Parser-blockAfter (lambda (arg-0 arg-1 arg-2) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-1732) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-1741) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-1757) (Core-Parser-Text-pure 'erased 'erased ps))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (Source-Rule-Parser-case--6357-1774 '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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-1666) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-1675) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1)) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-1691) (Core-Parser-Text-pure 'erased 'erased ps))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 (Source-Rule-Parser-eoi) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (Source-Rule-Parser-case--5982-1335 arg-0 col (Prelude-C-60C-61_Ord__Int col arg-0))))))))
(define Source-Rule-Parser-atEnd (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 (Prelude-C-38C-38 1 (lambda () 1)) (Source-Rule-Parser-eoi) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Core-Parser-Text-nextIs 'erased "Expected end of block" (lambda (eta-0) (Source-Rule-Parser-isTerminator (let ((sc0 eta-0)) (let ((e-3 (vector-ref sc0 3))) e-3)))))) (lambda (_-1286) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (Source-Rule-Parser-case--5922-1299 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--10388-7953 (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--10388-7469-showApp arg-0 arg-1 arg-0 e-2 e-3))))))
(define TT-Core-case--10158-7325 (lambda (arg-0 arg-1 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--9915-7074 (lambda (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--9408-6628 (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--9343-6581 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3))))
(define TT-Core-case--9331-6563 (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--9016-6304 (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--8867-6189 (lambda (arg-0 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--8835-6137 (lambda (arg-0 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--8867-6189 '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--8721-6080 (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--8534-5871 (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--8368-5820 (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--8368-5746 (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--7867-5464 (lambda (arg-0 arg-1 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--7589-5126 (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--7589-5045 (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--7363-4817 (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--6779-4292 (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--6480-4027 (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--6376-3973 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
(define TT-Core-case--6272-3885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
(define TT-Core-case--6206-3801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
(define TT-Core-case--5994-3654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
(define TT-Core-case--5928-3569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
(define TT-Core-case--2872-817 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 ))))))
(define TT-Core-case--2872-785 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 ))))))
(define TT-Core-case--2872-753 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 ))))))
(define TT-Core-case--2872-721 (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--6480-4078-thinPi (lambda (arg-0 arg-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) (vector 1 )) ((0) (vector 0 )) ((2) (vector 2 )) (else (let ((e-4 (vector-ref sc0 1))) (vector 3 (TT-Core-thin arg-2 arg-1 arg-7 e-4))))))))
(define TT-Core-n--6480-4079-thinBinder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (vector 0 e-1 (TT-Core-n--6480-4078-thinPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2) (TT-Core-thin arg-2 arg-1 arg-7 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 (TT-Core-thin arg-2 arg-1 arg-7 e-6) (TT-Core-thin arg-2 arg-1 arg-7 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-n--6480-4078-thinPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10) (TT-Core-thin arg-2 arg-1 arg-7 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-n--6480-4078-thinPi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-14) (TT-Core-thin arg-2 arg-1 arg-7 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 (TT-Core-thin arg-2 arg-1 arg-7 e-18) (TT-Core-thin arg-2 arg-1 arg-7 e-19)))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (vector 5 e-21 (TT-Core-thin arg-2 arg-1 arg-7 e-22)))))))))
(define TT-Core-n--5882-3511-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--10388-7469-showApp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-5 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-2 e-5 'erased)) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-5) "]"))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((1) (let ((e-10 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Name-Core-show_Show__Name e-10))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((2) (let ((e-13 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-13) (Strings-Prelude-C-43C-43 "_" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 arg-2 d x)))) e-15)))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((3) (let ((e-18 (vector-ref sc0 2))) (let ((e-19 (vector-ref sc0 3))) (let ((e-20 (vector-ref sc0 4))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-55 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "\\" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-55) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-57) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((1) (let ((e-59 (vector-ref sc1 1))) (let ((e-60 (vector-ref sc1 2))) (let ((e-61 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "let " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-59) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-61) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-60) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((2) (let ((e-63 (vector-ref sc1 1))) (let ((e-64 (vector-ref sc1 2))) (let ((e-65 (vector-ref sc1 3))) (let ((sc2 e-64)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "((" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 ") -> " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20) ")"))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-63) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-65) (Strings-Prelude-C-43C-43 "} -> " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((3) (let ((e-67 (vector-ref sc1 1))) (let ((e-68 (vector-ref sc1 2))) (let ((e-69 (vector-ref sc1 3))) (let ((sc2 e-68)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((0) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((2) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) (Strings-Prelude-C-43C-43 "{auto pat " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-67) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-69) (Strings-Prelude-C-43C-43 "} => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((e-71 (vector-ref sc1 1))) (let ((e-72 (vector-ref sc1 2))) (let ((e-73 (vector-ref sc1 3))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "plet " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-71) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-73) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-72) (Strings-Prelude-C-43C-43 " in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((5) (let ((e-75 (vector-ref sc1 1))) (let ((e-76 (vector-ref sc1 2))) (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 "pty " (Strings-Prelude-C-43C-43 (TT-Core-showCount e-75) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-18) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-76) (Strings-Prelude-C-43C-43 " => " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 1 e-18 arg-2) e-20))))))))(else (let ((sc2 arg-4)) (case (vector-ref sc2 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))))) ((4) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[can't happen]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((5) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-28) (Strings-Prelude-C-43C-43 "@" (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-29))))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))) ((6) (let ((e-33 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delayed " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-33)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((7) (let ((e-38 (vector-ref sc0 4))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Delay " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-38)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((8) (let ((e-42 (vector-ref sc0 3))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "%Force " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 e-42)))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((9) (let ((e-45 (vector-ref sc0 2))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (TT-Core-show_Show__Constant e-45))(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))) ((10) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "[__]")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "Type")(else (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")")))))))))))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) "???")(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-3) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-5) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-2 arg-5)) arg-4)) ")"))))))))))))
(define TT-Core-n--7199-4662-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--7199-4662-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2))))))
(define TT-Core-n--5045-2847-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--5045-2848-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--5045-2847-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--5045-2847-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--5045-2847-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--10158-7278-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--10158-7278-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--10044-7186-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--10044-7186-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 arg-2) (TT-Core-thin (vector 0 ) arg-1 arg-0 arg-2)))
(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--5882-3511-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__String e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Prelude-show_Show__Char e-3))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Double e-4))) ((5) "%MkWorld") ((6) "Int") ((7) "Integer") ((8) "String") ((9) "Char") ((10) "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--10388-7953 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-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-__Impl_Weaken_Var (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3112) (TT-Core-weaken_Weaken__Var n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Var vars ns arg-3116)))))))
(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3112) (TT-Core-weaken_Weaken__Term n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Term vars ns arg-3116)))))))
(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_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-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__Visibility arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__Visibility arg-623 arg-624))))))
(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__Constant arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__Constant arg-623 arg-624))))))
(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-623 arg-624))))))
(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-623 arg-624))))))
(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-623 arg-624))))))
(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-5 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Int e-0 e-5)))(else 1))))) ((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))) (Prelude-C-61C-61_Eq__Integer e-1 e-6)))(else 1))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__String e-2 e-7)))(else 1))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Char e-3 e-8)))(else 1))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-9 (vector-ref sc1 1))) (Prelude-C-61C-61_Eq__Double e-4 e-9)))(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 ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) 0)(else 1)))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) 0)(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))))(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-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-623 arg-624)))) 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-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-623 arg-624)))) 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-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--6206-3801 '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--5928-3569 '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--8368-5746 '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--8368-5820 '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 TT-Core-thin (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--6480-4027 arg-0 arg-1 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-insertNVar 'erased 'erased 'erased arg-0 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-thin 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))) (let ((scC-39 (TT-Core-thin (vector 1 e-17 arg-0) arg-1 arg-2 e-19))) (vector 3 e-16 e-17 (TT-Core-n--6480-4079-thinBinder e-17 arg-1 arg-0 e-19 e-18 e-16 arg-2 arg-2 e-18) scC-39))))))) ((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-thin arg-0 arg-1 arg-2 e-22) (TT-Core-thin 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-thin arg-0 arg-1 arg-2 e-27) (TT-Core-thin 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-thin 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-thin arg-0 arg-1 arg-2 e-36) (TT-Core-thin 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-thin 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 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--9915-7074 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--7867-5464 '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-2914) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__Maybe 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2982 arg-2984)))))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) "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--8835-6137 '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--9408-6628 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) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3)(else (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--7363-4817 'erased 'erased 'erased e-4 'erased e-3 e-2 arg-2 (TT-Core-renameLocalRef '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-renameVars '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-renameVars 'erased 'erased arg-2 eta-0)) e-18) (TT-Core-renameVars 'erased 'erased (vector 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-renameVars 'erased 'erased arg-2 e-22) (TT-Core-renameVars '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-renameVars 'erased 'erased arg-2 e-27) (TT-Core-renameVars '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-renameVars '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-renameVars 'erased 'erased arg-2 e-36) (TT-Core-renameVars '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-renameVars '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-renameTop (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-renameVars 'erased 'erased (vector 1 (vector 0 )) arg-3)))
(define TT-Core-renameLocalRef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Builtin-believe_me 'erased 'erased arg-4)))
(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-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--9016-6304 '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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--9331-6563 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--6272-3885 '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--6779-4292 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--6376-3973 '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-insertNVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (+ 1 arg-4)) (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--5994-3654 'erased 'erased e-2 e-3 e-4 'erased 'erased (TT-Core-insertNVar 'erased 'erased 'erased e-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--7199-4662-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--5045-2848-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--8534-5871 '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--2872-721 e-0 e-5 (Equality-Decidable-decEq_DecEq__Int e-0 e-5))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (TT-Core-case--2872-753 e-1 e-6 (Equality-Decidable-decEq_DecEq__Integer e-1 e-6))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (TT-Core-case--2872-785 e-2 e-7 (Equality-Decidable-decEq_DecEq__String e-2 e-7))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (TT-Core-case--2872-817 e-3 e-8 (Equality-Decidable-decEq_DecEq__Char e-3 e-8))))(else (vector 0 )))))) ((4) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (vector 0 ))(else (vector 0 ))))) ((5) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((5) (vector 1 (vector 0 )))(else (vector 0 ))))) ((6) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((6) (vector 1 (vector 0 )))(else (vector 0 ))))) ((7) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (vector 1 (vector 0 )))(else (vector 0 ))))) ((8) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (vector 1 (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 )))))(else (vector 0 ))))))
(define TT-Core-constTag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((6) 3) ((7) 4) ((8) 5) ((9) 6) ((10) 7) ((11) 8)(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--8721-6080 '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--10158-7278-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--10158-7325 '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--10044-7186-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--1313-410 (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--1270-371 (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_C-40PreorderC-32aC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
(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--1270-371 '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--1313-410 '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--1481-550 (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--1423-499 (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--1288-399 (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--1266-349 (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--1288-399 '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--1266-349 '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--1423-499 '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--1481-550 '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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))
(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247)))))))))
(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))))
(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--2638-3882-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--2638-3882-go 'erased 'erased arg-2 'erased 'erased (vector 1 e-3 arg-5) e-4))))))))
(define Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-2 ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) ext-0))))
(define Vect-Data-showPrec_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased arg-2 arg-4)))
(define Vect-Data-map_Functor__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (vector 1 (arg-3 e-3) (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased arg-3 e-4)))))))))
(define Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) eta-0) arg-5)))
(define Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) ((Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (eta-2 (eta-3 eta-4))))) (lambda (eta-2) (Prelude-flip 'erased 'erased 'erased arg-3 eta-0 eta-2)) eta-1))) (lambda (eta-0) eta-0) arg-5) arg-4)))
(define Vect-Data-__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--2638-3882-go 'erased 'erased arg-2 'erased 'erased (vector 0 ) arg-2)))
(define Vect-Data-foldrImpl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (arg-5 arg-4)) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Vect-Data-foldrImpl 'erased 'erased 'erased arg-3 arg-4 (lambda (eta-0) (arg-5 ((arg-3 e-3) eta-0))) e-4))))))))
(define NameMap-Data-case--4758-5764 (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--4758-5727 (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--4670-5642 (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--4370-5453 (lambda (arg-0 arg-1 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--4370-5379 (lambda (arg-0 arg-1 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--4257-5355 (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--4370-5379 '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--4370-5453 '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--4257-5281 (lambda (arg-0 arg-1 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--3516-5257 (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--4257-5281 '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--4257-5355 '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--4144-5203 (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--4002-5161 (lambda (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--4027-5103 (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--4002-5061 (lambda (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--3516-5041 (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--4002-5061 '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--4002-5161 '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--3830-4979 (lambda (arg-0 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--3830-4911 (lambda (arg-0 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--3727-4889 (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--3830-4911 '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--3830-4979 '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--3727-4821 (lambda (arg-0 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--3516-4799 (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--3727-4821 '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--3727-4889 '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--3588-4749 (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--3588-4695 (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--3516-4677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3588-4695 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3588-4749 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
(define NameMap-Data-case--3516-4629 (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--3436-4560 (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--3177-4463 (lambda (arg-0 arg-1 arg-2 arg-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--3177-4352 (lambda (arg-0 arg-1 arg-2 arg-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--3014-4321 (lambda (arg-0 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--3177-4352 '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--3177-4463 '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--3014-4211 (lambda (arg-0 arg-1 arg-2 arg-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--2659-4180 (lambda (arg-0 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--3014-4211 '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--3014-4321 '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--2788-4102 (lambda (arg-0 arg-1 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--2788-4013 (lambda (arg-0 arg-1 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--2659-3986 (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--2788-4013 '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--2788-4102 '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--2659-3884 (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--2552-3823 (lambda (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--2429-3776 (lambda (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--2552-3823 '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--2429-3728 (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--2429-3685 (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--4543-5509-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--4543-5509-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4543-5509-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--4543-5509-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4543-5509-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4543-5509-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--4543-5509-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--2429-3685 '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--2429-3728 '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--2429-3776 '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--2659-3884 '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--2659-3986 '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--2659-4180 '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--3436-4560 '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--3516-4629 '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--3516-4677 '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--3516-4799 '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--3516-5041 '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--3516-5257 '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--4670-5642 'erased e-2 arg-2 e-3 arg-1 (NameMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
(define NameMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (NameMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (NameMap-Data-empty 'erased) arg-1)))
(define NameMap-Data-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--4758-5727 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4758-5764 '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--2684-1526 (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--3062-1499 (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--2684-1478 (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--3062-1499 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
(define Name-Core-with--3007-1451 (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--2684-1430 (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--3007-1451 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
(define Name-Core-with--2956-1410 (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--2684-1386 (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--2956-1410 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0))))))))
(define Name-Core-with--2684-1352 (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--2875-1326 (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--2684-1315 (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--2875-1326 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-with--2827-1285 (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--2684-1274 (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--2827-1285 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-with--2776-1245 (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--2684-1230 (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--2776-1245 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-with--2684-1203 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (vector 1 (vector 0 ))))) (else (vector 0 ))))))
(define Name-Core-with--2698-1177 (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--2684-1164 (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--2698-1177 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-case--2282-1099 (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--2282-1059 (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--2282-1015 (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
(define Name-Core-case--2282-959 (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--2282-919 (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--2282-871 (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
(define Name-Core-case--2287-832 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Name-Core-case--2288-818 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Name-Core-show_Show__Name (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((5) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 ".(" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) ")"))))(else (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-0)) (Strings-Prelude-C-43C-43 "." (Name-Core-show_Show__Name e-1))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) e-2)) ((2) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 e-3 (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-4) "}"))))))) ((3) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "{P:" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-6) "}"))))))) ((4) (let ((e-7 (vector-ref sc0 1))) e-7)) ((5) (let ((e-9 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "." e-9))) ((6) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 e-10)) (let ((e-20 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-20) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-21) (Strings-Prelude-C-43C-43 ":" (Name-Core-show_Show__Name e-11))))))))))) ((7) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "case block in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-12) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-13) ")"))))))) ((8) (let ((e-14 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "with block in " (Prelude-show_Show__Int e-14)))) (else (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "$resolved" (Prelude-show_Show__Int e-16))))))))
(define Name-Core-showPrec_Show__Name (lambda (arg-0 arg-1) (Name-Core-show_Show__Name arg-1)))
(define Name-Core-min_Ord__Name (lambda (arg-0 arg-1) (Name-Core-case--2288-818 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--2287-832 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--2282-871 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--2282-919 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--2282-959 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--2282-1015 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--2282-1059 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--2282-1099 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Name-Core-compare_Ord__Name arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Name-Core-C-60_Ord__Name arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Name-Core-C-62_Ord__Name arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Name-Core-C-60C-61_Ord__Name arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Name-Core-C-62C-61_Ord__Name arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Name-Core-max_Ord__Name arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Name-Core-min_Ord__Name arg-896 arg-897))))))
(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624))))))
(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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) 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--2684-1164 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--2684-1203 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--2684-1230 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--2684-1274 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--2684-1315 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--2684-1352 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--2684-1386 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--2684-1430 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--2684-1478 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--2684-1526 e-16 e-33 (Equality-Decidable-decEq_DecEq__Int e-16 e-33))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Name-Core-isUserName (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((3) 1) ((2) 1) ((0) (let ((e-5 (vector-ref sc0 2))) (Name-Core-isUserName e-5))) ((4) (let ((e-7 (vector-ref sc0 2))) (Name-Core-isUserName e-7)))(else 0)))))
(define Name-Core-dropNS (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) e-1))(else arg-0)))))
(define FC-Core-show_Show__FC (lambda (arg-0) (Strings-Prelude-C-43C-43 (FC-Core-file arg-0) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (FC-Core-showPos (FC-Core-startPos arg-0)) (Strings-Prelude-C-43C-43 "--" (FC-Core-showPos (FC-Core-endPos arg-0))))))))
(define FC-Core-showPrec_Show__FC (lambda (arg-0 arg-1) (FC-Core-show_Show__FC arg-1)))
(define FC-Core-__Impl_Show_FC (lambda () (vector 0 (lambda (x) (FC-Core-show_Show__FC x)) (lambda (d) (lambda (x) (FC-Core-showPrec_Show__FC d x))))))
(define FC-Core-C-61C-61_Eq__FC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__String e-0 e-3) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (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 (Prelude-C-43_Num__Int e-2 1)) (Strings-Prelude-C-43C-43 ":" (Prelude-show_Show__Int (Prelude-C-43_Num__Int e-3 1)))))))))
(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--5776-3628 (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--5761-3606 (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--5776-3628 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0))))))))
(define Support-Parser-case--5515-3511 (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--5551-3444 (lambda (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--5515-3395 (lambda (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--5551-3444 arg-0 arg-1 arg-2 arg-3 arg-4 (Support-Parser-getEsc (Prelude-pack (vector 1 arg-1 (vector 1 arg-2 (vector 0 )))))))))))
(define Support-Parser-case--5128-3363 (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--5515-3395 arg-0 e-6 e-9 e-12 e-13 (Support-Parser-getEsc (Prelude-pack (vector 1 e-6 (vector 1 e-9 (vector 1 e-12 (vector 0 )))))))))) ((0) (Support-Parser-case--5515-3511 arg-0 e-6 e-9 (Support-Parser-getEsc (Prelude-pack (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-pack e-2))) bind-0))))))))))))
(define Support-Parser-case--5128-3311 (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--5128-3268-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--5128-3218 (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--5128-3175-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--5128-3268-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--5128-3268-toOct arg-0 (Prelude-C-42_Num__Int arg-1 8) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int bind-0 arg-1) bind-1)))))))))))))
(define Support-Parser-n--5128-3175-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--5128-3175-toHex arg-0 (Prelude-C-42_Num__Int arg-1 16) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int bind-0 arg-1) bind-1)))))))))))))
(define Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error: " (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 " (next tokens: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 (List-Data-take 'erased (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) e-3)) ")"))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((sc2 e-13)) (let ((e-16 (vector-ref sc2 1))) (let ((e-17 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 "Lex error at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-12 e-16)) (Strings-Prelude-C-43C-43 " input: " e-17))))))))))) ((2) (let ((e-7 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "File error: " (File-System-show_Show__FileError e-7)))) (else (let ((e-9 (vector-ref sc0 1))) (let ((sc1 e-9)) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (Strings-Prelude-C-43C-43 "Lit error(s) at " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))) (vector 0 e-19 e-18)) (Strings-Prelude-C-43C-43 " input: " e-20)))))))))))))
(define Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 arg-3)))
(define Support-Parser-__Impl_Show_C-40ParseErrorC-32C-36tokC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (Support-Parser-showPrec_Show__C-40ParseErrorC-32C-36tokC-41 'erased arg-1 d x))))))
(define Support-Parser-toGenericParsingError (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 0 e-1 (vector 0 ) (vector 0 ))) (else (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (vector 0 e-1 (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-7 (vector-ref sc2 1))) e-7)) (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 2))) e-4)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-3 (vector-ref sc2 3))) e-3))) (vector 1 e-5 e-6)))))))))))))
(define Support-Parser-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--5761-3606 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--5128-3218 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--5128-3311 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--5128-3363 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--5128-3363 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-pack bind-0))))))
(define Parser-Text-some (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) arg-2) (lambda () (lambda (bind-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-many 'erased 'erased arg-2)) (lambda (bind-1) (Core-Parser-Text-pure 'erased 'erased (vector 1 bind-0 bind-1)))))))))
(define Parser-Text-sepBy1 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Core-Parser-Text-C-60C-42C-62 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () arg-3)) 1 (Core-Parser-Text-C-60C-42C-62 'erased 'erased 'erased 1 arg-3 (Core-Parser-Text-pure 'erased 'erased (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) arg-5) (Parser-Text-many 'erased 'erased (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 0 arg-3 arg-4 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 1 arg-4 (lambda () (Core-Parser-Text-pure 'erased 'erased arg-3)))) (else (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 arg-4 (lambda () (Core-Parser-Text-pure 'erased 'erased arg-3))))))))
(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-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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased arg-4 arg-4 (arg-5 x) (lambda () acc))))) (Core-Parser-Text-fail 'erased 'erased 'erased "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-with--2752-2035 (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-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))) (vector 0 arg-3 e-15 e-16 e-17 e-18))))))(else (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-5)) (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 ((pC-39 (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 ((arg-8) e-9) e-10))) (let ((sc2 pC-39)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (let ((e-22 (vector-ref sc2 4))) (let ((e-23 (vector-ref sc2 5))) (vector 0 (vector 1 e-1 (List-Prelude-C-43C-43 'erased e-7 e-10)) e-20 e-21 e-22 e-23))))))(else (let ((sc2 arg-7)) (cond ((equal? sc2 1) (let ((sc3 pC-39)) (case (vector-ref sc3 0) ((1) (let ((e-13 (vector-ref sc3 1))) (let ((e-14 (vector-ref sc3 2))) (vector 2 e-7 e-13 e-14 e-10))))(else (let ((sc3 e-10)) (let ((e-4 (vector-ref sc3 1))) (let ((sc4 pC-39)) (let ((e-14 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((e-12 (vector-ref sc4 3))) (let ((e-11 (vector-ref sc4 4))) (vector 2 (List-Prelude-C-43C-43 'erased e-7 (vector 1 e-4 e-14)) e-13 e-12 e-11))))))))))))(else (let ((sc2 e-10)) (let ((e-4 (vector-ref sc2 1))) (let ((sc3 pC-39)) (let ((e-14 (vector-ref sc3 1))) (let ((e-13 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (vector 2 (List-Prelude-C-43C-43 'erased e-7 (vector 1 e-4 e-14)) e-13 e-12 e-11)))))))))))))))))))))))))))
(define Core-Parser-Text-case--4031-2254 (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-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (vector 0 (vector 0 e-22 e-23)))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 1) (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 2))) (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 arg-3))))(else (let ((sc1 arg-3)) (let ((sc2 arg-5)) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-9 e-10))))))))))(else (let ((sc0 arg-3)) (let ((sc1 arg-5)) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-9 e-10))))))))))))))
(define Core-Parser-Text-case--3801-2088 (lambda (arg-0 arg-1 arg-2 arg-3 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-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (vector 0 (vector 1 arg-3 (List-Prelude-C-43C-43 'erased arg-7 arg-5)) e-20 e-21 e-22 e-23))))))(else (let ((sc0 arg-1)) (cond ((equal? sc0 1) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (vector 2 arg-7 e-13 e-14 arg-5))))(else (let ((sc1 arg-5)) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 arg-13)) (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))) (vector 2 (List-Prelude-C-43C-43 'erased arg-7 (vector 1 e-1 e-7)) e-8 e-9 e-10))))))))))))(else (let ((sc0 arg-5)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-13)) (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))) (vector 2 (List-Prelude-C-43C-43 'erased arg-7 (vector 1 e-1 e-7)) e-8 e-9 e-10))))))))))))))))
(define Core-Parser-Text-case--3343-1854 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (vector 0 (vector 1 arg-9 (List-Prelude-C-43C-43 'erased arg-13 arg-11)) e-20 e-21 e-22 e-23))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 1) (let ((sc1 arg-15)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (vector 2 arg-13 e-13 e-14 arg-11))))(else (let ((sc1 arg-11)) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 arg-15)) (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))) (vector 2 (List-Prelude-C-43C-43 'erased arg-13 (vector 1 e-1 e-7)) e-8 e-9 e-10))))))))))))(else (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-15)) (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))) (vector 2 (List-Prelude-C-43C-43 'erased arg-13 (vector 1 e-1 e-7)) e-8 e-9 e-10))))))))))))))))
(define Core-Parser-Text-case--3343-1693 (lambda (arg-0 arg-1 arg-2 arg-3 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-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (vector 0 arg-9 e-20 e-21 e-22 e-23))))))(else (let ((sc0 arg-3)) (cond ((equal? sc0 1) (let ((sc1 arg-13)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (vector 1 e-13 e-14 arg-9))))(else (let ((sc1 arg-9)) (let ((sc2 arg-13)) (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))) (vector 2 e-7 e-8 e-9 e-10)))))))))))(else (let ((sc0 arg-9)) (let ((sc1 arg-13)) (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))) (vector 2 e-7 e-8 e-9 e-10)))))))))))))))
(define Core-Parser-Text-case--2752-1624 (lambda (arg-0 arg-1 arg-2 arg-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-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (vector 0 arg-7 e-20 e-21 e-22 e-23))))))(else (let ((sc0 arg-5)) (cond ((equal? sc0 1) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (let ((xs-2 arg-7)) (let ((c1 1)) (Core-Parser-Text-case--3343-1693 'erased 'erased 'erased arg-3 arg-4 arg-6 arg-8 'erased e-14 arg-7 e-13 xs-2 c1 (Core-Parser-Text-doParse 'erased 'erased 'erased e-13 (arg-4 e-14) arg-7)))))))(else (let ((sc1 arg-7)) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 arg-10)) (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 ((xs (vector 1 e-1 (List-Prelude-C-43C-43 'erased e-7 e-10)))) (Core-Parser-Text-case--3343-1854 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-8 'erased e-1 e-9 e-10 e-8 e-7 xs (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-4 e-9) e-10))))))))))))))(else (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-10)) (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 ((xs (vector 1 e-1 (List-Prelude-C-43C-43 'erased e-7 e-10)))) (Core-Parser-Text-case--3343-1854 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-6 arg-8 'erased e-1 e-9 e-10 e-8 e-7 xs (Core-Parser-Text-doParse 'erased 'erased 'erased e-8 (arg-4 e-9) e-10))))))))))))))))))
(define Core-Parser-Text-case--3141-1477 (lambda (arg-0 arg-1 arg-2 arg-3 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-6 arg-7 arg-11 arg-10 arg-9)) (else (Core-Parser-Text-weakenRes 'erased 'erased arg-4 arg-2 arg-6 arg-7 (Core-Parser-Text-doParse 'erased 'erased 'erased 1 (arg-3) arg-6)))))))
(define Core-Parser-Text-case--2752-1451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (let ((e-23 (vector-ref sc0 5))) (Core-Parser-Text-case--3141-1477 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-23 e-22 e-21 e-20 (Prelude-C-124C-124 e-20 (lambda () e-21))))))))(else (let ((sc0 arg-4)) (cond ((equal? sc0 1) (let ((sc1 arg-9)) (case (vector-ref sc1 0) ((1) (let ((e-14 (vector-ref sc1 2))) (vector 1 arg-7 e-14 arg-6)))(else (let ((sc1 arg-6)) (let ((sc2 arg-9)) (let ((e-7 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (vector 2 e-7 arg-7 e-9 e-10))))))))))(else (let ((sc0 arg-6)) (let ((sc1 arg-9)) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (vector 2 e-7 arg-7 e-9 e-10))))))))))))))
(define Core-Parser-Text-case--2752-1376 (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 (vector 1 arg-3 arg-4) arg-5 1 arg-2 (vector 1 arg-3 arg-4)))))))
(define Core-Parser-Text-case--2752-1249 (lambda (arg-0 arg-1 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-4 arg-5) arg-6 1 arg-3 (vector 1 arg-4 arg-5))) (else (let ((e-2 (vector-ref sc0 1))) (vector 2 (vector 0 ) arg-6 e-2 arg-5)))))))
(define Core-Parser-Text-case--2752-1177 (lambda (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 2))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (vector 0 arg-4 e-4 0 e-6 e-7)))))(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-weakenRes (lambda (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-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (let ((e-28 (vector-ref sc0 5))) (vector 0 arg-4 arg-5 e-26 e-27 e-28)))))(else (let ((sc0 arg-2)) (cond ((equal? sc0 0) (let ((sc1 arg-3)) (cond ((equal? sc1 1) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 2))) (vector 1 arg-5 e-14 arg-4)))(else (let ((sc2 arg-4)) (let ((sc3 arg-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (vector 2 e-7 arg-5 e-9 e-10))))))))))(else (let ((sc1 arg-4)) (let ((sc2 arg-6)) (let ((e-7 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (vector 2 e-7 arg-5 e-9 e-10)))))))))) ((equal? sc0 1) (let ((sc1 arg-3)) (cond ((equal? sc1 1) (let ((sc2 arg-6)) (case (vector-ref sc2 0) ((1) (let ((e-19 (vector-ref sc2 2))) (vector 1 arg-5 e-19 arg-4)))(else (let ((sc2 arg-4)) (let ((sc3 arg-6)) (let ((e-7 (vector-ref sc3 1))) (let ((e-9 (vector-ref sc3 3))) (let ((e-10 (vector-ref sc3 4))) (vector 2 e-7 arg-5 e-9 e-10))))))))))(else (let ((sc1 arg-4)) (let ((sc2 arg-6)) (let ((e-7 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 3))) (let ((e-10 (vector-ref sc2 4))) (vector 2 e-7 arg-5 e-9 e-10))))))))))(else (let ((sc0 arg-4)) (let ((sc1 arg-6)) (let ((e-7 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (vector 2 e-7 arg-5 e-9 e-10))))))))))))))
(define Core-Parser-Text-terminal (lambda (arg-0 arg-1 ext-0 ext-1) (vector 1 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) (Core-Parser-Text-nextIs 'erased "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--4031-2254 '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 (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 (vector 1 e-42 e-43) 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-4 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 4))) (let ((e-7 (vector-ref sc1 5))) (vector 0 arg-5 e-4 0 e-6 e-7)))))(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 (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--2752-1249 '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 (vector 1 e-50 e-51) 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 (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--2752-1376 '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--2752-1451 '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--2752-1624 'erased 'erased 'erased e-31 e-33 e-30 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-with--2752-2035 'erased 'erased e-38 arg-5 arg-3 (Core-Parser-Text-doParse 'erased 'erased 'erased arg-3 e-38 arg-5) 'erased e-37 (lambda () (e-39)) 'erased)))))))))
(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) (Core-Parser-Text-C-60C-42C-62 'erased 'erased 'erased 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) arg-6)))
(define Core-Parser-Text-C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Core-Parser-Text-C-60C-42C-62 'erased 'erased 'erased 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) arg-6)))
(define Common-Rule-Parser-case--2494-2370 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 2))) (Core-Parser-Text-pure 'erased 'erased e-3)))))
(define Common-Rule-Parser-location (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Core-Parser-Text-peek 'erased)) (lambda (tok) (Core-Parser-Text-pure 'erased 'erased (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-column (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location arg-0)) (lambda (_-0) (let ((sc0 _-0)) (let ((e-3 (vector-ref sc0 2))) (Core-Parser-Text-pure 'erased 'erased 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--3105-1080 (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--3105-1038-notComment arg-0 arg-1 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
(define Source-Lexer-Parser-case--3108-1043 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) 1) ((10) 1)(else 0)))))
(define Source-Lexer-Parser-case--2902-851 (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--2900-819-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1))))))
(define Source-Lexer-Parser-case--2901-827 (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--2862-800 (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--2853-784 (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--2862-800 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num)))))))))
(define Source-Lexer-Parser-case--2815-756 (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--2806-740 (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--2815-756 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num)))))))))
(define Source-Lexer-Parser-n--2900-820-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2902-851 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--2900-819-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2901-827 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-0 (Source-Lexer-Parser-keywords)))))
(define Source-Lexer-Parser-n--3105-1038-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--3108-1043 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
(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) "doc comment") ((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 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 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 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--2900-820-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2900-819-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--3105-1080 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624)))) 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--2853-784 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--2806-740 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-n--1195-267-lengthInt (lambda (arg-0) (Prelude-fromInteger_Num__Int (Prelude-length arg-0))))
(define String-Utils-stripQuotes (lambda (arg-0) (string-substr 1 (Prelude-C-45_Neg__Int (String-Utils-n--1195-267-lengthInt arg-0) 2) 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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--1322-587-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--1322-587-fromOctCharsC-39 (Prelude-C-42_Num__Int arg-0 8) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int bind-0 arg-0) bind-1)))))))))))))
(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--1322-587-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--1326-397 (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--1326-397 arg-1 arg-0 (Prelude-C-60_Ord__Int arg-1 (Prelude-fromInteger_Num__Int 0))))) (let ((remainder (Prelude-abs_Abs__Int (Prelude-C-45_Neg__Int arg-0 (Prelude-C-42_Num__Int dividend arg-1))))) (Builtin-believe_me 'erased 'erased (vector 1 dividend remainder (Builtin-believe_me 'erased 'erased (vector 0 )))))))))))
(define Hex-Utils-with--1269-545 (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--1267-536-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3)))))))
(define Hex-Utils-n--1386-651-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--1386-651-fromHexCharsC-39 (Prelude-C-42_Num__Int arg-0 16) e-3) (lambda (bind-1) (Prelude-pure_Applicative__Maybe 'erased (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int bind-0 arg-0) bind-1)))))))))))))
(define Hex-Utils-n--1267-536-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1269-545 arg-1 arg-1 (IntV-Views-Primitives-Data-divides arg-1 16) arg-2))))))
(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--1386-651-fromHexCharsC-39 1 ext-0)))
(define Hex-Utils-fromHex (lambda (ext-0) (Hex-Utils-fromHexChars (Prelude-unpack ext-0))))
(define Hex-Utils-asHex (lambda (arg-0) (Prelude-pack (Hex-Utils-n--1267-536-asHexC-39 arg-0 arg-0 (vector 0 )))))
(define Common-Lexer-Parser-case--2301-307 (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 (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 160))))))(else (Prelude-C-124C-124 (Prelude-isAlpha arg-1) (lambda () (Prelude-C-62_Ord__Char arg-1 (Prelude-chr (Prelude-fromInteger_Num__Int 160)))))))))))))
(define Common-Lexer-Parser-isIdentNormal (lambda (ext-0) (Common-Lexer-Parser-case--2301-307 ext-0 (vector 2 ) (Prelude-unpack ext-0))))
(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--2301-307 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--12580-17553 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-5 (Normalise-Core-gType 'erased arg-8))) eta-0)))))
(define Unelab-TTImp-case--14923-17491 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))
(define Unelab-TTImp-case--12580-17453 (lambda (arg-0 arg-1 arg-2 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-15 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))
(define Unelab-TTImp-case--12580-17397 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))
(define Unelab-TTImp-case--14653-17302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14597-17223 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14653-17302 arg-0 arg-1 arg-2 arg-3 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--12580-17158-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--12580-17180 (lambda (arg-0 arg-1 arg-2 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-15 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--14597-17223 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3 e-2 _-0 e-5 (Unelab-TTImp-used 'erased 0 arg-7))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-9 arg-3 e-5 nm e-2 arg-6) (Normalise-Core-gType 'erased arg-9))) eta-0)))))))))))))
(define Unelab-TTImp-case--14456-17105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))
(define Unelab-TTImp-case--12580-17067 (lambda (arg-0 arg-1 arg-2 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-15 (Unelab-TTImp-unelabTy arg-0 arg-11 arg-10 arg-8 arg-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))
(define Unelab-TTImp-case--12580-17003 (lambda (arg-0 arg-1 arg-2 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-15 ((Unelab-TTImp-unelabPi arg-0 arg-11 arg-10 arg-8 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))
(define Unelab-TTImp-case--12577-16968 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-2)) eta-0))))))
(define Unelab-TTImp-case--12574-16849 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 21 arg-3 e-2) (Normalise-Core-gErased 'erased arg-3))) eta-0))))))))))
(define Unelab-TTImp-case--12574-16800 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 20 arg-4 e-2) (Normalise-Core-gErased 'erased arg-4))) eta-0))))))))))
(define Unelab-TTImp-case--12574-16751 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 19 arg-3 arg-2 e-2) (Normalise-Core-gErased 'erased arg-3))) eta-0))))))))))
(define Unelab-TTImp-case--13899-16629 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 17 arg-4 arg-3 arg-14 arg-11) arg-12)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-11 arg-12)) eta-0)))))))
(define Unelab-TTImp-case--13857-16598 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 17 arg-4 arg-3 e-1 arg-11) arg-12)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-11 arg-12)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-11 arg-12)) eta-0)))))))
(define Unelab-TTImp-case--13817-16569 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 17 arg-4 arg-3 e-1 e-2) e-3)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0))))))))))
(define Unelab-TTImp-case--12574-16537 (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-15 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 17 arg-4 arg-3 e-1 e-6) e-4)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-4)) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-4)) eta-0)))))))))))))))))
(define Unelab-TTImp-case--13598-16386 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-glueBack arg-0 arg-14 arg-4 e-5))) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3))) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 arg-7 arg-10) (Normalise-Core-gErased 'erased arg-3))) eta-0)))))))
(define Unelab-TTImp-case--13562-16345 (lambda (arg-0 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-15 ((Normalise-Core-getNF 'erased arg-6 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-glueBack arg-0 e-6 arg-4 e-12))) eta-0)))))))(else (let ((act-17 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))) eta-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 arg-7 e-2) (Normalise-Core-gErased 'erased arg-3))) eta-0)))))))))))))))))))
(define Unelab-TTImp-case--12574-16317 (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-15 (Unelab-TTImp-unelabTy arg-0 arg-6 arg-5 arg-4 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-getNF 'erased arg-6 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-glueBack arg-0 e-8 arg-4 e-15))) eta-0)))))))(else (let ((act-18 (((e-9 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))) eta-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 e-2 e-6) (Normalise-Core-gErased 'erased arg-3))) eta-0)))))))))))))))))))))))))))
(define Unelab-TTImp-case--12574-16276 (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-15 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--13357-16201 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 arg-4 0) (Normalise-Core-gErased 'erased arg-4))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 28 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))) eta-0)))))))
(define Unelab-TTImp-case--12574-16145 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 28 arg-4 arg-9) (Normalise-Core-gnf arg-0 arg-5 (TT-Core-embed 'erased 'erased e-1)))) eta-0)))) (else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 arg-4 0) (Normalise-Core-gErased 'erased arg-4))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 28 arg-4 arg-9) (Normalise-Core-gErased 'erased arg-4))) eta-0))))))))))
(define Unelab-TTImp-case--13217-16076 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 arg-3 0) (Normalise-Core-gErased 'erased arg-3))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))) eta-0)))))))
(define Unelab-TTImp-case--12574-16023 (lambda (arg-0 arg-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-15 ((Context-Core-getFullName arg-6 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 arg-3 e-5) (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1)))) eta-0))))))))) (else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 arg-3 0) (Normalise-Core-gErased 'erased arg-3))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 arg-3 arg-1) (Normalise-Core-gErased 'erased arg-3))) eta-0))))))))))
(define Unelab-TTImp-case--13074-15926 (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-15 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-2 (vector 7 e-4 e-5)) arg-6 arg-2 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 arg-3)) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-3)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-3)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-3)) eta-0)))))))
(define Unelab-TTImp-case--12568-15908 (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-15 (Unelab-TTImp-unelabCase arg-4 (vector 0 e-5 (vector 7 e-7 e-6)) e-3 arg-2 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8 arg-3)) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-3)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-3)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-3)) eta-0))))))))))
(define Unelab-TTImp-case--12848-15750 (lambda (arg-0 arg-1 arg-2 arg-3 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--12566-15492-mkCase arg-0 arg-1 arg-2 arg-3 arg-10 arg-12 0 arg-1)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define Unelab-TTImp-case--12815-15714 (lambda (arg-0 arg-1 arg-2 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--12848-15750 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define Unelab-TTImp-case--12794-15690 (lambda (arg-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--12815-15714 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--12566-15487-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define Unelab-TTImp-case--12566-15675 (lambda (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--12794-15690 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define Unelab-TTImp-case--12593-15547 (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--12566-15488-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3))))))
(define Unelab-TTImp-n--12409-15332-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--15136-17632-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--15136-17634-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--15136-17633-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--15136-17632-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))
(define Unelab-TTImp-n--15136-17633-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-7))) "]")))))))
(define Unelab-TTImp-n--12566-15490-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--12566-15489-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--12566-15491-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--12566-15490-nthArg arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-5 e-10))) (lambda (eta-0) (let ((act-15 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 pat eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Unelab-TTImp-unelabTy e-2 arg-3 (vector 0 ) e-6 e-11 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 (Builtin-fst 'erased 'erased e-5) (Builtin-fst 'erased 'erased e-8))) eta-0))))))))))))))))))))))))
(define Unelab-TTImp-n--12566-15492-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Unelab-TTImp-n--12566-15491-mkClause arg-0 arg-1 arg-2 arg-3 e-7 arg-6 eta-1)) arg-4) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-7 e-8 (vector 30 e-7 1) e-9)) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-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--12566-15492-mkCase arg-0 arg-1 arg-2 arg-3 arg-4 e-0 (+ 1 arg-6) e-3)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))))))
(define Unelab-TTImp-n--12580-17158-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--12566-15488-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--12566-15488-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--12566-15489-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--12593-15547 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6))))
(define Unelab-TTImp-n--12568-15888-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--12568-15888-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--12568-15888-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--12566-15487-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--12409-15332-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-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-3112) (TT-Core-weaken_Weaken__Term n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Term vars ns arg-3116))))) arg-0 e-4 'erased arg-3))))) eta-0))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 e-7 e-10) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))) eta-0)))))))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 e-7 0) (Normalise-Core-gErased 'erased e-7))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 e-7 e-9) (Normalise-Core-gErased 'erased e-7))) eta-0))))))))))))))))))))) ((2) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((mkn (Name-Core-nameRoot e-12))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 28 e-11 mkn) (Normalise-Core-gnf arg-0 arg-3 (TT-Core-embed 'erased 'erased e-1)))) eta-0))) (else (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 e-11 0) (Normalise-Core-gErased 'erased e-11))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 28 e-11 mkn) (Normalise-Core-gErased 'erased e-11))) 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-22 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-23 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-19 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-glueBack arg-0 e-9 arg-3 e-16))) eta-0)))))))(else (let ((act-19 (((e-10 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-23)) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))) eta-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 e-21 e-2 e-7) (Normalise-Core-gErased 'erased e-21))) 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-15 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-27) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-28) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 17 e-25 e-26 e-1 e-7) e-4)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 e-4)) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 e-4)) eta-0))))))))))))))))))))))))) ((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-15 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-32) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 19 e-30 e-31 e-2) (Normalise-Core-gErased 'erased e-30))) eta-0))))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-37) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 20 e-34 e-2) (Normalise-Core-gErased 'erased e-34))) eta-0)))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 e-41) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 21 e-39 e-2) (Normalise-Core-gErased 'erased e-39))) eta-0)))))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 26 e-43 e-44) (Normalise-Core-gErased 'erased e-43))) eta-0))))) ((10) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 e-46 0) (Normalise-Core-gErased 'erased e-46))) eta-0)))) ((11) (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 27 e-49) (Normalise-Core-gType 'erased e-49))) eta-0))))(else (let ((fc (TT-Core-getLoc 'erased arg-4))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 30 fc 1) (Normalise-Core-gErased 'erased fc))) eta-0))))))))
(define Unelab-TTImp-unelabTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 ((Unelab-TTImp-unelabTyC-39 arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0)))(else (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unelab-TTImp-case--12568-15908 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--12568-15888-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-3 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-2)) eta-0)))))))))))))))
(define Unelab-TTImp-unelabNoSugar (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 1 ) arg-2 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Builtin-fst 'erased 'erased e-5)) ext-0))))))))
(define Unelab-TTImp-unelabNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 2 ) arg-2 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Builtin-fst 'erased 'erased e-5)) ext-0))))))))
(define Unelab-TTImp-unelabCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--12794-15690 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) ext-0))))))))))))))))
(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-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-2) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) 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-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-7 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((sc4 e-9)) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) 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-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-11 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Unelab-TTImp-unelabPi arg-0 arg-1 arg-2 arg-4 e-10) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((nm (let ((_-0 (vector 0 e-2 e-3))) (Unelab-TTImp-case--14597-17223 arg-0 e-11 e-10 e-9 arg-5 arg-9 arg-8 arg-7 arg-4 arg-3 arg-2 arg-1 e-3 e-2 _-0 e-6 (Unelab-TTImp-used 'erased 0 arg-7))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-3 e-9 e-6 nm e-2 arg-8) (Normalise-Core-gType 'erased arg-3))) eta-0)))))))))))))))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-15 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-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-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-18 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-19 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))) (else (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Unelab-TTImp-unelabTy arg-0 arg-1 arg-2 arg-4 e-22 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-8 (Normalise-Core-gType 'erased arg-3))) eta-0))))))))))))))
(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--15136-17634-showScope arg-0 e-4 e-3 e-2 e-1 arg-2 arg-1 e-4)))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 28 e-1 mkn)) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (Unelab-TTImp-unelabTy arg-0 arg-1 (vector 0 ) arg-2 arg-3 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Builtin-fst 'erased 'erased e-5)) eta-0))))))))))))
(define Value-Core-case--9559-3845 (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--9559-3845 (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--3744-2544 (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--3744-2507 (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--3656-2422 (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--3405-2278 (lambda (arg-0 arg-1 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--3405-2204 (lambda (arg-0 arg-1 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--3292-2180 (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--3405-2204 '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--3405-2278 '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--3292-2106 (lambda (arg-0 arg-1 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--2551-2082 (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--3292-2106 '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--3292-2180 '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--3179-2028 (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--3037-1986 (lambda (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--3062-1928 (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--3037-1886 (lambda (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--2551-1866 (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--3037-1886 '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--3037-1986 '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--2865-1804 (lambda (arg-0 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--2865-1736 (lambda (arg-0 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--2762-1714 (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--2865-1736 '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--2865-1804 '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--2762-1646 (lambda (arg-0 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--2551-1624 (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--2762-1646 '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--2762-1714 '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--2623-1574 (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--2623-1520 (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--2551-1502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2623-1520 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2623-1574 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
(define IntMap-Data-case--2551-1454 (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--2471-1385 (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--2212-1288 (lambda (arg-0 arg-1 arg-2 arg-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--2212-1177 (lambda (arg-0 arg-1 arg-2 arg-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--2049-1146 (lambda (arg-0 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--2212-1177 '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--2212-1288 '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--2049-1036 (lambda (arg-0 arg-1 arg-2 arg-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--1694-1005 (lambda (arg-0 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--2049-1036 '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--2049-1146 '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--1823-927 (lambda (arg-0 arg-1 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--1823-838 (lambda (arg-0 arg-1 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--1694-811 (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--1823-838 '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--1823-927 '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--1694-709 (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--1587-648 (lambda (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--1464-601 (lambda (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--1587-648 '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--1464-553 (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--1464-510 (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--3578-2334-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--3578-2334-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3578-2334-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--3578-2334-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3578-2334-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3578-2334-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--3578-2334-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--1464-510 '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--1464-553 '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--1464-601 '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--1694-709 '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--1694-811 '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--1694-1005 '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--2471-1385 '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--2551-1454 '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--2551-1502 '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--2551-1624 '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--2551-1866 '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--2551-2082 '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--3656-2422 '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--3744-2507 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3744-2544 '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--4771-1468 (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--4706-1446 (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--4771-1468 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3)))))))
(define Env-Core-case--4706-1405 (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--4615-1329 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3))))
(define Env-Core-case--4414-1152 (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-3112) (TT-Core-weaken_Weaken__Term n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Term vars ns arg-3116))))) arg-0 arg-2 'erased arg-7)))))))
(define Env-Core-case--3901-633 (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--3880-609 (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--4414-1207-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--4414-1207-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--4414-1141-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--4414-1222-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--4414-1222-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--4414-1222-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-namesNoLet (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) (Env-Core-namesNoLet 'erased e-3 e-9))(else (vector 1 e-2 (Env-Core-namesNoLet 'erased e-3 e-9)))))))))))))))
(define Env-Core-mkShrinkSub (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Env-Core-case--4706-1405 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--4706-1446 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-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--4414-1152 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--4414-1141-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--4414-1207-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--4414-1222-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--3880-609 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-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))) (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--8272-3044 (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--8134-2928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Core-Core-filterM 'erased arg-3 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-1 e-5)) eta-0)))))))) (else (Core-Core-filterM 'erased arg-3 arg-2))))))
(define Core-Core-case--8076-2870 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Core-Core-case--8018-2813 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (Core-Core-anyM 'erased arg-3 arg-2))))))
(define Core-Core-case--7589-2364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5))
(define Core-Core-case--7563-2350 (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--7589-2364 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 e-5) eta-0))))))))
(define Core-Core-case--7390-2156 (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) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-3 e-5)))))))
(define Core-Core-case--7260-2022 (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) (Prelude-pure_Applicative__IO 'erased (vector 0 (arg-2 e-2)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 e-5) eta-0))))))))
(define Core-Core-case--5988-790 (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--5756-765 (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--5756-667 (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--5696-518 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer")))))
(define Core-Core-n--5756-842-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0)))
(define Core-Core-n--5756-843-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0)))
(define Core-Core-n--5756-1407-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--5696-518 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-194 (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-194)) " 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--5756-842-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--5756-843-showRel e-53 e-52 e-51 e-50 e-53) " context")))))))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-55) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-57) (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-54 e-58) " so must be fully applied")))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-60 (vector-ref sc0 2))) (let ((e-62 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-60) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-59 e-62) " borrows, so must return a concrete type"))))))) ((17) (let ((e-63 (vector-ref sc0 1))) (let ((e-64 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-63) (Strings-Prelude-C-43C-43 ":Ambiguous name " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-64)))))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (let ((e-68 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-66) (Strings-Prelude-C-43C-43 ":Ambiguous elaboration " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-65 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-65 d x)))) e-68))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-70 (vector-ref sc0 2))) (let ((e-72 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-70) (Strings-Prelude-C-43C-43 ":Ambiguous search " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-69 x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__C-40TermC-32C-36varsC-41 e-69 d x)))) e-72))))))) ((20) (let ((e-73 (vector-ref sc0 1))) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-73) (Strings-Prelude-C-43C-43 ":Ambiguity too deep in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-74) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-75))))))))) ((21) (let ((e-76 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "No successful elaboration: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d) (lambda (x-0) (Core-Core-showPrec_Show__Error d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Core-Core-show_Show__Error x-0)) (lambda (d-0) (lambda (x-0) (Core-Core-showPrec_Show__Error d-0 x-0))))) d x)))) e-76)))) ((22) (let ((e-78 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-78) ":Can't infer type of record to update"))) ((23) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (let ((e-82 (vector-ref sc0 3))) (let ((sc1 e-82)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-80) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-81 " is not part of a record type")))) (else (let ((e-197 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-80) (Strings-Prelude-C-43C-43 ":Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-197) (Strings-Prelude-C-43C-43 " has no field " e-81)))))))))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-83) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type")))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-85) (Strings-Prelude-C-43C-43 ":Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates")))))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-88) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) d x)))) e-90) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-87 e-91)))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-95 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-93) (Strings-Prelude-C-43C-43 ":Need to bind implicits " (Strings-Prelude-C-43C-43 (Name-Core-showSep "," (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (Builtin-fst 'erased 'erased x)) (Strings-Prelude-C-43C-43 " : " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-92 (Builtin-snd 'erased 'erased x))))) e-95)) "\xa;(The front end should probably have done this for you. Please report!)"))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-97 (vector-ref sc0 2))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-97) (Strings-Prelude-C-43C-43 ":Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-96 e-100)))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-104 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-102) (Strings-Prelude-C-43C-43 ":Can't solve goal " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-101 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-106 (vector-ref sc0 2))) (let ((e-107 (vector-ref sc0 3))) (let ((e-110 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-106) (Strings-Prelude-C-43C-43 ":Can't solve goal " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-105 e-110) (Strings-Prelude-C-43C-43 " since argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-107) " can't be inferred")))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Unsolved holes " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d) (lambda (x-0) (FC-Core-showPrec_Show__FC d x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (FC-Core-show_Show__FC x-0)) (lambda (d-0) (lambda (x-0) (FC-Core-showPrec_Show__FC d-0 x-0)))) (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0))))) d x)))) e-111)))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-113 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-113) (Strings-Prelude-C-43C-43 ":Can't infer type for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 " (got " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-112 e-117) (Strings-Prelude-C-43C-43 " with hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-116) ")"))))))))))))) ((33) (let ((e-119 (vector-ref sc0 2))) (let ((e-121 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-119) (Strings-Prelude-C-43C-43 ":Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) " is solved by unification")))))) ((34) (let ((e-123 (vector-ref sc0 1))) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-123) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-125) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-127))))))))))))))) ((35) (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-128) (Strings-Prelude-C-43C-43 ":Non linear pattern variable " (Name-Core-show_Show__Name e-129)))))) ((36) (let ((e-130 (vector-ref sc0 1))) (let ((e-131 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-130) (Strings-Prelude-C-43C-43 ":Pattern not allowed here: " (Name-Core-show_Show__Name e-131)))))) ((37) (let ((e-132 (vector-ref sc0 1))) (let ((e-133 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-132) (Strings-Prelude-C-43C-43 ":No type declaration for " (Name-Core-show_Show__Name e-133)))))) ((38) (let ((e-134 (vector-ref sc0 1))) (let ((e-135 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-134) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined")))))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-137 (vector-ref sc0 2))) (let ((e-139 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-137) (Strings-Prelude-C-43C-43 ":Not a function type: " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-136 e-139))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-141 (vector-ref sc0 2))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-141) (Strings-Prelude-C-43C-43 ":Rewriting by " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-143) (Strings-Prelude-C-43C-43 " did not change type " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-140 e-144)))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-146 (vector-ref sc0 2))) (let ((e-148 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-146) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-145 e-148) " is not a rewrite rule type"))))))) ((42) (let ((e-149 (vector-ref sc0 1))) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " have different numbers of arguments")))) ((1) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Patterns for " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-150) " require matching on different types")))) ((4) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Can't infer type to match in " (Name-Core-show_Show__Name e-150)))) ((2) (let ((e-198 (vector-ref sc1 1))) (let ((sc2 e-198)) (let ((e-202 (vector-ref sc2 1))) (let ((e-203 (vector-ref sc2 2))) (let ((sc3 e-203)) (let ((e-207 (vector-ref sc3 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Attempt to match on erased argument " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-202 e-207) (Strings-Prelude-C-43C-43 " in " (Name-Core-show_Show__Name e-150)))))))))))) (else (let ((e-199 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-149) (Strings-Prelude-C-43C-43 ":Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-199) " is not fully applied"))))))))))) ((43) (let ((e-152 (vector-ref sc0 1))) (let ((e-153 (vector-ref sc0 2))) (let ((e-155 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-153) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-152 e-155) " as it is has a polymorphic type"))))))) ((44) (let ((e-156 (vector-ref sc0 1))) (let ((e-157 (vector-ref sc0 2))) (let ((e-159 (vector-ref sc0 4))) (let ((e-160 (vector-ref sc0 5))) (let ((e-161 (vector-ref sc0 6))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-157) (Strings-Prelude-C-43C-43 ":Can't match on " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-156 e-160) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-159) (Strings-Prelude-C-43C-43 ")" (Strings-Prelude-C-43C-43 " - it elaborates to " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-156 e-161)))))))))))))) ((45) (let ((e-162 (vector-ref sc0 1))) (let ((e-163 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-162) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 e-163 " can't be bound here")))))) ((46) (let ((e-164 (vector-ref sc0 1))) (let ((e-165 (vector-ref sc0 2))) (let ((e-167 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-165) (Strings-Prelude-C-43C-43 ":Bad elaborator script " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-164 e-167))))))) ((47) (let ((e-168 (vector-ref sc0 1))) (let ((e-169 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-168) (Strings-Prelude-C-43C-43 ":" e-169))))) ((48) (let ((e-170 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-170)))) ((49) (let ((e-171 (vector-ref sc0 1))) (let ((e-172 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "File error (" (Strings-Prelude-C-43C-43 e-171 (Strings-Prelude-C-43C-43 "): " (File-System-show_Show__FileError e-172))))))) ((50) (let ((e-174 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Parse error (" (Strings-Prelude-C-43C-43 (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-174 e-176) ")"))))) ((51) (let ((e-177 (vector-ref sc0 1))) (let ((e-178 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-177) (Strings-Prelude-C-43C-43 ":" (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-178)) " not found")))))) ((52) (let ((e-179 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Module imports form a cycle: " (Name-Core-showSep " -> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-n--5756-1407-showMod e-179 eta-0)) e-179))))) ((53) "Internal error when resolving implicit laziness") ((54) (let ((e-180 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-180))) ((55) (let ((e-181 (vector-ref sc0 1))) (let ((e-182 (vector-ref sc0 2))) (let ((e-183 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-181) (Strings-Prelude-C-43C-43 ":When elaborating type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-182) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-183))))))))) ((56) (let ((e-184 (vector-ref sc0 1))) (let ((e-185 (vector-ref sc0 2))) (let ((e-186 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-184) (Strings-Prelude-C-43C-43 ":When elaborating type of constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-185) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-186))))))))) ((57) (let ((e-187 (vector-ref sc0 1))) (let ((e-188 (vector-ref sc0 2))) (let ((e-189 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-187) (Strings-Prelude-C-43C-43 ":When elaborating left hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-188) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-189))))))))) (else (let ((e-190 (vector-ref sc0 1))) (let ((e-191 (vector-ref sc0 2))) (let ((e-192 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-190) (Strings-Prelude-C-43C-43 ":When elaborating right hand side of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-191) (Strings-Prelude-C-43C-43 ":\xa;" (Core-Core-show_Show__Error e-192)))))))))))))
(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-15 (arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((pC-39 (vector 0 e-2))) ((Core-Core-case--7589-2364 'erased arg-1 arg-2 e-2 pC-39 (arg-2 e-2)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 1 e-5) ext-0))))))))
(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-2259) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-2259 eta-0)))) (lambda (a) (lambda (arg-2260) (lambda (arg-2261) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-2260 arg-2261 eta-0))))))))
(define Core-Core-wrapError (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (arg-1 e-2)) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 1 e-5) ext-0))))))))
(define Core-Core-when (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (arg-1)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4)))) eta-2)) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-reverse 'erased arg-4)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((arg-2 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))))))
(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-15 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-2 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-5 e-6)) 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-15 ((arg-2 e-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 ((arg-2 e-7) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-8 e-9)) 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-15 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-2 e-11) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-9 e-5 e-6)) 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-15 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-14) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-2 e-15) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-13 e-5 e-6)) eta-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-15 ((arg-2 e-18) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-2 e-19) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-17 e-5 e-6)) eta-0)))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((arg-2 e-22) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-21 e-5)) eta-0))))))))))))))
(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-15 (IORef-Data-writeIORef 'erased arg-3 arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0))))
(define Core-Core-pure (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) ext-0)))
(define Core-Core-newRef (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-newIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) ext-0))))))))
(define Core-Core-map (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-2 eta-0)) arg-3 ext-0)))
(define Core-Core-getWarningLoc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 1 e-1)))))
(define Core-Core-getErrorLoc (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Core-Core-getErrorLoc e-0))) ((1) (let ((e-2 (vector-ref sc0 2))) (vector 1 e-2))) ((2) (let ((e-7 (vector-ref sc0 2))) (vector 1 e-7))) ((3) (let ((e-12 (vector-ref sc0 2))) (vector 1 e-12))) ((4) (let ((e-17 (vector-ref sc0 2))) (vector 1 e-17))) ((5) (let ((e-22 (vector-ref sc0 2))) (vector 1 e-22))) ((6) (let ((e-28 (vector-ref sc0 2))) (vector 1 e-28))) ((7) (let ((e-31 (vector-ref sc0 1))) (vector 1 e-31))) ((8) (let ((e-33 (vector-ref sc0 1))) (vector 1 e-33))) ((9) (let ((e-36 (vector-ref sc0 1))) (vector 1 e-36))) ((10) (let ((e-38 (vector-ref sc0 1))) (vector 1 e-38))) ((11) (let ((e-41 (vector-ref sc0 1))) (vector 1 e-41))) ((12) (let ((e-44 (vector-ref sc0 1))) (vector 1 e-44))) ((13) (let ((e-47 (vector-ref sc0 1))) (vector 1 e-47))) ((14) (let ((e-50 (vector-ref sc0 1))) (vector 1 e-50))) ((15) (let ((e-55 (vector-ref sc0 2))) (vector 1 e-55))) ((16) (let ((e-60 (vector-ref sc0 2))) (vector 1 e-60))) ((17) (let ((e-63 (vector-ref sc0 1))) (vector 1 e-63))) ((18) (let ((e-66 (vector-ref sc0 2))) (vector 1 e-66))) ((19) (let ((e-70 (vector-ref sc0 2))) (vector 1 e-70))) ((20) (let ((e-73 (vector-ref sc0 1))) (vector 1 e-73))) ((21) (let ((e-76 (vector-ref sc0 1))) (let ((sc1 e-76)) (case (vector-ref sc1 0) ((1) (let ((e-194 (vector-ref sc1 1))) (let ((sc2 e-194)) (let ((e-200 (vector-ref sc2 2))) (Core-Core-getErrorLoc e-200))))) (else (vector 0 )))))) ((22) (let ((e-78 (vector-ref sc0 2))) (vector 1 e-78))) ((23) (let ((e-80 (vector-ref sc0 1))) (vector 1 e-80))) ((24) (let ((e-83 (vector-ref sc0 1))) (vector 1 e-83))) ((25) (let ((e-85 (vector-ref sc0 1))) (vector 1 e-85))) ((26) (let ((e-88 (vector-ref sc0 2))) (vector 1 e-88))) ((27) (let ((e-93 (vector-ref sc0 2))) (vector 1 e-93))) ((28) (let ((e-97 (vector-ref sc0 2))) (vector 1 e-97))) ((29) (let ((e-102 (vector-ref sc0 2))) (vector 1 e-102))) ((30) (let ((e-106 (vector-ref sc0 2))) (vector 1 e-106))) ((31) (let ((e-111 (vector-ref sc0 1))) (let ((sc1 e-111)) (case (vector-ref sc1 0) ((1) (let ((e-202 (vector-ref sc1 1))) (let ((sc2 e-202)) (let ((e-207 (vector-ref sc2 1))) (vector 1 e-207))))) (else (vector 0 )))))) ((32) (let ((e-113 (vector-ref sc0 2))) (vector 1 e-113))) ((33) (let ((e-119 (vector-ref sc0 2))) (vector 1 e-119))) ((34) (let ((e-123 (vector-ref sc0 1))) (vector 1 e-123))) ((35) (let ((e-128 (vector-ref sc0 1))) (vector 1 e-128))) ((36) (let ((e-130 (vector-ref sc0 1))) (vector 1 e-130))) ((37) (let ((e-132 (vector-ref sc0 1))) (vector 1 e-132))) ((38) (let ((e-134 (vector-ref sc0 1))) (vector 1 e-134))) ((39) (let ((e-137 (vector-ref sc0 2))) (vector 1 e-137))) ((40) (let ((e-141 (vector-ref sc0 2))) (vector 1 e-141))) ((41) (let ((e-146 (vector-ref sc0 2))) (vector 1 e-146))) ((42) (let ((e-149 (vector-ref sc0 1))) (vector 1 e-149))) ((43) (let ((e-153 (vector-ref sc0 2))) (vector 1 e-153))) ((44) (let ((e-157 (vector-ref sc0 2))) (vector 1 e-157))) ((45) (let ((e-162 (vector-ref sc0 1))) (vector 1 e-162))) ((46) (let ((e-165 (vector-ref sc0 2))) (vector 1 e-165))) ((47) (let ((e-168 (vector-ref sc0 1))) (vector 1 e-168))) ((48) (vector 0 )) ((49) (vector 0 )) ((50) (let ((e-175 (vector-ref sc0 2))) (vector 1 e-175))) ((51) (let ((e-177 (vector-ref sc0 1))) (vector 1 e-177))) ((52) (vector 0 )) ((53) (vector 0 )) ((54) (vector 0 )) ((55) (let ((e-183 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-183))) ((56) (let ((e-186 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-186))) ((57) (let ((e-189 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-189))) (else (let ((e-192 (vector-ref sc0 3))) (Core-Core-getErrorLoc e-192)))))))
(define Core-Core-get (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0))))
(define Core-Core-filterM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 ((Core-Core-filterM 'erased arg-1 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-6)) eta-0))))))) (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-15 (arg-2 ext-0))) ((Prelude-either 'erased 'erased 'erased (lambda () arg-3) (lambda () arg-4) act-15) ext-0))))
(define Core-Core-coreLift (lambda (arg-0 arg-1 ext-0) (let ((act-15 (arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0))))
(define Core-Core-coreFail (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (vector 0 arg-1) ext-0)))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))
(define Core-Core-C-62C-62C-61 (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-C-60C-42C-62_Applicative__IO 'erased 'erased (lambda (eta-0) (Prelude-C-60C-42C-62_Applicative__IO 'erased 'erased (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (lambda (arg-4) (lambda (arg-5) (Prelude-C-60C-42C-62_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-4 arg-5))) eta-1)) arg-2 eta-0)) arg-3 ext-0)))
(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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-2 eta-0)) arg-3 ext-0)))
(define IORef-Data-writeIORef (lambda (arg-0 arg-1 arg-2 ext-0) (set-box! arg-1 arg-2)))
(define IORef-Data-readIORef (lambda (arg-0 arg-1 ext-0) (unbox arg-1)))
(define IORef-Data-prim__writeIORef (lambda (arg-0 arg-1 arg-2 arg-3) (set-box! arg-1 arg-2)))
(define IORef-Data-prim__readIORef (lambda (arg-0 arg-1 arg-2) (unbox arg-1)))
(define IORef-Data-prim__newIORef (lambda (arg-0 arg-1 arg-2) (box arg-1)))
(define IORef-Data-newIORef (lambda (arg-0 arg-1 ext-0) (let ((act-15 (box arg-1))) (Prelude-pure_Applicative__IO 'erased act-15 ext-0))))
(define Context-Core-case--26519-18052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Clock-System-clockTime (vector 3 )) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano (Prelude-fromInteger_Num__Integer 1000000000))) (let ((t (Prelude-C-43_Num__Integer (Prelude-C-42_Num__Integer (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-16 (arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 ((Clock-System-clockTime (vector 3 )) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (Prelude-C-43_Num__Integer (Prelude-C-42_Num__Integer (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-18 (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--26519-18023-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) (Prelude-fromInteger_Num__Integer 1000000))))) "s")))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-0)))))))))))))))))))))))))) (else arg-1)))))
(define Context-Core-case--26366-17883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " e-5))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--26320-17842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-1) (Strings-Prelude-C-43C-43 ": " (arg-0)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--26245-17778 (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-15 (Context-Core-toFullNames 'erased arg-4 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-2) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-5)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--26187-17750 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--26127-17700 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 arg-0 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--26044-17631 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 arg-0 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--25973-17561 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 e-38 arg-0 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--25902-17491 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--25815-17364 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-C-61C-61_Eq__Name e-5 e-6)) eta-0))))))))))))))))))
(define Context-Core-case--25705-17256 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-getFullName arg-1 (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-C-61C-61_Eq__Name e-5 e-6)) eta-0))))))))))))))))))
(define Context-Core-case--25635-17230 (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--25582-17174 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--25529-17124 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--25476-17074 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--25401-17016 (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--25315-16946 (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--25186-16824 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 arg-0 e-38) e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--25121-16760 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 arg-0 e-37 e-38) e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--25056-16696 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 e-35 e-36 e-37 arg-0) e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24991-16632 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-34 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 e-34 arg-0 e-36 e-37 e-38) e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24926-16568 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-29)) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 (vector 0 arg-0 e-35 e-36 e-37 e-38) e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24841-16450 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10)) 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))))))))(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--24785-16425 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--24717-16374 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 arg-0 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24698-16304 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 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 Context-Core-case--24602-16270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 arg-4 e-35 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24581-16208 (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-15 (IORef-Data-writeIORef 'erased arg-1 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-26 e-2 e-3 (vector 0 (vector 0 e-1 e-35 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
(define Context-Core-case--24513-16179 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 arg-0 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24300-15969 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-0 (vector 0 ))) e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24223-15893 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-0 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24146-15817 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-26)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-37 (vector-ref sc2 4))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-34 e-35 e-36 e-37 e-38 (List-Prelude-C-43C-43 'erased e-39 (vector 1 arg-0 (vector 0 ))) e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24063-15740 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((sc2 e-28)) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (let ((e-38 (vector-ref sc2 5))) (let ((e-39 (vector-ref sc2 6))) (let ((e-40 (vector-ref sc2 7))) (let ((e-41 (vector-ref sc2 8))) (let ((e-42 (vector-ref sc2 9))) (let ((e-43 (vector-ref sc2 10))) (let ((e-44 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 (vector 0 e-34 e-35 e-36 arg-0 e-38 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--24003-15671 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 arg-0 e-28 e-29 e-30 e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--23946-15587 (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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0)) eta-0)))))))
(define Context-Core-case--23888-15566 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-61 (vector-ref sc3 1))) e-61)))) (let ((e-44 (vector-ref sc2 2))) e-44)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--23703-15393 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-0 e-35) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--23623-15318 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (let ((e-35 (vector-ref sc1 10))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-0 e-33) e-34 e-35) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--23473-15164 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--23338-15088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--23188-15012 (lambda (arg-0 arg-1 arg-2 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-15 ((Context-Core-n--23188-14897-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))
(define Context-Core-case--23203-14930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (let ((e-3 (vector-ref sc0 2))) (Context-Core-n--23188-14897-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Int arg-15 1) arg-13 e-3)))))
(define Context-Core-case--22967-14712 (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--22895-14687 (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--22967-14712 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--22785-14542 (lambda (arg-0 arg-1 arg-2 arg-3 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--22641-14408 (lambda (arg-0 arg-1 arg-2 arg-3 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--22563-14367 (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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-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--22513-14284 (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--22423-14250 (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--22408-14191 (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-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Unknown code generator " arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))))
(define Context-Core-case--22338-14155 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--22262-14086 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-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--22210-14037 (lambda (arg-0 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--22158-13986 (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--21939-13895 (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--21939-13805 (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--21891-13749 (lambda (arg-0 arg-1 arg-2 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-15 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))))
(define Context-Core-case--21877-13705 (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-15 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-toResolvedNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Transform arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Transform arg-4574 arg-4575)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Transform arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Transform arg-4574 arg-4575)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) ((Context-Core-case--21891-13749 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--21825-13687 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 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--21696-13573 (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--21617-13500 (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--21414-13406 (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--21414-13325 (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--21327-13271 (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-15 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (else (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define Context-Core-case--21327-13226 (lambda (arg-0 arg-1 arg-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--21202-13125 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--21181-13096 (lambda (arg-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--21163-13081 (lambda (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--21181-13096 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--21038-12994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--21017-12965 (lambda (arg-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--20999-12950 (lambda (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--21017-12965 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--20901-12868 (lambda (arg-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--20883-12853 (lambda (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--20901-12868 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--20777-12762 (lambda (arg-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-15 ((Context-Core-n--20614-12601-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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--20614-12747 (lambda (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--20777-12762 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--20620-12625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Context-Core-n--20614-12601-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-12 e-5)) eta-0)))))))) (else (Context-Core-n--20614-12601-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--20555-12585 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--20497-12530 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--20399-12422 (lambda (arg-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--20381-12407 (lambda (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--20399-12422 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--20045-12181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--20021-12051-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))) eta-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--20021-12051-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--20021-12052-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--20021-12052-direct arg-0 arg-1 arg-2 arg-3 eta-0))) arg-15)))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 )))))))) eta-0)))))))))))
(define Context-Core-case--20045-12112 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--20021-12075 (lambda (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-15 (Context-Core-toFullNames 'erased arg-3 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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--20045-12112 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--20021-12051-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))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))) eta-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--20021-12051-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--20021-12052-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--20021-12052-direct arg-0 arg-1 arg-2 arg-3 eta-1))) hs)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 )))))))) eta-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--19871-11937 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Context-Core-setVisibility arg-2 arg-1 e-6 (vector 0 ) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-4)) eta-0)))))))
(define Context-Core-case--19786-11892 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))))
(define Context-Core-case--19768-11846 (lambda (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-15 (Context-Core-addDef arg-3 arg-1 (let ((sc1 e-1)) (let ((e-0 (vector-ref sc1 1))) (let ((e-21 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-21 e-2 e-3 e-4 e-5 e-6 e-7 e-8 arg-0 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
(define Context-Core-case--19668-11757 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-1)) (let ((e-10 (vector-ref sc1 11))) e-10))) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
(define Context-Core-case--19580-11710 (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--19562-11662 (lambda (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
(define Context-Core-case--19474-11614 (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--19456-11566 (lambda (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
(define Context-Core-case--19266-11426 (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--19248-11380 (lambda (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
(define Context-Core-case--19095-11281 (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--19077-11228 (lambda (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
(define Context-Core-case--18936-11151 (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--18918-11085 (lambda (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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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)))))))(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--18820-11037 (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--18802-10981 (lambda (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
(define Context-Core-case--18541-10730 (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--18496-10679 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (arg-3 e-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--18429-10652 (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--18341-10544 (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-15 (Context-Core-setCtxt arg-1 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))
(define Context-Core-case--18298-10507 (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-15 (Context-Core-setCtxt arg-1 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))
(define Context-Core-case--18246-10483 (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--18171-10417 (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--18154-10373 (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--18077-10332 (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--18060-10288 (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--17983-10247 (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--17966-10203 (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--17891-10164 (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--17874-10120 (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--17774-10077 (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--17755-10010 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))
(define Context-Core-case--17738-9995 (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--17755-10010 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--17618-9923 (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--17601-9869 (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-15 (let ((act-15 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))
(define Context-Core-case--17447-9839 (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--17447-9747 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--17430-9715 (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-15 (let ((act-15 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--17447-9747 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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))
(define Context-Core-case--17343-9629 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Context-Core-case--17335-9618 (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--17343-9629 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Context-Core-case--17278-9600 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--17223-9548 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--17172-9498 (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 (Prelude-fromInteger_Num__Int 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--17102-9441 (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--17032-9385 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 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--17032-9323-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--17035-9337 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7)))))))))))
(define Context-Core-case--16930-9262 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))
(define Context-Core-case--13883-6464 (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--13882-6373 (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--13752-6201 (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--13751-6182 (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--12794-5370 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 9 e-1) arg-3 arg-1 arg-6)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-3 arg-1 arg-6)) eta-0)))))))
(define Context-Core-case--12793-5270 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)) arg-3 arg-1 arg-6)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-3 arg-1 arg-6)) eta-0)))))))
(define Context-Core-case--12201-4933 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-4 arg-3 e-1 arg-6)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-4 arg-3 arg-2 arg-6)) eta-0)))))))
(define Context-Core-case--12201-4884 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 arg-2 (vector 9 e-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 arg-2 arg-1)) eta-0)))))))
(define Context-Core-case--12200-4688 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 arg-2 (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21)))) eta-0)))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int arg-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 arg-2 (vector 9 arg-1))) eta-0)))))))))))
(define Context-Core-case--12128-4639 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-1)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define Context-Core-case--12127-4615 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-1)) (let ((e-21 (vector-ref sc1 2))) e-21))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0)) eta-0)))))))
(define Context-Core-case--12048-4538 (lambda (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--11946-4492 (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9)))))))))))))
(define Context-Core-case--11946-4464 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9))))))))))))
(define Context-Core-case--11918-4423 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Context-Core-n--11918-4397-commitStaged arg-0 (IntMap-Data-toList 'erased (let ((sc2 arg-0)) (let ((e-6 (vector-ref sc2 7))) e-6))) e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-0)) (let ((e-12 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-12 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9))))))))))) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-10 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9)))))))))))) eta-0)))))))))))
(define Context-Core-case--11901-4395 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9))))))))))))))
(define Context-Core-case--11808-4320 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-4 (vector 0 arg-5 e-1)))) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11785-4300 (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-15 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 (vector 0 e-3 e-1)))) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))
(define Context-Core-case--11722-4279 (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-15 ((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-15 ((Context-Core-lookupCtxtExact (vector 9 e-3) arg-0) eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 (vector 0 e-3 e-4)))) eta-1)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))))))))))))) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-n--11627-4133-getMatches arg-0 arg-1 e-5) eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11722-4235 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-1 (vector 0 e-5 e-6)) (vector 0 ))) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11627-4221 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 ((Context-Core-lookupCtxtExactI arg-1 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-1 (vector 0 e-7 e-6)) (vector 0 ))) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--11722-4279 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--11631-4191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Context-Core-n--11627-4133-getMatches arg-0 arg-1 arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-2 e-5)) eta-0)))))))) (else (Context-Core-n--11627-4133-getMatches arg-0 arg-1 arg-3))))))
(define Context-Core-case--11519-4113 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11526-4078 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 e-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11519-4039 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 e-1))) eta-0)))) (else (let ((a (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 5))) e-4)))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((IOArray-Data-readArray 'erased e-5 arg-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 e-1))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))
(define Context-Core-case--11312-4009 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11396-3943 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0))))))))))
(define Context-Core-case--11319-3926 (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-15 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--11396-3943 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11319-3868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0))))))))))
(define Context-Core-case--11312-3854 (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-15 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--11319-3868 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-15 (let ((act-15 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((IOArray-Data-readArray 'erased e-5 arg-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--11396-3943 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))
(define Context-Core-case--11210-3830 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11217-3798 (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-15 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Context-Core-case--11210-3762 (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-15 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-15 (let ((act-15 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((IOArray-Data-readArray 'erased e-5 arg-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Context-Core-decode arg-1 arg-0 0 e-1) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Context-Core-returnDef (let ((sc5 arg-1)) (let ((e-9 (vector-ref sc5 10))) e-9)) arg-0 e-7)) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))
(define Context-Core-case--11140-3710 (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--11128-3694 (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--11140-3710 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--11074-3667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 arg-1 e-6) e-7 e-8 e-9))))))))))))))
(define Context-Core-case--11009-3637 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9)))))))))))))) eta-0)))))))
(define Context-Core-case--11009-3590 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((IOArray-Data-writeArray 'erased e-5 e-2 arg-1) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0)))))))))))))))))
(define Context-Core-case--10998-3575 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 ((IOArray-Data-writeArray 'erased e-6 e-2 arg-1) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0))))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9)))))))))))))) eta-0)))))))))))))))
(define Context-Core-case--10944-3550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (IntMap-Data-insert 'erased arg-3 (vector 1 arg-1) e-6) e-7 e-8 e-9))))))))))))))
(define Context-Core-case--10879-3520 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-10 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-11 e-10 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9)))))))))))))) eta-0)))))))
(define Context-Core-case--10879-3473 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((IOArray-Data-writeArray 'erased e-5 e-2 (vector 1 arg-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0)))))))))))))))))
(define Context-Core-case--10868-3458 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 ((IOArray-Data-writeArray 'erased e-6 e-2 (vector 1 arg-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0))))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 ((Context-Core-getPosition arg-2 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-12 (vector-ref sc3 3))) (let ((e-11 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-10 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-10 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9)))))))))))))) eta-0)))))))))))))))
(define Context-Core-case--10823-3421 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 arg-0)) eta-0)))) (else (Context-Core-newEntry arg-1 arg-0))))))
(define Context-Core-case--10742-3389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 (Prelude-C-43_Num__Int arg-2 1) (NameMap-Data-insert 'erased arg-1 arg-2 e-2) (Context-Core-addPossible arg-1 arg-2 e-3) e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
(define Context-Core-case--10672-3290 (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--10666-3268 (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--10672-3290 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0))))))))
(define Context-Core-case--7945-875 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) " [impl]") (else "")))))
(define Context-Core-n--23777-15411-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-2 arg-0)))
(define Context-Core-n--22621-14389-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--22641-14408 '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--22895-14631-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--26988-18448-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-15 (let ((act-15 (PrimIO-putStr (Strings-Prelude-C-43C-43 e-2 ": ") eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((nano (Prelude-fromInteger_Num__Integer 1000000000))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer e-7 nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--26988-18447-addZeros arg-0 (Prelude-unpack (Prelude-show_Show__Integer (Prelude-div_Integral__Integer (Prelude-mod_Integral__Integer e-7 nano) (Prelude-fromInteger_Num__Integer 1000000))))) "s"))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))))))
(define Context-Core-n--13141-5720-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-15 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))) eta-0))))))))))))))))))))))))))))
(define Context-Core-n--17032-9323-resetElab (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 (Options-Core-defaultElab) e-4 e-5 e-6 e-7)))))))))))
(define Context-Core-n--22750-14517-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--22785-14542 '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--11627-4132-matches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((sc2 e-4)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 e-6))(else 0)))))(else 0))))))(else 0)))))(else 0)))))
(define Context-Core-n--23053-14771-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--23053-14771-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--23053-14771-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3)))))))))))
(define Context-Core-n--17332-9608-isHole (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--17343-9629 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0)))))))))))
(define Context-Core-n--20021-12051-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
(define Context-Core-n--13440-5904-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) 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))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--13440-5904-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
(define Context-Core-n--13439-5873-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) 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))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__Name arg-2 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Context-Core-n--13439-5873-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
(define Context-Core-n--20614-12601-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--20620-12625 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-3 arg-6))))))(else (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--11627-4133-getMatches (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) (Context-Core-n--11627-4133-getMatches arg-0 arg-1 e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-case--11631-4191 arg-0 arg-1 e-6 e-3 (Context-Core-n--11627-4132-matches arg-0 arg-1 'erased arg-1 e-6)))))))))))))
(define Context-Core-n--22509-14271-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--22513-14284 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2)))))))
(define Context-Core-n--13140-5587-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-15 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-5 e-6) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-10) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-5 (vector 0 e-8 e-9)))) eta-0))))))))))))))))))))))))))))
(define Context-Core-n--20021-12052-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
(define Context-Core-n--22750-14492-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--23188-14896-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--11918-4397-commitStaged (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) 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))) (lambda (eta-0) (let ((act-15 ((IOArray-Data-writeArray 'erased arg-2 e-6 e-7) eta-0))) ((Context-Core-n--11918-4397-commitStaged arg-0 e-3 arg-2) eta-0)))))))))))))
(define Context-Core-n--23777-15410-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--23777-15410-allParents arg-0 arg-1 e-3)))))))))
(define Context-Core-n--23188-14895-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--26988-18447-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--26519-18023-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--23188-14897-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))) (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--23188-14896-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-15 ((Context-Core-addCtxt e-5 condef arg-11) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (let ((e-9 (vector-ref sc3 2))) ((Context-Core-n--23188-14897-addDataConstructors arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Int arg-9 1) e-3 e-9) 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-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Hole" (let ((sc1 e-22)) (cond ((equal? sc1 0) " [impl]") (else "")))))) ((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-15 ((Context-Core-resolved_HasNames__Name arg-0 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-4) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))))))))))
(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-15 ((Context-Core-resolved_HasNames__Terminating arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__Covering arg-0 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0)))))))))))))))))
(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-15 ((Context-Core-resolved_HasNames__PartialReason arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Context-Core-resolved_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1)))) ext-0))))))))
(define Context-Core-resolved_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-0)) eta-0))))(else (Context-Core-case--12128-4639 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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4574 arg-4575)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4574 arg-4575)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 ((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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))))))))))))))) ext-0)))))))))))))))))))))))))))))))))
(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-15 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--13141-5720-resolvedNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-0 e-1 e-5 e-6 e-7)) eta-0))))))))))))))))))))))) ((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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)) eta-0))))))))))))))))))))) ((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-15 ((Context-Core-resolved_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-13 e-14 e-5)) eta-0))))))))))) ((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-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-17 e-18)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Context-Core-resolved_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-resolved_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))))))))
(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--12201-4884 '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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc1 1))) ((Context-Core-case--12201-4933 '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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-10 e-11 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-15 e-5 e-6)) 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))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-19 e-20 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-24 e-25 e-5)) eta-0))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-28 e-29 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-33 e-34 e-5)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))))))
(define Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--13440-5904-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 2))) (((e-3 arg-2) e-2) eta-0))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))))))))
(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-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-2 e-6 e-7)) eta-0)))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-7 e-5)) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))))))
(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-15 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Context-Core-case--12794-5370 '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-15 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-5)) eta-0))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-11) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-10 e-5)) eta-0)))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) eta-0)))))))))))))))))))
(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-15 ((Context-Core-full_HasNames__Name arg-0 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-4) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))))))))))
(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-15 ((Context-Core-full_HasNames__Terminating arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__Covering arg-0 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0)))))))))))))))))
(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-15 ((Context-Core-full_HasNames__PartialReason arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Context-Core-full_HasNames__SCCall (lambda (arg-0 arg-1 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) (vector 0 e-5 e-1)))) ext-0))))))))
(define Context-Core-full_HasNames__PartialReason (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))))))))
(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-15 ((Context-Core-lookupCtxtExact (vector 9 e-0) arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 e-1)) (let ((e-22 (vector-ref sc3 2))) e-22))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-0)) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Context-Core-full_HasNames__GlobalDef (lambda (arg-0 arg-1 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4574 arg-4575)))) arg-0 (let ((sc3 arg-1)) (let ((e-12 (vector-ref sc3 13))) e-12))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4574 arg-4575)))) arg-0 (let ((sc4 arg-1)) (let ((e-13 (vector-ref sc4 14))) e-13))) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 ((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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))))))))))))))) ext-0)))))))))))))))))))))))))))))))))
(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-15 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-n--13140-5587-fullNamesPat e-4 e-1 e-3 e-2 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-0 e-1 e-5 e-6 e-7)) eta-0))))))))))))))))))))))) ((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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-11) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-5 e-6 e-7 e-8 e-9 e-13 e-14 e-12)) eta-0))))))))))))))))))))) ((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-15 ((Context-Core-full_HasNames__Name arg-0 e-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-13 e-14 e-5)) eta-0))))))))))) ((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-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-0 e-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-17 e-18)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Context-Core-full_HasNames__Covering (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-full_HasNames__Name arg-0 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))))))))
(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-15 ((Context-Core-lookupCtxtExact (vector 9 e-36) arg-1) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1 e-2 (let ((sc4 e-4)) (let ((e-25 (vector-ref sc4 2))) e-25)))) eta-0))) (else (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Missing name! " (Prelude-show_Show__Int e-36)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1 e-2 (vector 9 e-36))) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6 e-7 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))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-10 e-11 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-15 e-5 e-6)) 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))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-21) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-22) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-19 e-20 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-24 e-25 e-5)) eta-0))))))))))) ((7) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-30) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-31) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-28 e-29 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-35) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-33 e-34 e-5)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))))))
(define Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2) (Context-Core-n--13439-5873-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-2) e-2) eta-0))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))))))))
(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-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-2 e-6 e-7)) eta-0)))))))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-7 e-5)) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))))))
(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-15 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-1 arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc4 e-7)) (let ((e-27 (vector-ref sc4 2))) e-27)) e-2 e-3 e-5)) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-2 e-3 e-5)) 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-15 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-5)) eta-0))))))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-11) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-10 e-5)) eta-0)))))))))) (else (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-1 e-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) eta-0)))))))))))))))))))
(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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Transform arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Transform arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Totality arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Totality arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-4572 arg-4573 eta-0)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-4574 arg-4575 eta-0)))))))
(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Def arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Def arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Covering arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Covering arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-4574 arg-4575))))))
(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-4574 arg-4575))))))
(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624))))))
(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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Name-Core-C-61C-61_Eq__Name arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__Nat arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Name-Core-C-47C-61_Eq__Name arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Nat arg-625 arg-626)))) arg-623 arg-624)))) 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__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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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--22750-14492-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--22750-14517-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--17755-10010 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Context-Core-unsetFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--23053-14771-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) ext-0))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Context-Core-n--26988-18448-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Directory-System-changeDir arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18 (IORef-Data-writeIORef 'erased arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-28 (vector-ref sc4 6))) (let ((e-27 (vector-ref sc4 7))) (let ((e-26 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-9 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (let ((e-11 (vector-ref sc4 12))) (let ((e-12 (vector-ref sc4 13))) (let ((e-13 (vector-ref sc4 14))) (let ((e-14 (vector-ref sc4 15))) (let ((e-15 (vector-ref sc4 16))) (let ((e-16 (vector-ref sc4 17))) (let ((e-17 (vector-ref sc4 18))) (let ((e-18 (vector-ref sc4 19))) (let ((e-19 (vector-ref sc4 20))) (let ((e-20 (vector-ref sc4 21))) (let ((e-21 (vector-ref sc4 22))) (let ((e-22 (vector-ref sc4 23))) (let ((e-23 (vector-ref sc4 24))) (let ((e-24 (vector-ref sc4 25))) (let ((e-25 (vector-ref sc4 26))) (let ((sc5 e-4)) (let ((e-37 (vector-ref sc5 1))) (let ((e-36 (vector-ref sc5 2))) (let ((e-35 (vector-ref sc5 3))) (let ((e-34 (vector-ref sc5 4))) (let ((e-30 (vector-ref sc5 5))) (let ((e-31 (vector-ref sc5 6))) (let ((e-32 (vector-ref sc5 7))) (let ((e-33 (vector-ref sc5 8))) (let ((sc6 e-37)) (let ((e-44 (vector-ref sc6 2))) (let ((e-43 (vector-ref sc6 3))) (let ((e-42 (vector-ref sc6 4))) (let ((e-38 (vector-ref sc6 5))) (let ((e-39 (vector-ref sc6 6))) (let ((e-40 (vector-ref sc6 7))) (let ((e-41 (vector-ref sc6 8))) (vector 0 e-0 e-29 e-2 e-3 (vector 0 (vector 0 e-1 e-44 e-43 e-42 e-38 e-39 e-40 e-41) e-36 e-35 e-34 e-30 e-31 e-32 e-33) e-28 e-27 e-26 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-34 (vector-ref sc2 9))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-1 e-33) e-34 e-35) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setVisibility (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (Context-Core-addDef arg-0 arg-2 (let ((sc3 e-1)) (let ((e-0 (vector-ref sc3 1))) (let ((e-23 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-22 (vector-ref sc3 6))) (let ((e-21 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (let ((e-11 (vector-ref sc3 12))) (let ((e-12 (vector-ref sc3 13))) (let ((e-13 (vector-ref sc3 14))) (let ((e-14 (vector-ref sc3 15))) (let ((e-15 (vector-ref sc3 16))) (let ((e-16 (vector-ref sc3 17))) (let ((e-17 (vector-ref sc3 18))) (let ((e-18 (vector-ref sc3 19))) (let ((e-19 (vector-ref sc3 20))) (let ((e-20 (vector-ref sc3 21))) (vector 0 e-0 e-23 e-2 e-3 e-4 e-22 e-21 e-7 e-8 arg-3 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20)))))))))))))))))))))) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
(define Context-Core-setUniqueSearch (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--21017-12965 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-39 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-39 e-35 e-36 e-37 arg-1) e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setUnboundImplicits (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-39 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-39 arg-1 e-36 e-37 e-38) e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setTerminating (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 arg-1 e-36 e-37 e-38 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setSizeChange (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 arg-1 e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setRewrite (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-checkUnambig arg-0 arg-1 arg-3 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))))))))))))))))))
(define Context-Core-setPrefix (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 arg-1 e-39 e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setPair (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-checkUnambig arg-0 arg-1 arg-3 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-checkUnambig arg-0 arg-1 arg-4 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0))))))))))))))))))))))))
(define Context-Core-setPPrint (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 arg-1 e-28 e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setOpenHints (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setNestedNS (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setNamedCompiled (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Context-Core-setNameFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setMutWith (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--20399-12422 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 e-38 arg-1 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setLogLevel (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 arg-1 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setLinearCheck (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Context-Core-setFromString (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setFromInteger (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setFromChar (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setFlag (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))))))))))))))))
(define Context-Core-setExternal (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--21181-13096 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setDetermining (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--20777-12762 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--20901-12868 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-39 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-39 e-35 arg-1 e-37 e-38) e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setDebugElabCheck (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 e-37 e-38 e-39 arg-1 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setCtxt (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setCovering (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Context-Core-setCG (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-28)) (let ((e-45 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (let ((e-42 (vector-ref sc3 9))) (let ((e-43 (vector-ref sc3 10))) (let ((e-44 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 (vector 0 e-45 e-35 e-36 arg-1 e-38 e-39 e-40 e-41 e-42 e-43 e-44) e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setAmbigLimit (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-39 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-38 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 e-39 e-35 e-36 arg-1 e-38) e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-setAllPublic (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-0)) (let ((e-36 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((e-35 (vector-ref sc2 10))) (vector 0 (vector 0 e-36 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-1 e-35) e-1 e-2 e-3 e-4 e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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--11128-3694 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-0) eta-0))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-getPosition arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Context-Core-setCtxt arg-0 e-3 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))))))
(define Context-Core-resetFirstEntry (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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))) (vector 0 (vector 0 (let ((sc3 (let ((sc4 e-5)) (let ((e-62 (vector-ref sc4 1))) e-62)))) (let ((e-45 (vector-ref sc3 2))) e-45)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35) e-1 e-2 e-3 e-4 e-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)))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 arg-0))(else 0))))(else 0))))))(else 0)))))
(define Context-Core-recordWarning (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) (vector 9 e-10) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-prettyName arg-0 e-5) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((Context-Core-prettyName arg-0 e-1) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "," e-7))) eta-0)))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-show_Show__Name arg-1)) eta-0)))))))) ((7) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) (vector 9 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-prettyName arg-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "case block in " e-6)) eta-0)))))))))))))) ((8) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) (vector 9 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-prettyName arg-0 e-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "with block in " e-7)) eta-0)))))))))))))) ((0) (let ((e-7 (vector-ref sc0 2))) (Context-Core-prettyName arg-0 e-7)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-show_Show__Name arg-1)) eta-0)))))))
(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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((sc1 (Prelude-C-62C-61_Ord__Int idx (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) e-1))))) (cond ((equal? sc1 0) (let ((act-16 (let ((act-16 ((IOArray-Data-newArrayCopy 'erased (Prelude-C-43_Num__Int (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 1))) e-1)) (Context-Core-Grow)) e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (IORef-Data-writeIORef 'erased a e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 idx (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-10 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 (Prelude-C-43_Num__Int idx 1) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-11 e-10 e-7 e-8 e-9))))))))))))) eta-0)))))))))))))))
(define Context-Core-newDef (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (vector 0 arg-0 arg-1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) arg-2 arg-3 arg-5 (TT-Core-unchecked) (vector 0 ) (vector 0 ) (vector 0 ) 1 1 1 arg-6 (vector 0 ) (vector 0 ) (vector 0 ))))
(define Defs-Context-Core-nestedNS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define Defs-Context-Core-namedirectives (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-14 (vector-ref sc0 15))) e-14))))
(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-15 ((Context-Core-lookupCtxtName arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) ext-0))))))))
(define Context-Core-lookupExactBy (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExact arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (arg-1 e-1))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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--11627-4221 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--11210-3762 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--11210-3830 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--11312-3854 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-15 ((Context-Core-lookupCtxtExactI arg-0 arg-1) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--11519-4039 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--11519-4113 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-15 (let ((act-15 ((Clock-System-clockTime (vector 3 )) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((nano (Prelude-fromInteger_Num__Integer 1000000000))) (let ((t (Prelude-C-43_Num__Integer (Prelude-C-42_Num__Integer (Clock-System-seconds 'erased e-5) nano) (Clock-System-nanoseconds 'erased e-5)))) (let ((act-16 (arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 ((Clock-System-clockTime (vector 3 )) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((tC-39 (Prelude-C-43_Num__Integer (Prelude-C-42_Num__Integer (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-18 (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "TIMING " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Integer (Prelude-div_Integral__Integer time nano)) (Strings-Prelude-C-43C-43 "." (Strings-Prelude-C-43C-43 (Context-Core-n--26519-18023-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) (Prelude-fromInteger_Num__Integer 1000000))))) "s")))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-0)))))))))))))))))))))))))) (else arg-4)))))
(define Context-Core-logTime (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--26245-17778 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-15 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--26366-17883 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-15 (Context-Core-getSession arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--26320-17842 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-29)) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 (vector 0 arg-1 e-35 e-36 e-37 e-38) e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-isVisible (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((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--23777-15411-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--23777-15410-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)))))) ext-0))))))))
(define Context-Core-isUndottedRecordProjections (lambda (arg-0 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (let ((sc0 (let ((sc1 (let ((sc2 eta-1)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((e-4 (vector-ref sc0 5))) e-4))) eta-0)) (lambda (eta-0) (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))) ext-0)))
(define Context-Core-isUnboundImplicits (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))
(define Context-Core-isPairType (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--25705-17256 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))
(define Context-Core-isEqualTy (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--25815-17364 arg-1 arg-0 e-5 (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-8 (vector-ref sc1 6))) e-8))) ext-0))))))))
(define Context-Core-isAllPublic (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-8 (vector-ref sc1 9))) e-8))) ext-0))))))))
(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 () (Prelude-fromInteger_Num__Int 10000)))
(define Context-Core-initHash (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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 (Prelude-fromInteger_Num__Int 5381) e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-initDefs (lambda (ext-0) (let ((act-15 (Context-Core-initCtxt ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 (vector 0 ) (vector 1 "Main" (vector 0 )) (vector 0 ) (Options-Core-defaults) (NameMap-Data-empty 'erased) (Prelude-fromInteger_Num__Int 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) (Prelude-fromInteger_Num__Int 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 ))) ext-0))))))))
(define Context-Core-initCtxtS (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IOArray-Data-newArray 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.Context.Arr" ) e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) ext-0)))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) (vector 1 e-0))) eta-0))))))))) ((7) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 3))) e-27)) arg-1)) eta-0)))))))) ((8) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)) eta-0)))))))) ((6) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc2 e-7)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)) eta-0)))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)) eta-0)))))))) ((4) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)) eta-0)))))))) ((5) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2)) arg-1)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(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 Defs-Context-Core-ifaceHash (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15))))
(define PMDefInfo-Context-Core-holeInfo (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define SearchData-Context-Core-hintGroups (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define Context-Core-hide (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 e-1)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (Context-Core-setVisibility arg-0 arg-1 e-8 (vector 0 ) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-2) ext-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-6)) ext-0))))))))))))))))
(define Context-Core-getWorkingDir (lambda (ext-0) (let ((act-15 (let ((act-15 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((hs (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Name-Core-compare_Ord__Name arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Name-Core-C-60_Ord__Name arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Name-Core-C-62_Ord__Name arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Name-Core-C-60C-61_Ord__Name arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Name-Core-C-62C-61_Ord__Name arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Name-Core-max_Ord__Name arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Name-Core-min_Ord__Name arg-896 arg-897)))) (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--17332-9608-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 e-1)) (let ((e-10 (vector-ref sc3 11))) e-10))) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
(define Context-Core-getSearchData (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupDefExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-3 ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) ext-0))) (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--20045-12112 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--20021-12051-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))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 (vector 0 1 defns) (vector 0 )))) ext-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--20021-12051-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--20021-12052-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--20021-12052-direct arg-3 arg-2 arg-1 arg-0 eta-0))) hs)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 )))))))) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (vector 1 (let ((sc1 eta-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-8 (vector-ref sc1 6))) e-8)))) ext-0))))))))
(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--22895-14631-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--22895-14687 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--22895-14687 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 arg-1)) eta-0))))(else (Context-Core-case--10823-3421 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))))
(define Context-Core-getNextTypeTag (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9 e-10 e-11 e-12 e-13 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))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc2 e-5)) (let ((e-26 (vector-ref sc2 7))) e-26))) ext-0))))))))))))
(define Context-Core-getNextEntry (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))))
(define Context-Core-getNestedNS (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc4 e-1)) (let ((e-23 (vector-ref sc4 2))) e-23))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-0)) eta-0)))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(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--12048-4538 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))))))))
(define Context-Core-getDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Context-Core-n--22509-14271-getDir arg-1 arg-0 eta-0)) (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))) ext-0))))))))
(define Context-Core-getDefaultTotalityOption (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))
(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-getAmbigLimit (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) ext-0))))))))
(define Context-Core-fromStringName (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))
(define Context-Core-fromIntegerName (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))
(define Context-Core-fromCharName (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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--22621-14389-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__GlobalDef e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((a (Context-Core-getContent arg-0))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased a eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-resolved_HasNames__GlobalDef arg-0 e-6 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((sc5 arg-2)) (cond ((equal? sc5 0) (let ((act-19 ((IOArray-Data-writeArray 'erased e-7 arg-1 (vector 1 e-8)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-8) eta-0))))))))))))))))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0))))))))
(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--11918-4423 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-commitCtxt (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-clearSavedHints (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-clearDefs (lambda (arg-0 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-0)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (let ((e-34 (vector-ref sc1 9))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))))) ext-0)))
(define Context-Core-clearCtxt (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-initDefs ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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--17032-9323-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)))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Context-Core-checkUnambig (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupDefName arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10)) 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)))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9))))))))))))) ext-0)))
(define Context-Core-branch (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-branchCtxt (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-setCtxt arg-0 e-6 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) ext-0)))))))))))))))))
(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-addUserHole (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-addTransform (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--21877-13705 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Context-Core-addPossible (lambda (arg-0 arg-1 arg-2) (Context-Core-case--10666-3268 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
(define Context-Core-addOpenHint (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-1 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Context-Core-addNameDirective (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-checkUnambig arg-0 arg-1 arg-2 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-0) eta-0))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-newEntry arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Context-Core-setCtxt arg-0 e-3 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))))))
(define Context-Core-addMutData (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-addLibDir (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 e-39 (List-Prelude-C-43C-43 'erased e-40 (vector 1 arg-1 (vector 0 ))) e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-addImported (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-addHintFor (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-2 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-3 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((hs (Context-Core-case--21327-13226 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-18 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0))) (else (let ((act-18 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))))))))))))))))))))))
(define Context-Core-addHashWithNames (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-1 arg-3 arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-addGlobalHint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-1 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Context-Core-addExtraDir (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 (List-Prelude-C-43C-43 'erased e-39 (vector 1 arg-1 (vector 0 ))) e-40 e-41) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Context-Core-addEntry (lambda (arg-0 arg-1 arg-2) (Context-Core-case--10998-3575 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--22408-14191 arg-0 arg-2 arg-1 e-5 (Options-Core-getCG arg-1)) ext-0))))))))
(define Context-Core-addDef (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((_-0 (vector 0 e-2 e-3))) ((Context-Core-case--17447-9747 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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0)))))))))))))))))))))))))
(define Context-Core-addDataDir (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (let ((sc3 e-34)) (let ((e-42 (vector-ref sc3 1))) (let ((e-35 (vector-ref sc3 2))) (let ((e-36 (vector-ref sc3 3))) (let ((e-37 (vector-ref sc3 4))) (let ((e-38 (vector-ref sc3 5))) (let ((e-39 (vector-ref sc3 6))) (let ((e-40 (vector-ref sc3 7))) (let ((e-41 (vector-ref sc3 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 (vector 0 e-42 e-35 e-36 e-37 e-38 e-39 e-40 (List-Prelude-C-43C-43 'erased e-41 (vector 1 arg-1 (vector 0 )))) e-27 e-28 e-29 e-30 e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Context-Core-getNextTypeTag arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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--23188-14895-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-17 ((Context-Core-addCtxt e-3 tydef (let ((sc4 e-6)) (let ((e-33 (vector-ref sc4 1))) e-33))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Context-Core-n--23188-14897-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-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-10) eta-0))))))))))))))))))))))))))))))))))))))))
(define Context-Core-addCtxt (lambda (arg-0 arg-1 arg-2) (Context-Core-case--10868-3458 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0))))))))))))))))))))
(define Context-Core-addBuiltin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))
(define Context-Core-Grow (lambda () (Context-Core-initSize)))
(define Directory-System-case--2427-660 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-returnError 'erased eta-0))) (else (lambda (eta-0) (Directory-System-ok 'erased (PrimIO-prim__getString arg-1) eta-0)))))))
(define Directory-System-case--2389-620 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-returnError 'erased eta-0))) (else (lambda (eta-0) (Directory-System-ok 'erased arg-1 eta-0)))))))
(define Directory-System-case--2357-588 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (PrimIO-prim__getString arg-0)) eta-0)))))))
(define Directory-System-case--2309-540 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Directory-System-ok 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (Directory-System-returnError 'erased eta-0)))))))
(define Directory-System-case--2201-436 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 3 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 4 )) eta-0))) ((equal? sc0 4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 5 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 0 (Prelude-C-45_Neg__Int arg-1 5))) eta-0)))))))
(define Directory-System-returnError (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_fileErrno ext-0))) (let ((sc0 act-15)) (cond ((equal? sc0 0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) ext-0)) ((equal? sc0 1) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 )) ext-0)) ((equal? sc0 2) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 3 )) ext-0)) ((equal? sc0 3) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 4 )) ext-0)) ((equal? sc0 4) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 5 )) ext-0))(else (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 0 (Prelude-C-45_Neg__Int act-15 5))) ext-0)))))))
(define Directory-System-openDir (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_openDir arg-0 ext-0))) ((Directory-System-case--2389-620 arg-0 act-15 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr act-15) (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define Directory-System-ok (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-1) ext-0)))
(define Directory-System-dirEntry (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_dirEntry arg-0 ext-0))) ((Directory-System-case--2427-660 arg-0 act-15 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-15)) (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define Directory-System-currentDir (lambda (ext-0) (let ((act-15 (Directory-System-prim_currentDir ext-0))) ((Directory-System-case--2357-588 act-15 (Prelude-C-47C-61_Eq__Int (PrimIO-prim__nullAnyPtr (PrimIO-prim__forgetPtr 'erased act-15)) (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define Directory-System-createDir (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_createDir arg-0 ext-0))) ((Directory-System-case--2309-540 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) ext-0))))
(define Directory-System-closeDir (lambda (arg-0 ext-0) (Directory-System-prim_closeDir arg-0 ext-0)))
(define Directory-System-changeDir (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-prim_changeDir arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-C-61C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0)) ext-0))))
(define Clock-System-with--1588-614 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 ((Clock-System-fetchOSClock arg-0) eta-0))) (Clock-System-fromOSClock arg-0 act-15 eta-0)))) (else (lambda (eta-0) (let ((act-15 ((Clock-System-fetchOSClock arg-0) eta-0))) (let ((act-16 (Prelude-map_Functor__IO 'erased 'erased (lambda (arg-2) (Prelude-C-61C-61_Eq__Int arg-2 (Prelude-fromInteger_Num__Int 1))) (lambda (eta-1) (Clock-System-osClockValid act-15 eta-1)) eta-0))) (let ((sc1 act-16)) (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-15 eta-1)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))))))))))))
(define Clock-System-case--1590-650 (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) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-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-15 (apply blodwen-clock-second (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (let ((act-16 (apply blodwen-clock-nanosecond (blodwen-read-args (vector 1 (vector "System.Clock.OSClock" ) arg-1 (vector 0 )))))) (Prelude-pure_Applicative__IO 'erased (vector 0 arg-0 act-15 act-16) ext-0)))))
(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--1588-614 arg-0 (Clock-System-isClockMandatory arg-0))))
(define StringMap-Data-case--4042-2818 (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--3677-2452 (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--2471-1385 (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--2212-1288 (lambda (arg-0 arg-1 arg-2 arg-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--2212-1177 (lambda (arg-0 arg-1 arg-2 arg-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--2049-1146 (lambda (arg-0 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--2212-1177 '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--2212-1288 '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--2049-1036 (lambda (arg-0 arg-1 arg-2 arg-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--1694-1005 (lambda (arg-0 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--2049-1036 '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--2049-1146 '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--1823-927 (lambda (arg-0 arg-1 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--1823-838 (lambda (arg-0 arg-1 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--1694-811 (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--1823-838 '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--1823-927 '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--1694-709 (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--1587-648 (lambda (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--1464-601 (lambda (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--1587-648 '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--1464-553 (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--1464-510 (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--3578-2334-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--3578-2334-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3578-2334-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--3578-2334-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3578-2334-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3578-2334-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10)))))))))
(define StringMap-Data-n--4033-2807-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--3578-2334-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--1464-510 '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--1464-553 '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--1464-601 '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--1694-709 '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--1694-811 '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--1694-1005 '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--2471-1385 '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--4033-2807-inserted 'erased arg-3 arg-2 arg-1) arg-2)))
(define StringMap-Data-mergeLeft (lambda (arg-0 arg-1 arg-2) (StringMap-Data-mergeWith 'erased (lambda (eta-0) (lambda (eta-1) eta-0)) arg-1 arg-2)))
(define StringMap-Data-lookup (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-treeLookup 'erased 'erased arg-1 e-3)))))))
(define StringMap-Data-insertFrom (lambda (arg-0 ext-0 ext-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Prelude-flip 'erased 'erased 'erased (lambda (eta-4) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (StringMap-Data-insert 'erased eta-5 eta-6 eta-7)))) eta-4)) eta-2 eta-3))) eta-0 eta-1))) ext-0 ext-1)))
(define StringMap-Data-insert (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 0 (vector 0 arg-1 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (StringMap-Data-case--3677-2452 'erased e-2 arg-2 e-3 arg-1 (StringMap-Data-treeInsert 'erased 'erased arg-1 arg-2 e-3)))))))))
(define StringMap-Data-fromList (lambda (arg-0 arg-1) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Prelude-flip 'erased 'erased 'erased (lambda (eta-2) (Prelude-uncurry 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (StringMap-Data-insert 'erased eta-3 eta-4 eta-5)))) eta-2)) eta-0 eta-1))) (StringMap-Data-empty 'erased) arg-1)))
(define StringMap-Data-empty (lambda (arg-0) (vector 0 )))
(define IOArray-Data-case--2194-710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (List-Data-reverse 'erased arg-2) eta-0))) (else (lambda (eta-0) (let ((act-15 ((IOArray-Data-readArray 'erased arg-1 arg-4) eta-0))) ((IOArray-Data-n--2189-700-iter 'erased arg-1 (Prelude-C-43_Num__Int arg-4 1) arg-3 (vector 1 act-15 arg-2)) eta-0))))))))
(define IOArray-Data-case--2064-654 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) e-1))) (else arg-2)))))
(define IOArray-Data-case--2070-590 (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) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (let ((act-15 (vector-ref arg-5 arg-3))) (let ((act-16 (vector-set! arg-4 arg-3 act-15))) ((IOArray-Data-n--2064-578-copyFrom 'erased arg-1 arg-2 arg-5 arg-4 (Prelude-C-45_Neg__Int arg-3 1)) eta-0)))))))))
(define IOArray-Data-case--2020-552 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (vector-ref (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 2))) e-2)) arg-1)))))))
(define IOArray-Data-case--1961-500 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) (else (lambda (eta-0) (vector-set! (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 2))) e-2)) arg-2 (vector 1 arg-1))))))))
(define IOArray-Data-n--2189-700-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (IOArray-Data-case--2194-710 'erased arg-1 arg-4 arg-3 arg-2 (Prelude-C-62C-61_Ord__Int arg-2 arg-3))))
(define IOArray-Data-n--2064-578-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (IOArray-Data-case--2070-590 'erased arg-1 arg-2 arg-5 arg-4 arg-3 (Prelude-C-60_Ord__Int arg-5 (Prelude-fromInteger_Num__Int 0)))))
(define IOArray-Data-writeArray (lambda (arg-0 arg-1 arg-2 arg-3) (IOArray-Data-case--1961-500 'erased arg-3 arg-2 arg-1 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-2 (Prelude-fromInteger_Num__Int 0)) (lambda () (Prelude-C-62C-61_Ord__Int arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))))))
(define IOArray-Data-toList (lambda (arg-0 arg-1) (IOArray-Data-n--2189-700-iter 'erased arg-1 0 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)) (vector 0 ))))
(define IOArray-Data-readArray (lambda (arg-0 arg-1 arg-2) (IOArray-Data-case--2020-552 'erased arg-2 arg-1 (Prelude-C-124C-124 (Prelude-C-60_Ord__Int arg-2 (Prelude-fromInteger_Num__Int 0)) (lambda () (Prelude-C-62C-61_Ord__Int arg-2 (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))))))
(define IOArray-Data-prim__newArray (lambda (arg-0 arg-1 arg-2 arg-3) (make-vector arg-1 arg-2)))
(define IOArray-Data-prim__arraySet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector-set! arg-1 arg-2 arg-3)))
(define IOArray-Data-prim__arrayGet (lambda (arg-0 arg-1 arg-2 arg-3) (vector-ref arg-1 arg-2)))
(define IOArray-Data-newArrayCopy (lambda (arg-0 arg-1 arg-2) (let ((newsizeC-39 (IOArray-Data-case--2064-654 'erased arg-2 arg-1 (Prelude-C-60_Ord__Int arg-1 (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)))))) (lambda (eta-0) (let ((act-15 (IOArray-Data-newArray 'erased newsizeC-39 eta-0))) (let ((act-16 ((IOArray-Data-n--2064-578-copyFrom 'erased arg-2 arg-1 (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 act-15)) (let ((e-2 (vector-ref sc0 2))) e-2)) (Prelude-C-45_Neg__Int (let ((sc0 arg-2)) (let ((e-1 (vector-ref sc0 1))) e-1)) (Prelude-fromInteger_Num__Int 1))) eta-0))) (Prelude-pure_Applicative__IO 'erased act-15 eta-0)))))))
(define IOArray-Data-newArray (lambda (arg-0 arg-1 ext-0) (let ((act-15 (make-vector arg-1 (vector 0 )))) (Prelude-pure_Applicative__IO 'erased (vector 0 arg-1 act-15) ext-0))))
(define IOArray-IOArray-Data-max (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
(define IOArray-IOArray-Data-content (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
(define Binary-Utils-case--8070-2976 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-5))) eta-0)))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Binary-Utils-fromLimbs e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Integer" eta-0)))))))
(define Binary-Utils-case--8068-2930 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-1 (Binary-Utils-toLimbs (Prelude-negate_Neg__Integer arg-0)) eta-0))))))) (else (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0)))))))))))
(define Binary-Utils-case--8005-2869 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (Prelude-negate_Neg__Int (Prelude-fromInteger_Num__Int 1)) (vector 0 ))) (else (vector 1 (Prelude-fromInteger_Num__Int (blodwen-and arg-0 (Prelude-fromInteger_Num__Integer 4294967295))) (Binary-Utils-toLimbs (blodwen-shr arg-0 32))))))))
(define Binary-Utils-case--7996-2851 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--8005-2869 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer (Prelude-fromInteger_Num__Integer 1)))))))))
(define Binary-Utils-case--7546-2452 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) eta-0))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Maybe" eta-0)))))))
(define Binary-Utils-case--7252-2188 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-getDouble (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Binary-Utils-incLoc 8 arg-1) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Double")) eta-0)))))))
(define Binary-Utils-case--7250-2125 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-setDouble (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended 8 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Buffer-Data-setDouble (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended 8 e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))))
(define Binary-Utils-case--7168-2044 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Bool" eta-0)))))))
(define Binary-Utils-case--7088-1959 (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-15 (let ((act-15 (Buffer-Data-copyData (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-4 (vector-ref sc1 2))) e-4)) arg-1 e-1 0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Binary-Utils-incLoc arg-1 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 0 arg-1 arg-1)) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't create buffer") eta-0)))))))
(define Binary-Utils-case--6988-1943 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-newBuffer arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (Buffer-Data-copyData (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (let ((sc3 arg-2)) (let ((e-4 (vector-ref sc3 2))) e-4)) arg-1 e-1 0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-0 (Binary-Utils-incLoc arg-1 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 0 arg-1 arg-1)) eta-0))))))))))) (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--6986-1873 (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-15 (let ((act-15 (Buffer-Data-copyData (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) 0 arg-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended arg-2 arg-4) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Buffer-Data-copyData (let ((sc2 arg-0)) (let ((e-0 (vector-ref sc2 1))) e-0)) 0 arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended arg-2 e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))))
(define Binary-Utils-case--6842-1793 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-getString (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Binary-Utils-incLoc arg-1 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)))))))))))) (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--6840-1730 (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-15 (let ((act-15 (Buffer-Data-setString (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-4)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended arg-2 arg-4) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 ((Binary-Utils-extendBinary arg-2 arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Buffer-Data-setString (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended arg-2 e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))))
(define Binary-Utils-case--6699-1646 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-getInt (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Binary-Utils-incLoc 8 arg-1) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)))))))))))) (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--6697-1583 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-setInt (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended 8 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 ((Binary-Utils-extendBinary 8 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Buffer-Data-setInt (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended 8 e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))))
(define Binary-Utils-case--6644-1523 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-getByte (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Binary-Utils-incLoc 1 arg-1) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 48 (vector 1 "Byte")) eta-0)))))))
(define Binary-Utils-case--6577-1459 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Buffer-Data-setByte (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended 1 arg-2) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 ((Binary-Utils-extendBinary 1 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Buffer-Data-setByte (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (Binary-Utils-appended 1 e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))))))))))))))))
(define Binary-Utils-case--6459-1396 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 arg-2 arg-6 arg-0)) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Buffer expansion failed") eta-0)))))))
(define Binary-Utils-case--6459-1359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Prelude-C-43_Num__Int arg-5 arg-4)) (else arg-5)))))
(define Binary-Utils-case--6419-1314 (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--6396-1291 (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--6318-1216 (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-15 (Buffer-Data-rawSize e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 e-2 0 act-15 act-15)) eta-0))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))))))))
(define Binary-Utils-case--6227-1135 (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 (Prelude-C-43_Num__Int e-1 arg-1) e-2 e-3))))))))
(define Binary-Utils-n--7863-2733-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-3) eta-0))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-n--7863-2733-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0)))))))))))))
(define Binary-Utils-n--7865-2760-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Vect-Data-reverse 'erased 'erased arg-5)) eta-0)))(else (let ((e-0 (- arg-6 1))) (lambda (eta-0) (let ((act-15 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--7865-2760-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0)))))))))))))
(define Binary-Utils-n--7783-2682-readElems (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-reverse 'erased arg-3)) eta-0)))(else (let ((e-0 (- arg-4 1))) (lambda (eta-0) (let ((act-15 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-2) eta-0))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--7783-2682-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0)))))))))))))
(define Binary-Utils-n--7781-2646-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--7781-2646-length_aux 'erased arg-1 arg-2 arg-3 e-3 (Prelude-C-43_Num__Int 1 arg-5))))))))
(define Binary-Utils-n--7781-2647-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--7781-2646-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-15 (Binary-Utils-toBuf_TTC__Int arg-0 req eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--6840-1730 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--8068-2930 arg-1 arg-0 (Prelude-C-60_Ord__Integer arg-1 (Prelude-fromInteger_Num__Integer 0)))))
(define Binary-Utils-toBuf_TTC__Int (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--6697-1583 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--7250-2125 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-15 (Binary-Utils-toBuf_TTC__Int arg-0 len eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--6986-1873 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Binary-Utils-tag arg-2 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Binary-Utils-toBuf_TTC__Int arg-2 (Binary-Utils-n--7781-2647-TailRec_length 'erased arg-1 arg-3 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--7863-2733-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--6842-1793 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-15 (Binary-Utils-fromBuf_TTC__Integer arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-fromInteger_Num__Nat e-5)) ext-0))))))))
(define Binary-Utils-fromBuf_TTC__Integer (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-negate_Neg__Integer (Binary-Utils-fromLimbs e-6))) ext-0))))))) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Binary-Utils-fromLimbs e-6)) ext-0)))))))(else (Binary-Utils-corrupt 'erased "Integer" ext-0)))))))))))
(define Binary-Utils-fromBuf_TTC__Int (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--6699-1646 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--7252-2188 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-15 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-cast_Cast__Int_Char e-5)) ext-0))))))))
(define Binary-Utils-fromBuf_TTC__Bool (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0))(else (Binary-Utils-corrupt 'erased "Bool" ext-0)))))))))))
(define Binary-Utils-fromBuf_TTC__Binary (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Binary-Utils-case--6988-1943 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((sc1 (Builtin-snd 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-3) ext-0))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Binary-Utils-getTag arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (let ((act-16 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) ext-0)))))))(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-15 (Binary-Utils-fromBuf_TTC__Int arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-n--7783-2682-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--7865-2760-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-15 (let ((sc0 (Builtin-fst 'erased 'erased arg-2))) (let ((e-2 (vector-ref sc0 2))) ((e-2 arg-3) ext-0))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define Binary-Utils-__Impl_TTC_String (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Integer arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Binary arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-1256 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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-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-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-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-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-1256 eta-0))))))
(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-1256 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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-1253 arg-1255))) (lambda (arg-1256) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-1256)))))
(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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-1256 eta-0))))))
(define Binary-Utils-writeToFile (lambda (arg-0 arg-1 ext-0) (Buffer-Data-writeBufferToFile arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)) ext-0)))
(define Binary-Binary-Utils-used (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define Binary-Utils-toRead (lambda (arg-0) (Prelude-C-45_Neg__Int (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))
(define Binary-Utils-toLimbs (lambda (arg-0) (Binary-Utils-case--7996-2851 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-fromInteger_Num__Integer 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--6577-1459 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-15 (Buffer-Data-createBufferFromFile arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (Buffer-Data-rawSize e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 e-2 0 act-16 act-16)) ext-0)))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) ext-0))))))))
(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-15 (let ((act-15 (Buffer-Data-newBuffer arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (Buffer-Data-newBuffer (Binary-Utils-blockSize) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Prelude-C-43_Num__Int e-1 arg-0) e-2 e-3))))))))
(define Binary-Utils-getTag (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Utils-case--6644-1523 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-C-43_Num__Integer (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-freeBinary (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Buffer-Data-freeBuffer (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Binary-Utils-extendBinary (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((newsize (Prelude-C-42_Num__Int e-2 2))) (let ((sC-39 (Binary-Utils-case--6459-1359 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-15 (let ((act-15 (Buffer-Data-resizeBuffer e-0 sC-39 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-4 e-1 sC-39 e-3)) eta-0))) (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 () (Prelude-fromInteger_Num__Int 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 (Prelude-C-43_Num__Int e-1 arg-0) e-2 (Prelude-C-43_Num__Int e-3 arg-0)))))))))
(define Buffer-Data-case--2574-744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) arg-0) (else arg-4)))))
(define Buffer-Data-case--2563-724 (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-15 (Buffer-Data-rawSize arg-1 eta-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2574-744 arg-0 arg-1 e-1 _-0 act-15 (Prelude-C-60_Ord__Int arg-0 act-15))))) (let ((act-16 (Buffer-Data-copyData arg-1 0 len e-1 0 eta-0))) (let ((act-17 (Buffer-Data-freeBuffer arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 e-1) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))
(define Buffer-Data-case--2477-660 (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) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0)))))))
(define Buffer-Data-case--2465-636 (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-15 (Buffer-Data-prim__writeBuffer e-1 arg-2 arg-1 arg-0 eta-0))) (let ((_-0 (vector 1 e-1))) ((Buffer-Data-case--2477-660 arg-0 arg-1 arg-2 e-1 _-0 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) eta-0)))))))
(define Buffer-Data-case--2398-580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-3) eta-0)))))))
(define Buffer-Data-case--2388-560 (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) (let ((act-15 (Buffer-Data-prim__readBufferFromFile e-1 arg-0 eta-0))) (let ((_-0 (vector 1 e-1))) ((Buffer-Data-case--2398-580 arg-0 e-1 _-0 act-15 (Prelude-C-47C-61_Eq__Int (Buffer-Data-prim__isBuffer act-15) (Prelude-fromInteger_Num__Int 0))) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) eta-0)))))))
(define Buffer-Data-writeBufferToFile (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Directory-System-currentDir ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-16 (Buffer-Data-prim__writeBuffer e-1 arg-0 arg-1 arg-2 ext-0))) (let ((_-0 (vector 1 e-1))) ((Buffer-Data-case--2477-660 arg-2 arg-1 arg-0 e-1 _-0 act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 0))) ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) ext-0)))))))
(define Buffer-Data-setString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setString arg-0 arg-1 arg-2 ext-0)))
(define Buffer-Data-setInt (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setInt arg-0 arg-1 arg-2 ext-0)))
(define Buffer-Data-setDouble (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setDouble arg-0 arg-1 arg-2 ext-0)))
(define Buffer-Data-setByte (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__setByte arg-0 arg-1 arg-2 ext-0)))
(define Buffer-Data-resizeBuffer (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Buffer-Data-newBuffer arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-16 (Buffer-Data-rawSize arg-0 ext-0))) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2574-744 arg-1 arg-0 e-1 _-0 act-16 (Prelude-C-60_Ord__Int arg-1 act-16))))) (let ((act-17 (Buffer-Data-copyData arg-0 0 len e-1 0 ext-0))) (let ((act-18 (Buffer-Data-freeBuffer arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 e-1) ext-0))))))) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0)))))))
(define Buffer-Data-rawSize (lambda (arg-0 ext-0) (Prelude-pure_Applicative__IO 'erased (Buffer-Data-prim__bufferSize arg-0) ext-0)))
(define Buffer-Data-newBuffer (lambda (arg-0 ext-0) (let ((act-15 (Buffer-Data-prim__newBuffer arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0))))
(define Buffer-Data-getString (lambda (arg-0 arg-1 arg-2 ext-0) (Buffer-Data-prim__getString arg-0 arg-1 arg-2 ext-0)))
(define Buffer-Data-getInt (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getInt arg-0 arg-1 ext-0)))
(define Buffer-Data-getDouble (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getDouble arg-0 arg-1 ext-0)))
(define Buffer-Data-getByte (lambda (arg-0 arg-1 ext-0) (Buffer-Data-prim__getByte arg-0 arg-1 ext-0)))
(define Buffer-Data-freeBuffer (lambda (arg-0 ext-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0)))
(define Buffer-Data-createBufferFromFile (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-currentDir ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((act-16 (Buffer-Data-prim__readBufferFromFile e-1 arg-0 ext-0))) (let ((_-0 (vector 1 e-1))) ((Buffer-Data-case--2398-580 arg-0 e-1 _-0 act-16 (Prelude-C-47C-61_Eq__Int (Buffer-Data-prim__isBuffer act-16) (Prelude-fromInteger_Num__Int 0))) ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 1 )) ext-0)))))))
(define Buffer-Data-copyData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Buffer-Data-prim__copyData arg-0 arg-1 arg-2 arg-3 arg-4 ext-0)))
(define Options-Core-case--7996-1703 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7)))))))))))))
(define Options-Core-case--7974-1683 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 e-9 (vector 1 arg-0)) e-7)))))))))))))))
(define Options-Core-case--7952-1660 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 (vector 1 arg-0) e-10) e-7)))))))))))))))
(define Options-Core-case--7930-1637 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-9 e-10) e-7)))))))))))))))
(define Options-Core-case--7907-1613 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-1 arg-0)) e-6 e-7)))))))))))
(define Options-Core-case--7880-1591 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-2 arg-1 arg-0)) e-5 e-6 e-7)))))))))))
(define Options-Core-case--7860-1570 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 )))))))))
(define Options-Core-case--7821-1525 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:)))))
(define Options-Core-case--7812-1517 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/)))))
(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Options-Core-C-61C-61_Eq__CG arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Options-Core-C-47C-61_Eq__CG arg-623 arg-624))))))
(define Options-Core-C-61C-61_Eq__CG (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1)))))
(define Options-Core-C-47C-61_Eq__CG (lambda (arg-0 arg-1) (Prelude-not (Options-Core-C-61C-61_Eq__CG arg-0 arg-1))))
(define Dirs-Options-Core-working_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define ElabDirectives-Options-Core-undottedRecordProjections (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
(define ElabDirectives-Options-Core-unboundImplicits (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define ElabDirectives-Options-Core-totality (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define Options-Core-toString (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (Strings-Data-unlines (vector 1 (Strings-Prelude-C-43C-43 "+ Working Directory   :: " (Prelude-show_Show__String e-0)) (vector 1 (Strings-Prelude-C-43C-43 "+ Source Directory    :: " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-1)) (vector 1 (Strings-Prelude-C-43C-43 "+ Build Directory     :: " (Prelude-show_Show__String e-2)) (vector 1 (Strings-Prelude-C-43C-43 "+ Executable Directory     :: " (Prelude-show_Show__String e-3)) (vector 1 (Strings-Prelude-C-43C-43 "+ Installation Prefix :: " (Prelude-show_Show__String e-4)) (vector 1 (Strings-Prelude-C-43C-43 "+ Extra Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-5)) (vector 1 (Strings-Prelude-C-43C-43 "+ CG Library Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-6)) (vector 1 (Strings-Prelude-C-43C-43 "+ Data Directories :: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-7)) (vector 0 )))))))))))))))))))))
(define Dirs-Options-Core-source_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define PairNames-Options-Core-sndName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define PPrinter-Options-Core-showImplicits (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define PPrinter-Options-Core-showFullEnv (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define Options-Core-setRewrite (lambda (arg-0 arg-1 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 (vector 0 arg-0 arg-1)) e-6 e-7)))))))))))
(define Options-Core-setPair (lambda (arg-0 arg-1 arg-2 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 0 arg-0 arg-1 arg-2)) e-5 e-6 e-7)))))))))))
(define Options-Core-setFromString (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 (vector 1 arg-0) e-10) e-7)))))))))))))))
(define Options-Core-setFromInteger (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((sc1 e-6)) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 (vector 1 arg-0) e-9 e-10) e-7)))))))))))))))
(define Options-Core-setFromChar (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((sc1 e-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 0 e-8 e-9 (vector 1 arg-0)) e-7)))))))))))))))
(define Options-Core-setExtension (lambda (arg-0 ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0 e-7)))))))))))))
(define Options-Options-Core-session (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define Options-Core-sep (lambda () (Options-Core-case--7812-1517 (Options-Core-isWindows))))
(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 Options-Core-pathSep (lambda () (Options-Core-case--7821-1525 (Options-Core-isWindows))))
(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 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-isWindows (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))))
(define Options-Core-getCG (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (Strings-Data-toLower arg-0) (Options-Core-availableCGs))))
(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 Dirs-Options-Core-exec_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(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 Dirs-Options-Core-dir_prefix (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
(define Options-Core-dirSep (lambda () (Prelude-cast_Cast__Char_String (Options-Core-sep))))
(define Options-Core-defaults (lambda () (vector 0 (Options-Core-defaultDirs) (Options-Core-defaultPPrint) (Options-Core-defaultSession) (Options-Core-defaultElab) (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 ))))
(define Options-Core-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)))
(define Options-Core-defaultDirs (lambda () (vector 0 "." (vector 0 ) "build" (Strings-Prelude-C-43C-43 "build" (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "exec")) "/usr/local" (vector 1 "." (vector 0 )) (vector 0 ) (vector 0 ))))
(define Session-Options-Core-debugElabCheck (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
(define Dirs-Options-Core-data_dirs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
(define Session-Options-Core-codegen (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define Options-Core-clearNames (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 ) (vector 0 ) (vector 0 (vector 0 ) (vector 0 ) (vector 0 )) (vector 0 )))))))))
(define Dirs-Options-Core-build_dir (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define Options-Core-availableCGs (lambda () (vector 1 (vector 0 "chez" (vector 0 )) (vector 1 (vector 0 "racket" (vector 1 )) (vector 1 (vector 0 "gambit" (vector 2 )) (vector 0 ))))))
(define ElabDirectives-Options-Core-ambigLimit (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define Info-System-prim__os (lambda () (blodwen-os)))
(define Info-System-os (lambda () (blodwen-os)))
(define Hash-Core-case--4243-1884 (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--4232-1872-hashChars arg-0 arg-1 (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int arg-5 33) (Prelude-cast_Cast__Char_Int (Strings-Data-strIndex arg-2 arg-4))) (Prelude-C-43_Num__Int arg-4 1) arg-3 arg-2))))))
(define Hash-Core-n--4232-1872-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--4243-1884 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 (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 5381) ext-0)))
(define Hash-Core-hash_Hashable__Integer (lambda (ext-0) (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 5381) ext-0)))
(define Hash-Core-hashWithSalt_Hashable__String (lambda (arg-0 arg-1) (Hash-Core-n--4232-1872-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 (Prelude-fromInteger_Num__Integer 0)) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 (Prelude-fromInteger_Num__Integer 1)) (lambda (eta-0) (Hash-Core-hashWithSalt_Hashable__Integer arg-0 (Prelude-fromInteger_Num__Integer 2))) ext-0)))
(define Hash-Core-hashWithSalt_Hashable__Nat (lambda (arg-0 arg-1) (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int arg-0 33) (Hash-Core-hash_Hashable__Nat arg-1))))
(define Hash-Core-hashWithSalt_Hashable__Name (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (let ((e-0 (vector-ref sc0 1))) (Hash-Core-hashWithSalt_Hashable__String arg-0 e-0))) ((4) (let ((e-3 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name arg-0 e-3))) ((0) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__String arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__String arg-1616 arg-1617)))) 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) (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int arg-0 33) (Hash-Core-hash_Hashable__Integer arg-1))))
(define Hash-Core-hashWithSalt_Hashable__Int (lambda (arg-0 arg-1) (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int arg-0 33) (Hash-Core-hash_Hashable__Int arg-1))))
(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 (Prelude-fromInteger_Num__Integer 0)) e-4))) ((1) (let ((e-9 (vector-ref sc0 3))) (Hash-Core-hashWithSalt_Hashable__Name (Hash-Core-hashWithSalt_Hashable__Integer arg-1 (Prelude-fromInteger_Num__Integer 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-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (Hash-Core-hashWithSalt_Hashable__Int (Hash-Core-hashWithSalt_Hashable__Integer arg-1 (Prelude-fromInteger_Num__Integer 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-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 8)) e-41))) ((9) (let ((e-44 (vector-ref sc0 2))) (Hash-Core-hashWithSalt_Hashable__String (Hash-Core-hashWithSalt_Hashable__Integer arg-1 (Prelude-fromInteger_Num__Integer 9)) (TT-Core-show_Show__Constant e-44)))) ((10) (Hash-Core-hashWithSalt_Hashable__Integer arg-1 (Prelude-fromInteger_Num__Integer 10))) (else (Hash-Core-hashWithSalt_Hashable__Integer arg-1 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 0))) ((1) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 (Prelude-fromInteger_Num__Integer 1))) ((2) (Hash-Core-hashWithSalt_Hashable__Integer arg-2 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-C-43_Num__Int (Prelude-C-42_Num__Int arg-2 33) (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (e-1 e-2)))) 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 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 (Prelude-fromInteger_Num__Integer 5)) e-21)) e-22))))))))))
(define Hash-Core-__Impl_Hashable_String (lambda () (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__String arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__String arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Nat arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Nat arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Integer arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Integer arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Int arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Int arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-1616 arg-1617))))))
(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-1616 arg-1617))))))
(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--4774-1431 (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--4646-1354 (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--4200-892 (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--4531-1181-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--4531-1180-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--4531-1180-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--4531-1180-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--4531-1179-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3))))))))
(define CaseTree-Core-n--4531-1179-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--4531-1181-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--4531-1181-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--4531-1181-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--4531-1181-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-3112) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3116)))))))
(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--4774-1431 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--4646-1354 e-25 e-24 arg-1 arg-0 (Prelude-C-61C-61_Eq__Int (TT-Core-constTag e-25) (Prelude-fromInteger_Num__Int 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--4200-892 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--4531-1181-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-1273) (lambda (eta-0) (lambda (eta-1) (TT-Core-addMetas 'erased eta-0 eta-1)))) (NameMap-Data-empty 'erased) ext-0)))
(define CaseTree-Core-eqTree (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 3))) (let ((e-5 (vector-ref sc0 5))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-17 (vector-ref sc1 5))) (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat e-2 e-2) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-5) (List-Data-length 'erased e-5)) (lambda () (Extra-Bool-Data-allTrue (List-Data-zipWith 'erased 'erased 'erased (lambda (eta-0) (lambda (eta-1) (CaseTree-Core-eqAlt 'erased 'erased eta-0 eta-1))) e-5 e-17))))))))(else 1)))))) ((1) (let ((e-8 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-20 (vector-ref sc1 2))) (TT-Core-eqTerm 'erased 'erased e-8 e-20)))(else 1))))) ((2) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) 0)(else 1)))) ((3) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) 0)(else 1))))(else 1)))))
(define CaseTree-Core-eqAlt (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-4 (vector-ref sc0 4))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 4))) (Prelude-C-38C-38 (Name-Core-C-61C-61_Eq__Name e-1 e-15) (lambda () (CaseTree-Core-eqTree 'erased 'erased e-4 e-18))))))(else 1)))))) ((1) (let ((e-8 (vector-ref sc0 3))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-22 (vector-ref sc1 3))) (CaseTree-Core-eqTree 'erased 'erased e-8 e-22)))(else 1))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((2) (let ((e-24 (vector-ref sc1 1))) (let ((e-25 (vector-ref sc1 2))) (Prelude-C-38C-38 (TT-Core-C-61C-61_Eq__Constant e-10 e-24) (lambda () (CaseTree-Core-eqTree 'erased 'erased e-11 e-25))))))(else 1)))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((e-27 (vector-ref sc1 1))) (CaseTree-Core-eqTree 'erased 'erased e-13 e-27)))(else 1)))))(else 1)))))
(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-1263) (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--6574-3025 (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--6425-2890 (lambda (arg-0 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--6393-2838 (lambda (arg-0 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--6425-2890 '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--5484-1971 (lambda (arg-0 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--5108-1637 (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--4739-1287 (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--4167-730 (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--4105-685 (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-thin 'erased (vector 0 ) arg-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) "String") ((3) "Double") ((4) "Char") ((5) "Ptr") ((6) "%World") ((7) (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)))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "IORes " (CompileExpr-Core-show_Show__CFType e-2)))) ((9) (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-3112) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3116)))))))
(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--4167-730 '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 (Prelude-C-43_Num__Int 1 e-2)))))(else (vector 2 (Name-Core-nameRoot arg-0) 0))))))
(define CompileExpr-Core-thinConstAlt (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-thin 'erased arg-1 arg-2 e-2)))))))
(define CompileExpr-Core-thinConAlt (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-thin 'erased (List-Prelude-C-43C-43 'erased e-3 arg-1) arg-2 scC-39))))))))))
(define CompileExpr-Core-thin (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--4739-1287 'erased arg-1 'erased e-2 'erased e-3 arg-2 (TT-Core-insertNVar 'erased 'erased 'erased arg-1 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-thin 'erased (vector 1 e-10 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-thin 'erased (vector 1 e-14 arg-1) arg-2 e-17))) (vector 3 e-13 e-14 e-15 (CompileExpr-Core-thin 'erased 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-thin 'erased arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-thin 'erased 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-thin 'erased 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-thin 'erased 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-thin 'erased 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-thin 'erased 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-thin 'erased 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-thin 'erased arg-1 arg-2 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-thinConAlt 'erased arg-1 arg-2 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-thin 'erased 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-thin 'erased arg-1 arg-2 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-thinConstAlt 'erased arg-1 arg-2 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-thin 'erased 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-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--5484-1971 '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--6393-2838 '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--6574-3025 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--5108-1637 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--4105-685 '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 Normalise-Core-case--18414-12380 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))) (else (Normalise-Core-n--18414-12144-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1))))))
(define Normalise-Core-case--18281-12108 (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--18281-12021-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 arg-1)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Normalise-Core-case--18185-11941 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Normalise-Core-case--18093-11855 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Normalise-Core-case--18001-11769 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Normalise-Core-case--17905-11681 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-2 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "LOG " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat arg-4) (Strings-Prelude-C-43C-43 ": " (Strings-Prelude-C-43C-43 (arg-3) (Strings-Prelude-C-43C-43 ": " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Normalise-Core-case--17513-11266 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--16685-11230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Normalise-Core-convGen_Convert__NF arg-0 arg-11 arg-10 arg-9 arg-4 arg-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--17366-11142 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0)))(else (lambda (eta-0) (Context-Core-clearDefs arg-10 eta-0)))))))
(define Normalise-Core-case--16685-11105 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0))(else (Context-Core-clearDefs arg-10 eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--16685-11039 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--16685-10942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--16685-10860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--16685-10797 (lambda (arg-0 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--16685-10560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (((arg-2 arg-10) arg-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (((arg-6 arg-10) arg-13) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14336-10428 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (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--14336-10368 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
(define Normalise-Core-case--14336-10304 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (Normalise-Core-convGen_Convert__NF arg-0 arg-9 arg-8 arg-7 arg-1 arg-4))))))
(define Normalise-Core-case--14332-10222 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--15459-9451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 (Normalise-Core-convGen_Convert__Closure arg-0 arg-9 arg-8 arg-7 arg-36 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--15346-9371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--15459-9451 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--14329-8807-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--15236-9293 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--15346-9371 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--14329-8807-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--15135-9217 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--15236-9293 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--14329-8806-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--15051-9145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--15135-9217 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--14329-8806-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14979-9085 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--15051-9145 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14909-9036 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--14979-9085 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14845-8986 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14979-9085 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14786-8940 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Context-Core-lookupCtxtExact arg-4 (let ((sc3 arg-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14979-9085 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Normalise-Core-case--14737-8896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 ((Context-Core-lookupCtxtExact arg-3 (let ((sc4 arg-8)) (let ((e-30 (vector-ref sc4 1))) e-30))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Context-Core-lookupCtxtExact arg-4 (let ((sc6 arg-8)) (let ((e-32 (vector-ref sc6 1))) e-32))) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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--14979-9085 arg-0 arg-1 arg-2 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14329-8858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-chkSameDefs arg-0 arg-9 arg-8 arg-7 arg-3 arg-4 arg-6 arg-5 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-17 ((Context-Core-lookupCtxtExact arg-3 (let ((sc7 arg-8)) (let ((e-35 (vector-ref sc7 1))) e-35))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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-18 ((Context-Core-lookupCtxtExact arg-4 (let ((sc9 arg-8)) (let ((e-37 (vector-ref sc9 1))) e-37))) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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--14979-9085 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14443-8658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Normalise-Core-allConv arg-0 arg-7 arg-6 arg-5 arg-2 arg-1)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14403-8613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-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 ((_-0 (vector 1 (vector 1 e-2 e-3 e-4 e-5 e-6)))) (Normalise-Core-case--14443-8658 arg-0 arg-1 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-3 e-5 e-4 _-0 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased arg-10) (List-Data-length 'erased e-3)) (lambda () (CaseTree-Core-eqTree 'erased 'erased arg-11 e-5)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--14326-8583 (lambda (arg-0 arg-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 ((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))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupDefExact arg-3 (let ((sc2 arg-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((_-0 (vector 1 (vector 1 e-2 e-3 e-4 e-5 e-6)))) (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-13 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((e-11 (vector-ref sc4 3))) (let ((e-10 (vector-ref sc4 4))) (let ((e-9 (vector-ref sc4 5))) (let ((_-1 (vector 1 (vector 1 e-13 e-12 e-11 e-10 e-9)))) ((Normalise-Core-case--14443-8658 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-6 e-3 e-5 e-4 _-0 e-13 e-9 e-12 e-10 e-11 _-1 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) (List-Data-length 'erased e-12)) (lambda () (CaseTree-Core-eqTree 'erased 'erased e-5 e-10)))) eta-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-case--12811-7882 (lambda (arg-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-15 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-1 e-6 arg-10)) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-9 arg-8 arg-7 arg-6 arg-3) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-10)) eta-0))))))))))))
(define Normalise-Core-case--13696-7807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12796-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) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-6 (vector 0 ) e-1)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))) eta-0)))))))
(define Normalise-Core-case--13034-7339 (lambda (arg-0 arg-1 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--13053-7280 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (vector 1 (+ 1 arg-14))))
(define Normalise-Core-case--13034-7204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12796-7188-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--12796-7146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-8 arg-4 arg-11)) ext-0)))
(define Normalise-Core-case--12875-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) (+ 1 arg-17)))
(define Normalise-Core-case--12354-6585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-8)) 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))) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-15 e-5 arg-14 arg-12 e-6 arg-6 (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-8)) eta-0))))))))))))
(define Normalise-Core-case--9824-6547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12354-6585 arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-8)) eta-0)))))))
(define Normalise-Core-case--12212-6460 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define Normalise-Core-case--9823-6428 (lambda (arg-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-15 ((Normalise-Core-n--9823-6394-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) ((Normalise-Core-case--12212-6460 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))
(define Normalise-Core-case--9822-6362 (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--11876-6237 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-9)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 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-12) e-7)))))))))))
(define Normalise-Core-case--9820-6129 (lambda (arg-0 arg-1 arg-2 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) (Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 arg-9 arg-11 arg-10 (TT-Core-embed 'erased 'erased arg-5) arg-7)) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) arg-6)(else (let ((e-3 (- e-2 1))) (let ((optsC-39 (let ((sc1 arg-9)) (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))))))))))) (Normalise-Core-evalWithOpts arg-3 arg-2 arg-0 optsC-39 arg-11 arg-10 (TT-Core-embed 'erased 'erased arg-5) arg-7))))))))))))
(define Normalise-Core-case--9818-5989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-11 arg-10 arg-9 arg-8 arg-7 arg-4 arg-5)) (else arg-5)))))
(define Normalise-Core-case--9818-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) (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-6 arg-8)) (else arg-8)))))
(define Normalise-Core-case--9818-5705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (Normalise-Core-evalTree arg-0 arg-1 arg-3 arg-2 arg-14 arg-13 arg-12 arg-11 arg-10 arg-7 arg-9)) (else arg-9)))))
(define Normalise-Core-case--9818-5600 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-18 arg-17 arg-16 arg-15 arg-14 arg-8 arg-4 arg-10 arg-13)) (else arg-13)))))
(define Normalise-Core-case--9818-5503 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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) (Normalise-Core-evalConAlt arg-0 arg-1 arg-9 arg-2 arg-18 arg-17 arg-16 arg-15 arg-14 arg-8 arg-4 arg-10 arg-13)) (else arg-13)))))
(define Normalise-Core-case--10815-5272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))
(define Normalise-Core-case--10772-5236 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))
(define Normalise-Core-case--10732-5204 (lambda (arg-0 arg-1 arg-2 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-updateLimit arg-6 arg-5 e-1) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))
(define Normalise-Core-case--9815-5175 (lambda (arg-0 arg-1 arg-2 arg-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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-updateLimit arg-6 arg-5 e-2) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3)) eta-0)))))))
(define Normalise-Core-case--10439-4961 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)) eta-0)))))))
(define Normalise-Core-case--9812-4929 (lambda (arg-0 arg-1 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--10439-4961 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-3112) (TT-Core-weaken_Weaken__Term n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Term vars ns arg-3116))))) arg-3 arg-6 'erased arg-10))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-9 (vector 0 arg-8 arg-6) arg-5)) eta-0)))))))
(define Normalise-Core-case--9810-4762 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-6 arg-5 arg-10 arg-7)) eta-0)))))))
(define Normalise-Core-case--9810-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)) (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-15 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-5 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 arg-4 arg-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-7 arg-6 e-5 e-6)) eta-0)))))))))))))))))
(define Normalise-Core-case--9810-4504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0)))))))) (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--9745-4310 (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--9654-4189-set arg-0 arg-1 arg-1 arg-2 e-7)))))))))))))
(define Normalise-Core-case--9731-4268 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (cond ((equal? sc1 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (let ((e-3 (- e-2 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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--9654-4189-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))) eta-0))))))))))))
(define Normalise-Core-case--9654-4255 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--9731-4268 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-1 (let ((sc1 arg-0)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-0)) eta-0)))))))
(define Normalise-Core-case--9658-4209 (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--9654-4189-set arg-0 arg-1 arg-6 arg-5 arg-4)))))))
(define Normalise-Core-case--9540-4159 (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--9561-4129 (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--9540-4103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))))))))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Normalise-Core-n--12811-7785-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--9821-6272-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--9821-6272-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--9654-4189-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--9658-4209 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--18414-12144-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-15 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-n--18414-12144-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((xC-39 (vector 2 "tmp" arg-6))) (let ((act-16 (let ((act-16 (((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replaceC-39 arg-0 (Prelude-C-43_Num__Int arg-6 1) arg-5 arg-4 arg-3 arg-2 e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))))))))))) ((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-15 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--18414-12143-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-6 e-9 e-5)) 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))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--18414-12143-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-10 e-7 e-5)) 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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--18414-12143-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-16 e-7 e-5)) eta-0))))))))))))))))))))))) ((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-15 ((Normalise-Core-n--18414-12144-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-n--18414-12144-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-25) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-22 e-23 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Normalise-Core-n--18414-12144-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-27 e-28 e-5)) eta-0))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Normalise-Core-evalClosure arg-0 arg-5 e-33) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-5 e-34) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-31 e-32 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-n--18414-12143-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-n--18414-12144-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5)) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-15 (Context-Core-clearDefs arg-5 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--18414-12143-repArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((Normalise-Core-evalClosure arg-0 arg-5 arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--14329-8807-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--14329-8807-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--12796-7188-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--13034-7204 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--12796-7188-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--14329-8806-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--9823-6394-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure arg-2 arg-0 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-n--9823-6394-evalAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0)))))))))))))))))))
(define Normalise-Core-n--18281-12021-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((Normalise-Core-n--18281-12021-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 (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 " " (Name-Core-show_Show__Name e-2)))))) e-9 (TT-Core-binderType 'erased e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((Normalise-Core-n--18281-12021-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0)))))))))))))))))))
(define Normalise-Core-n--9818-5939-concrete (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((2) 0) ((3) 0) ((8) 0) ((0) 0) ((10) 0)(else 1)))))
(define Normalise-Core-n--9810-4457-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--9810-4457-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--9811-4860-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-15 (((e-4 arg-0) e-26) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) ((Normalise-Core-n--9811-4860-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) eta-0)))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) 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))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-10 e-11 e-12 e-13 (List-Prelude-C-43C-43 'erased e-14 arg-9))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-16 e-17 e-18 e-19 (List-Prelude-C-43C-43 'erased e-20 arg-9))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) eta-0)))))))
(define Normalise-Core-n--12796-7063-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--12875-7092 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--12796-7063-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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) ext-0)))
(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-15 ((Normalise-Core-evalClosure arg-0 arg-2 arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((Normalise-Core-nf arg-0 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Normalise-Core-nf arg-0 arg-2 arg-3 arg-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Normalise-Core-genName arg-1 "conv" eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-convBinders arg-0 arg-1 arg-2 arg-3 e-98 e-107) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 (((e-99 arg-2) c) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (((e-108 arg-2) c) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))))(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-15 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-103 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-5 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-10860 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((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--16685-10942 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((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--16685-11039 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-11105 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((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--16685-11230 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-61C-61_Eq__Constant e-44 e-85)) eta-0))))(else (let ((sc3 arg-5)) (case (vector-ref sc3 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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-15 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-10860 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (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--16685-10942 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((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--16685-11039 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-11105 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((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--16685-11230 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-61C-61_Eq__Constant e-44 e-85)) eta-0))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))))))))))(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-15 (Context-Core-clearDefs arg-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 e-94 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-10860 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((3) (let ((e-18 (vector-ref sc1 1))) (let ((e-19 (vector-ref sc1 2))) (let ((e-20 (vector-ref sc1 3))) (let ((e-21 (vector-ref sc1 4))) (let ((e-22 (vector-ref sc1 5))) (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--16685-10942 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((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--16685-11039 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-11105 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((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--16685-11230 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-61C-61_Eq__Constant e-44 e-85)) eta-0))))(else (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))))(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-15 ((Normalise-Core-chkConvHead arg-0 arg-1 arg-2 arg-3 e-9 e-50) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-10860 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((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--16685-10942 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((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--16685-11039 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))) ((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--16685-11105 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((7) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (let ((e-41 (vector-ref sc0 4))) (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--16685-11230 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-61C-61_Eq__Constant e-44 e-85)) eta-0))))(else (let ((sc1 arg-5)) (case (vector-ref sc1 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))))
(define Normalise-Core-convGen_Convert__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 ((Normalise-Core-evalClosure arg-0 arg-2 arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-2 arg-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6850 arg-6851 arg-6853 eta-0)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6855 arg-6857 arg-6858 arg-6860 eta-0))))))))))
(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6850 arg-6851 arg-6853 eta-0)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (Normalise-Core-quoteGen_Quote__NF vars arg-6855 arg-6857 arg-6858 arg-6860)))))))))
(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-0)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 eta-0))))))))))
(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8378) (lambda (arg-8379) (lambda (arg-8381) (lambda (arg-8382) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8378 arg-8379 arg-8381 arg-8382 eta-0))))))) (lambda (vars) (lambda (arg-8384) (lambda (arg-8386) (lambda (arg-8387) (lambda (arg-8389) (lambda (arg-8390) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8384 arg-8386 arg-8387 arg-8389 arg-8390 eta-0)))))))))))
(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8378) (lambda (arg-8379) (lambda (arg-8381) (lambda (arg-8382) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8378 arg-8379 arg-8381 arg-8382 eta-0))))))) (lambda (vars) (lambda (arg-8384) (lambda (arg-8386) (lambda (arg-8387) (lambda (arg-8389) (lambda (arg-8390) (Normalise-Core-convGen_Convert__NF vars arg-8384 arg-8386 arg-8387 arg-8389 arg-8390))))))))))
(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8378) (lambda (arg-8379) (lambda (arg-8381) (lambda (arg-8382) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8378 arg-8379 arg-8381 arg-8382 eta-0))))))) (lambda (vars) (lambda (arg-8384) (lambda (arg-8386) (lambda (arg-8387) (lambda (arg-8389) (lambda (arg-8390) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8384 arg-8386 arg-8387 arg-8389 arg-8390 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-4)) eta-0))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((9) (let ((e-0 (vector-ref sc1 1))) (Normalise-Core-case--9540-4103 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--9540-4159 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--9654-4255 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-2)) eta-0)))))))
(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 arg-11) (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--9818-5503 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-11 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--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11)))))))))))) ((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--9818-5600 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-11 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--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11)))))))))))) ((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--9818-5705 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-47 e-43 e-41 arg-11 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--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))))) ((2) (let ((e-45 (vector-ref sc1 1))) (let ((e-46 (vector-ref sc1 2))) (Normalise-Core-case--9818-5871 arg-0 arg-1 arg-2 arg-3 e-15 e-16 e-46 e-45 arg-11 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--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))) ((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 arg-11))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11)))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))) ((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 arg-11))(else (let ((sc7 arg-10)) (case (vector-ref sc7 0) ((3) (let ((e-1 (vector-ref sc7 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11)))))))))(else (let ((sc6 arg-10)) (case (vector-ref sc6 0) ((3) (let ((e-1 (vector-ref sc6 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11)))))))))(else (let ((sc5 arg-10)) (case (vector-ref sc5 0) ((3) (let ((e-1 (vector-ref sc5 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11)))))))(else (let ((sc4 arg-10)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))(else (let ((sc3 arg-10)) (case (vector-ref sc3 0) ((3) (let ((e-1 (vector-ref sc3 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))))(else (let ((sc2 arg-10)) (case (vector-ref sc2 0) ((3) (let ((e-1 (vector-ref sc2 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))))) ((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 arg-11)))))(else (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((3) (let ((e-1 (vector-ref sc1 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11)))))))))(else (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-case--9818-5989 arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 (Normalise-Core-n--9818-5939-concrete arg-0 arg-1 arg-2 arg-3 e-1 arg-11 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-9))))(else arg-11))))))))
(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--9821-6272-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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-15 (Normalise-Core-convert_Convert__NF arg-0 arg-2 arg-3 arg-4 arg-6 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) ext-0)) (else ((Normalise-Core-n--18414-12144-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))))))
(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--12796-7146 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--12796-7063-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--12796-7384 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--12796-7188-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-4 e-6 e-7)) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-4 e-6 e-7)) eta-0)))))))) (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-15 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-5 arg-6 e-11) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-4 e-9 e-10 e-5)) eta-0)))))))))))))))
(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-15 (Normalise-Core-genName arg-2 "qv" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-quoteBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 e-7 e-6)) 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-15 ((Normalise-Core-quoteHead arg-0 arg-1 arg-2 arg-3 e-6 arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-6 e-5 e-9)) 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))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)) 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-15 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-20) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)) eta-0))))))))))))) ((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-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-24) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-25) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-22 e-23 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-29) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-27 e-28 e-5)) eta-0))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--12811-7785-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-evalClosure arg-1 arg-3 (Normalise-Core-n--12811-7785-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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-31 e-32 e-8 e-6)) eta-0))))))))))))))))))))))))))) ((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-15 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-39) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-evalClosure arg-1 arg-3 e-4) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-1 e-7 e-5)) eta-0))))))))))))))(else (let ((act-16 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-38) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5)) eta-0)))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-41 e-42)) eta-0))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-44 e-45)) eta-0))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-47)) eta-0))))))))
(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-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-6 e-5)) 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-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-7) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-8 e-9)) 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-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-11) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-10) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-9 e-6 e-5)) 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-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quotePi arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-14) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-13 e-6 e-5)) eta-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-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-18) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-19) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-17 e-5 e-6)) eta-0)))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-21 e-5)) eta-0))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure arg-1 arg-3 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-quoteGenNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-quoteArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) eta-0))))))))))))))))))))))))
(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-15 ((Normalise-Core-normaliseScope (vector 1 e-2 arg-0) arg-1 (vector 1 e-3 arg-2) e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 e-3 e-5)) eta-0))))))))))))(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-15 ((Normalise-Core-nfOpts arg-0 arg-1 arg-2 arg-3 arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((Normalise-Core-nfOpts arg-0 (Value-Core-withHoles) arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles e-0 e-5 e-2 e-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-normaliseHoles e-0 e-5 e-2 e-4 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-0 e-1 e-2 e-6 e-7)) 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))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles e-5 e-10 e-7 e-8 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-normaliseHoles e-5 e-10 e-7 e-9 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6 e-7 e-11 e-12)) eta-0))))))))))))))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles e-10 e-5 e-12 e-13 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-normaliseHoles e-10 e-5 e-12 e-14 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-normaliseErr arg-0 e-15) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-10 e-11 e-12 e-6 e-7 e-8)) eta-0))))))))))))))))))))))))))))) ((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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles e-16 e-5 e-18 e-19 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 29 e-16 e-17 e-18 e-6)) eta-0))))))))))))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (x) (lambda (eta-1) (let ((act-15 ((Normalise-Core-normaliseErr arg-0 (Builtin-snd 'erased 'erased x)) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased x) e-5)) eta-1)))))))) e-20) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 e-5)) eta-0))))))))) ((55) (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-15 ((Normalise-Core-normaliseErr arg-0 e-23) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 55 e-21 e-22 e-5)) eta-0))))))))))) ((56) (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-15 ((Normalise-Core-normaliseErr arg-0 e-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 56 e-24 e-25 e-5)) eta-0))))))))))) ((57) (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-15 ((Normalise-Core-normaliseErr arg-0 e-29) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 57 e-27 e-28 e-5)) eta-0))))))))))) ((58) (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-15 ((Normalise-Core-normaliseErr arg-0 e-32) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 58 e-30 e-31 e-5)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Normalise-Core-normaliseArgHoles (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((Normalise-Core-nfOpts arg-0 (Value-Core-withArgHoles) arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((Normalise-Core-nf arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--18001-11769 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-15 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--17905-11681 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-15 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--18185-11941 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-15 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--18093-11855 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-15 (Context-Core-getSession arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Normalise-Core-case--18281-12108 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)) (lambda (c) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased c eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Context-Core-clearDefs arg-1 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-1))))))
(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-15 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-getValArity arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (+ 1 e-9)) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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-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-15 ((Normalise-Core-nf arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Prelude-C-43_Num__Int e-5 1) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-1 e-5)) ext-0))))))))))))
(define Normalise-Core-gType (lambda (arg-0 arg-1) (vector 0 0 (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 arg-1)) eta-0)) (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 arg-1)) eta-1))))))
(define Normalise-Core-gErased (lambda (arg-0 arg-1) (vector 0 0 (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 arg-1 1)) eta-0)) (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-1 1)) eta-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 arg-11) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((0) arg-11) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (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 (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 arg-11)))))))))
(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 arg-10) (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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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 arg-10) eta-0))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Normalise-Core-case--9820-6129 arg-0 arg-1 arg-2 arg-3 e-7 e-8 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 (let ((sc1 arg-6)) (let ((e-6 (vector-ref sc1 7))) e-6))))))(else arg-10)))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-5 arg-7 e-0 e-1 arg-8)) eta-0))))) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 arg-5 arg-7 e-2 e-3 arg-8)) eta-0))))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-9)) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Normalise-Core-updateLimit arg-6 arg-7 e-2) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-9)) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-9)) eta-0)))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-9)) eta-0))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-9)) eta-0)))))))))))))))
(define Normalise-Core-evalOp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Normalise-Core-case--9823-6428 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--9812-4929 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--9811-4860-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--9824-6547 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-11)) eta-0)))))))
(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 arg-12) (Prelude-maybe 'erased 'erased (lambda () arg-12) (lambda () (lambda (bound) (Normalise-Core-evalTree arg-0 arg-1 (List-Prelude-C-43C-43 'erased arg-9 arg-2) arg-3 arg-4 bound arg-6 arg-7 arg-8 arg-11 arg-12))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) eta-0))))))))
(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--9810-4457-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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))))))) ((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--9810-4504 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))))))))))) ((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--9810-4653 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-15 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32 arg-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-30 e-31 e-5)) eta-0))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))) ((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-15 ((Normalise-Core-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-39 e-40 e-5 arg-7)) eta-0)))))))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-43 e-44)) eta-0))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-46 e-47)) eta-0))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-49)) eta-0))))))))
(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--14336-10304 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--14336-10428 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--14336-10368 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--14336-10428 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--14336-10428 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-15 (Context-Core-lookupDefExact arg-4 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 3))) (let ((e-7 (vector-ref sc2 4))) (let ((e-6 (vector-ref sc2 5))) (let ((act-16 (Context-Core-lookupDefExact arg-5 (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((_-0 (vector 1 (vector 1 e-2 e-3 e-4 e-7 e-6)))) (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-14 (vector-ref sc5 1))) (let ((e-13 (vector-ref sc5 2))) (let ((e-12 (vector-ref sc5 3))) (let ((e-11 (vector-ref sc5 4))) (let ((e-10 (vector-ref sc5 5))) (let ((_-1 (vector 1 (vector 1 e-14 e-13 e-12 e-11 e-10)))) ((Normalise-Core-case--14443-8658 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-6 e-3 e-7 e-4 _-0 e-14 e-10 e-13 e-11 e-12 _-1 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__Nat (List-Data-length 'erased e-3) (List-Data-length 'erased e-13)) (lambda () (CaseTree-Core-eqTree 'erased 'erased e-7 e-11)))) ext-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0)))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-61C-61_Eq__Nat e-3 e-15)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-C-61C-61_Eq__Name e-7 e-19)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((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--14332-10222 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-17 (Normalise-Core-chkSameDefs arg-0 arg-2 arg-3 arg-4 e-2 e-5 arg-6 arg-8 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (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-18 ((Context-Core-lookupCtxtExact e-2 (let ((sc10 arg-3)) (let ((e-40 (vector-ref sc10 1))) e-40))) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (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-19 ((Context-Core-lookupCtxtExact e-5 (let ((sc12 arg-3)) (let ((e-42 (vector-ref sc12 1))) e-42))) eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (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--14979-9085 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-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-15 (Normalise-Core-convGen_Convert__Closure arg-0 arg-1 arg-2 arg-3 e-2 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-allConv arg-0 arg-1 arg-2 arg-3 e-3 e-7) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-38C-38 e-5 (lambda () e-8))) eta-0)))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Normalise-Core-Stack (lambda (arg-0) (vector "Prelude.List" (vector "Core.Value.Closure" arg-0))))
(define Primitives-Core-case--9869-4568 (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 3 (string-ref arg-2 arg-4))))) (else (vector 0 ))))))
(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 )))))) ((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 (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 )))))) ((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 (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) ((2) (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 2 (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 2 (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) ((2) (let ((e-23 (vector-ref sc8 1))) (let ((sc9 e-19)) (case (vector-ref sc9 0) ((0) (vector 1 (vector 8 e-5 (vector 2 (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) ((2) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 2 (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) ((2) (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) ((2) (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--9869-4568 '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) ((2) (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 3 (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 3 (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) ((3) (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) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 2 (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) ((2) (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) ((2) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-11)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 8 e-5 (vector 2 (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-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftR e-0 e-2)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shr e-1 e-3)))))(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-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-shiftL e-0 e-2)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-shl e-1 e-3)))))(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))))) ((4) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (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-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-C-42_Num__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))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-C-42_Num__Int e-1 e-4)))))(else (vector 0 )))))) ((4) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (Prelude-C-42_Num__Double e-2 e-5)))))(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-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Integer e-1 e-6)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__String e-2 e-7)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Char e-3 e-8)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60C-61_Ord__Double e-4 e-9)))))(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-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Integer e-1 e-6)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__String e-2 e-7)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Char e-3 e-8)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-60_Ord__Double e-4 e-9)))))(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-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62C-61_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62C-61_Ord__Integer e-1 e-6)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62C-61_Ord__String e-2 e-7)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62C-61_Ord__Char e-3 e-8)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62C-61_Ord__Double e-4 e-9)))))(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-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62_Ord__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62_Ord__Integer e-1 e-6)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62_Ord__String e-2 e-7)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62_Ord__Char e-3 e-8)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62_Ord__Double e-4 e-9)))))(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-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-61C-61_Eq__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))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-61C-61_Eq__Integer e-1 e-6)))))(else (vector 0 )))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-61C-61_Eq__String e-2 e-7)))))(else (vector 0 )))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((3) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-61C-61_Eq__Char e-3 e-8)))))(else (vector 0 )))))) ((4) (let ((e-4 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-61C-61_Eq__Double e-4 e-9)))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Primitives-Core-doubleTy (lambda () (Primitives-Core-predTy (vector 10 ) (vector 10 ))))
(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) ((4) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 4 (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 )))))) ((4) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((4) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 4 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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 8 ))) (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 6 ))))
(define Primitives-Core-castTo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((6) (lambda (eta-0) (Primitives-Core-castInt 'erased eta-0))) ((7) (lambda (eta-0) (Primitives-Core-castInteger 'erased eta-0))) ((8) (lambda (eta-0) (Primitives-Core-castString 'erased eta-0))) ((9) (lambda (eta-0) (Primitives-Core-castChar 'erased eta-0))) ((10) (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 2 (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 2 (Prelude-show_Show__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 2 (String-Utils-stripQuotes (Prelude-show_Show__Char 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 2 (Prelude-show_Show__Double e-10)))))(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 )))))) ((3) (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 (Prelude-cast_Cast__Char_Int e-8))))))(else (vector 0 )))))) ((4) (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__Double_Integer e-9)))))(else (vector 0 )))))) ((2) (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__String_Integer e-10)))))(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 (Prelude-fromInteger_Num__Int e-7)))))(else (vector 0 )))))) ((4) (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 (Prelude-cast_Cast__Double_Int 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 (Prelude-cast_Cast__Char_Int e-9)))))(else (vector 0 )))))) ((2) (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 (Prelude-cast_Cast__String_Int e-10)))))(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 4 (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 4 (Prelude-cast_Cast__Integer_Double 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 4 (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 3 (Prelude-cast_Cast__Int_Char e-7)))))(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-1 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-xor e-0 e-1)))))(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-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-or e-0 e-2)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-or e-1 e-3)))))(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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (blodwen-and e-0 e-2)))))(else (vector 0 )))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (blodwen-and e-1 e-3)))))(else (vector 0 ))))))(else (vector 0 ))))))
(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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (vector 1 (vector 10 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (vector 1 (vector 10 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 10 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 10 ) (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 6 ) (vector 1 (vector 7 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 10 ) (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 6 ) (vector 1 (vector 7 ) (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 6 ) (vector 1 (vector 7 ) (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 6 ) (vector 1 (vector 7 ) (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 6 ) (vector 1 (vector 7 ) (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 6 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (vector 1 (vector 10 ) (vector 1 (vector 8 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (vector 1 (vector 10 ) (vector 1 (vector 8 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (vector 1 (vector 10 ) (vector 1 (vector 8 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (vector 1 (vector 10 ) (vector 1 (vector 8 ) (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 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (vector 1 (vector 10 ) (vector 1 (vector 8 ) (vector 0 ))))))) (List-Prelude-C-43C-43 'erased (vector 1 (vector 0 (+ 1 0) (vector 16 ) (Primitives-Core-predTy (vector 8 ) (vector 6 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 17 ) (Primitives-Core-predTy (vector 8 ) (vector 9 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 0) (vector 18 ) (Primitives-Core-predTy (vector 8 ) (vector 8 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 19 ) (Primitives-Core-constTy (vector 8 ) (vector 6 ) (vector 9 )) (TT-Core-notCovering)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 20 ) (Primitives-Core-constTy (vector 9 ) (vector 8 ) (vector 8 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 0)) (vector 21 ) (Primitives-Core-arithTy (vector 8 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 0) (vector 22 ) (Primitives-Core-predTy (vector 8 ) (vector 8 )) (TT-Core-isTotal)) (vector 1 (vector 0 (+ 1 (+ 1 (+ 1 0))) (vector 23 ) (Primitives-Core-constTy3 (vector 6 ) (vector 6 ) (vector 8 ) (vector 8 )) (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 8 )) (Primitives-Core-predTy t (vector 8 )) (TT-Core-isTotal))) (vector 1 (vector 6 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (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 7 )) (Primitives-Core-predTy t (vector 7 )) (TT-Core-isTotal))) (vector 1 (vector 8 ) (vector 1 (vector 6 ) (vector 1 (vector 9 ) (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 6 )) (Primitives-Core-predTy t (vector 6 )) (TT-Core-isTotal))) (vector 1 (vector 8 ) (vector 1 (vector 7 ) (vector 1 (vector 9 ) (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 10 )) (Primitives-Core-predTy t (vector 10 )) (TT-Core-isTotal))) (vector 1 (vector 8 ) (vector 1 (vector 6 ) (vector 1 (vector 7 ) (vector 0 ))))) (Prelude-map_Functor__List 'erased 'erased (lambda (t) (vector 0 (+ 1 0) (vector 35 t (vector 9 )) (Primitives-Core-predTy t (vector 9 )) (TT-Core-isTotal))) (vector 1 (vector 8 ) (vector 1 (vector 6 ) (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-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-C-43_Num__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-43_Num__Int 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 (Prelude-cast_Cast__Int_Char (Prelude-C-43_Num__Int (Prelude-cast_Cast__Char_Int e-2) (Prelude-cast_Cast__Char_Int 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 (Prelude-C-43_Num__Double e-3 e-7)))))(else (vector 0 ))))))(else (vector 0 ))))))
(define TTImp-TTImp-case--16817-11675 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8 e-9)) eta-0)))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpDecl" eta-0)))))))
(define TTImp-TTImp-case--16587-11290 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))) ((equal? sc0 5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) eta-0))) ((equal? sc0 6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 0 ))) eta-0))) ((equal? sc0 7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 1 ))) eta-0))) ((equal? sc0 8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 2 ))) eta-0))) ((equal? sc0 9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 )) eta-0))) ((equal? sc0 10) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5)) eta-0)))))))) ((equal? sc0 11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FnOpt" eta-0)))))))
(define TTImp-TTImp-case--16228-10903 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8 e-9)) eta-0)))))))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-7)) eta-0))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpData" eta-0)))))))
(define TTImp-TTImp-case--16124-10763 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((equal? sc0 4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DataOpt" eta-0)))))))
(define TTImp-TTImp-case--15952-10633 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-7 e-8)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "ImpClause" eta-0)))))))
(define TTImp-TTImp-case--15826-10449 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "AltType" eta-0)))))))
(define TTImp-TTImp-case--15750-10373 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "BindMode" eta-0)))))))
(define TTImp-TTImp-case--15644-10285 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0)))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "IFieldUpdate" eta-0)))))))
(define TTImp-TTImp-case--14235-9555 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-7 e-8 e-9 e-10)) eta-0))))))))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6 e-7 e-8 e-9 e-10)) eta-0))))))))))))))))))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-6 e-7 e-8 e-9 e-10)) eta-0))))))))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 15 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 15) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 16 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 16) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 17) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-5 (vector 5 ) e-6)) eta-0))))))))))))) ((equal? sc0 18) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 19) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 20) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 21) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 22) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 23) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 24 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 24) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 25 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 25) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 26) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 27 e-5)) eta-0)))))))) ((equal? sc0 27) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 28 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 28) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 29) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 31 e-5 e-6 e-7)) eta-0))))))))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RawImp" eta-0)))))))
(define TTImp-TTImp-case--13356-8320 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-3)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((TTImp-TTImp-n--13356-7955-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-5 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TTImp-TTImp-n--13356-7956-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-4 e-6 (vector 0 arg-4 arg-3))) eta-0))))))))))))))))))
(define TTImp-TTImp-case--13388-8176 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--13356-7955-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-15 (((arg-9 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-11 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((TTImp-TTImp-n--13356-7955-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-12 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-10 (TT-Core-forgetDef 'erased 'erased arg-8)) e-6)) eta-0)))))))))))))))))
(define TTImp-TTImp-case--13388-8072 (lambda (arg-0 arg-1 arg-2 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-15 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((TTImp-TTImp-n--13356-7955-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-11 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-9 (vector 2 )) e-6)) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (((arg-8 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-10 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((TTImp-TTImp-n--13356-7955-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))
(define TTImp-TTImp-case--13387-7978 (lambda (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--13356-7954-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--13114-7782 (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-15 ((Context-Core-inCurrentNS arg-4 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 e-5)) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-1)) eta-0)))))))
(define TTImp-TTImp-n--11999-6701-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 e-10 (lambda (fc) (lambda (nt) (TT-Core-weaken_Weaken__Term arg-0 arg-1 ((e-11 fc) nt))))))))))))))))))
(define TTImp-TTImp-n--13356-7954-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--13387-7978 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 ))))))
(define TTImp-TTImp-n--13847-8515-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--13352-7926-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-15 ((TTImp-TTImp-n--13352-7926-setAs arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-0 e-5 e-2)) 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-15 ((TTImp-TTImp-n--13352-7926-setAs arg-0 arg-1 arg-2 (vector 1 e-5 arg-3) e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-3 e-7 e-5 e-6)) eta-0)))))))))))) ((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-15 ((TTImp-TTImp-n--13352-7926-setAs arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-5 e-9)) eta-0))))))))))) ((0) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupTyExact e-11 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 e-11)) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((TTImp-TTImp-n--13356-7955-findImps arg-0 arg-1 arg-2 e-11 e-10 arg-3 arg-3 e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TTImp-TTImp-n--13356-7956-impAs arg-0 arg-1 arg-2 e-11 e-10 arg-3 e-10 e-7 (vector 0 e-10 e-11))) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define TTImp-TTImp-n--13356-7956-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--13356-7956-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--13356-7956-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 30 arg-6 0))))) ((3) (TTImp-TTImp-n--13356-7956-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 30 arg-6 0)))))(else (TTImp-TTImp-n--13356-7956-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--13356-7956-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 30 arg-6 0))))) ((3) (TTImp-TTImp-n--13356-7956-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 30 arg-6 0)))))(else (TTImp-TTImp-n--13356-7956-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--13356-7956-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))))
(define TTImp-TTImp-n--13841-8384-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--13841-8385-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--13847-8516-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--13841-8385-getFieldName arg-0 arg-1 eta-0)) arg-6)))
(define TTImp-TTImp-n--13847-8517-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--13847-8515-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--13847-8516-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--13847-8514-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--13356-7955-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-15 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) ((TTImp-TTImp-n--13356-7955-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--13388-8072 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--13356-7954-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--13388-8176 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Name-Core-C-61C-61_Eq__Name arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Name-Core-C-47C-61_Eq__Name arg-625 arg-626)))) arg-623 arg-624)))) (vector 1 e-2) arg-6)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define TTImp-TTImp-n--13841-8386-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--13841-8387-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--13841-8386-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--13841-8384-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--13841-8386-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13841-8386-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13841-8384-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--13841-8386-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13841-8387-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13841-8387-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--13841-8386-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--13847-8518-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--13847-8518-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--13841-8386-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--13841-8386-expandNS arg-0 arg-1 (TTImp-TTImp-n--13847-8514-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--13847-8517-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--13847-8516-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--11999-6701-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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 e-4) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((act-19 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-5) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((act-20 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-9) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 e-10) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-11) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-12) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-15) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__Name arg-0 e-16) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-17) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-18) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-20) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-21) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-22) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 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-15 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-24) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-1)))) arg-0 e-25 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-32) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1256 eta-1)))) arg-0 e-33 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-35) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-36) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-38) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-39) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-40) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-42) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-43) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-45) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 11 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-47) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__AltType arg-0 e-48) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 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-15 (Binary-Utils-tag arg-0 12 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-50) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-51) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-53) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-55) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__BindMode arg-0 e-56) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 15 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-58) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 16 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-60) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__UseSide arg-0 e-61) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__Name arg-0 e-62) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 17 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-64) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 18 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-67) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__LazyReason arg-0 e-68) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 19 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-70) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 20 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-72) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 21 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-74) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 22 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-76) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((TTImp-TTImp-toBuf_TTC__ImpDecl 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-15 (Binary-Utils-tag arg-0 23 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-78) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((TTImp-TTImp-toBuf_TTC__RawImp 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-15 (Binary-Utils-tag arg-0 24 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-80) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-82) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((TTC-Core-toBuf_TTC__Constant arg-0 e-83) eta-0))))))))))))) ((27) (let ((e-84 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 26 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((TTC-Core-toBuf_TTC__FC arg-0 e-84) eta-0)))))))) ((28) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 27 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-85) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-86) eta-0))))))))))))) ((29) (let ((e-89 (vector-ref sc0 3))) (TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-89))) ((30) (let ((e-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 28 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-90) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-91) eta-0))))))))))))) (else (let ((e-93 (vector-ref sc0 2))) (let ((e-94 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 29 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-93 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-94) 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-15 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__RigCount arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-1)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1261) (lambda (arg-1262) (TTImp-TTImp-toBuf_TTC__RawImp arg-1261 arg-1262))) (lambda (arg-1261) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1261 eta-1)))) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2)))) arg-1259 eta-1)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-1))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2)))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2)))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4)))) arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2)))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4)))) arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1257) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__RigCount arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-1258 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4)))) arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-3))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4)))) arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1260) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-5)))) arg-1259 eta-4)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4))))) arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__IField arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-1256 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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-2) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-19 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1256 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-0 e-9) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 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-15 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-11) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 e-12 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 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-15 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-14) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 e-15) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__Visibility arg-0 e-16) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-18) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 e-19 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 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-15 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-21) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-0 e-22) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-23) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-24) eta-0))))))))))))))))))))))) ((7) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't write Pragma") eta-0))) (else (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__Nat arg-0 e-26) 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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-2) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-19 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1256 eta-1)))) arg-0 e-3 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1256 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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-0 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-1) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-1)))) arg-0 e-8 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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((TTC-Core-toBuf_TTC__FC arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__Name arg-0 e-3) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 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-15 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-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-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-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-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 "(%quotedecl " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__ImpDecl e-77) ")")))) ((24) (let ((e-79 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%unquote " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-79) ")")))) ((25) (let ((e-81 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%runelab " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-81) ")")))) ((26) (let ((e-83 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-83))) ((28) (let ((e-85 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "?" e-85))) ((29) (let ((e-87 (vector-ref sc0 2))) (let ((e-88 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%logging " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-87) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-88) ")"))))))) ((27) "%type") ((30) (let ((e-91 (vector-ref sc0 2))) (let ((sc1 e-91)) (cond ((equal? sc1 0) "_") (else "?"))))) (else (let ((e-93 (vector-ref sc0 2))) (let ((e-94 (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-93) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-94) ")")))))))))))
(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-4 (vector-ref sc0 5))) (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) "[externally defined pragma]") (else (let ((e-26 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%logging " (Prelude-show_Show__Nat e-26))))))))
(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-6 (vector-ref sc0 4))) (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-6))))))))) (else (let ((e-8 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-8) " 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-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-8 e-9 e-10 e-11)) ext-0)))))))))))))))))))))))))))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7 e-8 e-9 e-10 e-11)) ext-0)))))))))))))))))))))))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7 e-8 e-9 e-10 e-11)) ext-0)))))))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 5) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 6) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 7) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 8) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 9) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 10) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 11) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__AltType arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 12) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 13) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 14) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__BindMode arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 15 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 15) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 16 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 16) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__UseSide arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 17) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-6 (vector 5 ) e-7)) ext-0)))))))))))) ((equal? sc1 18) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__LazyReason arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 19) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 20) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 21) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 22) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 23) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 24 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 24) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 25 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 25) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 26) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 27 e-6)) ext-0))))))) ((equal? sc1 27) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 28 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 28) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 29) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 31 e-6 e-7 e-8)) ext-0)))))))))))))))))(else (Binary-Utils-corrupt 'erased "RawImp" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__ImpTy (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) ext-0))))))))))))))))))
(define TTImp-TTImp-fromBuf_TTC__ImpRecord (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__RigCount arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1261) (lambda (arg-1262) (TTImp-TTImp-toBuf_TTC__RawImp arg-1261 arg-1262))) (lambda (arg-1261) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1261 eta-0)))) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1)))) arg-1259 eta-0)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-0))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1)))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2)))) arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-1))))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1)))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2)))) arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2)))) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1)))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2)))) arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2)))) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__RigCount arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2)))) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1258 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3)))) arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1260) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-4)))) arg-1259 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__IField arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8 e-9)) ext-0))))))))))))))))))))))))))))
(define TTImp-TTImp-fromBuf_TTC__ImpDecl (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTImp-TTImp-fromBuf_TTC__ImpTy arg-0 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7 e-8 e-9 e-10)) ext-0))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__ImpData arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 4) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__Visibility arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 5) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 6) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 7) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6)) ext-0)))))))(else (Binary-Utils-corrupt 'erased "ImpDecl" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__ImpData (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7 e-8 e-9 e-10)) ext-0))))))))))))))))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-8)) ext-0)))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpData" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__ImpClause (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-8 e-9)) ext-0))))))))))))))))))))))(else (Binary-Utils-corrupt 'erased "ImpClause" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__IFieldUpdate (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) ext-0))))))))))))(else (Binary-Utils-corrupt 'erased "IFieldUpdate" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__IField (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8 e-9)) ext-0))))))))))))))))))))))))))))
(define TTImp-TTImp-fromBuf_TTC__FnOpt (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6)) ext-0))))))) ((equal? sc1 3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) ext-0)) ((equal? sc1 4) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6)) ext-0))))))) ((equal? sc1 5) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) ext-0)) ((equal? sc1 6) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 0 ))) ext-0)) ((equal? sc1 7) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 1 ))) ext-0)) ((equal? sc1 8) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 2 ))) ext-0)) ((equal? sc1 9) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 )) ext-0)) ((equal? sc1 10) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-6)) ext-0))))))) ((equal? sc1 11) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0))(else (Binary-Utils-corrupt 'erased "FnOpt" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__DataOpt (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6)) ext-0))))))) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0)) ((equal? sc1 3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) ext-0)) ((equal? sc1 4) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) ext-0))(else (Binary-Utils-corrupt 'erased "DataOpt" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__BindMode (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6)) ext-0))))))) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0))(else (Binary-Utils-corrupt 'erased "BindMode" ext-0)))))))))))
(define TTImp-TTImp-fromBuf_TTC__AltType (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (let ((act-16 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0)))))))(else (Binary-Utils-corrupt 'erased "AltType" ext-0)))))))))))
(define TTImp-TTImp-__Impl_Weaken_NestedNames (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3112) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3116)))))))
(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpTy arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpData arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__IField arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__FnOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__DataOpt arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__BindMode arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-1256 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__AltType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-1256 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_DataOpt (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-623 arg-624))))))
(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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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__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-15 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-0 e-5 e-2)) 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-15 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-3 e-7 e-5 e-6)) eta-0)))))))))))) ((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-15 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-2 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-5 e-9)) eta-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) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0)))(else (TTImp-TTImp-case--13114-7782 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-11 arg-2))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0)))))))
(define TTImp-TTImp-implicitsAs (lambda (arg-0 arg-1 arg-2) (TTImp-TTImp-n--13352-7926-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)) ((26) (let ((e-55 (vector-ref sc0 1))) e-55)) ((28) (let ((e-57 (vector-ref sc0 1))) e-57)) ((29) (let ((e-59 (vector-ref sc0 1))) e-59)) ((27) (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)) ((17) (let ((e-86 (vector-ref sc0 1))) e-86)) ((30) (let ((e-90 (vector-ref sc0 1))) e-90)) (else (let ((e-92 (vector-ref sc0 1))) e-92))))))
(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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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))) ((24) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findImplicits e-42))) ((25) (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-25 (vector-ref sc0 4))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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))) ((24) (let ((e-42 (vector-ref sc0 2))) (TTImp-TTImp-findIBinds e-42))) ((25) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--13841-8387-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 TTC-Core-case--16544-10374 (lambda (arg-0 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-15 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (TTC-Core-fromBuf_TTC__Visibility arg-0 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (TTC-Core-fromBuf_TTC__Totality arg-0 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__DefFlag arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-24 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ))) eta-0)))))))
(define TTC-Core-case--16420-10032 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "SizeChange" eta-0)))))))
(define TTC-Core-case--16269-9919 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) ((equal? sc0 5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__TotalReq arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5)) eta-0)))))))) ((equal? sc0 7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0))) ((equal? sc0 8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) eta-0))) ((equal? sc0 9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 0 ))) eta-0))) ((equal? sc0 10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "DefFlag" eta-0)))))))
(define TTC-Core-case--16204-9818 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "TotalReq" eta-0)))))))
(define TTC-Core-case--15599-9505 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-6 arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) arg-1254 arg-1256 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) arg-1256 eta-1)))) (lambda (y) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257 arg-1258))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-1)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-1))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1254 arg-1257))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1256 eta-1)))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-3)))) arg-1253 arg-1255 eta-2)))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-3)))) arg-1257 eta-2)))) (lambda (y) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1254 arg-1257))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1257) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1258) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1258))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-4)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-4))))) arg-1258 eta-3))))) arg-1257 eta-2)))))) arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-7 e-8 e-9)) eta-0)))))))))))))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-2)))) arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12)) eta-0))))))))))))))))))))))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Bool arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) ((equal? sc0 10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Def" eta-0)))))))
(define TTC-Core-case--15460-9075 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "HoleInfo" eta-0)))))))
(define TTC-Core-case--15250-8862 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CG" eta-0)))))))
(define TTC-Core-case--15042-8733 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-5 arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CDef" eta-0)))))))
(define TTC-Core-case--14778-8487 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((equal? sc0 4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((equal? sc0 5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0))) ((equal? sc0 6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) eta-0))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__CFType arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-5)) eta-0)))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__CFType arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-5 e-6)) eta-0)))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CFType" eta-0)))))))
(define TTC-Core-case--14168-7782 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-3)) eta-0))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
(define TTC-Core-case--13701-7761 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((TTC-Core-case--14168-7782 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-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Bool arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-6 e-7 e-8 e-9)) eta-0)))))))))))))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-6 arg-1) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-6 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-5 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 11) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 12) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 13) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-5)) eta-0)))))))) ((equal? sc0 14) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__FC arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-5 e-6)) eta-0)))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CExp" eta-0)))))))
(define TTC-Core-case--12827-7245 (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--12827-6754-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--12827-6755-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--12827-6756-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
(define TTC-Core-case--13179-7217 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 18) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 )) eta-0))) ((equal? sc0 100) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 36 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 3" eta-0)))))))
(define TTC-Core-case--13178-6953 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5)) eta-0)))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5)) eta-0)))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-5)) eta-0)))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-5)) eta-0)))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-5)) eta-0)))))))) ((equal? sc0 10) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 15 e-5)) eta-0)))))))) ((equal? sc0 14) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 )) eta-0))) ((equal? sc0 15) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 )) eta-0))) ((equal? sc0 16) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 )) eta-0))) ((equal? sc0 35) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-5)) eta-0)))))))) ((equal? sc0 36) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-5)) eta-0)))))))) ((equal? sc0 37) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-5)) eta-0)))))))) ((equal? sc0 38) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5)) eta-0)))))))) ((equal? sc0 39) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-5)) eta-0)))))))) ((equal? sc0 101) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 37 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 2" eta-0)))))))
(define TTC-Core-case--13177-6766 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))) ((equal? sc0 11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 16 )) eta-0))) ((equal? sc0 12) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 )) eta-0))) ((equal? sc0 13) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 )) eta-0))) ((equal? sc0 17) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 )) eta-0))) ((equal? sc0 19) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 24 )) eta-0))) ((equal? sc0 20) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 25 )) eta-0))) ((equal? sc0 22) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 )) eta-0))) ((equal? sc0 23) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 27 )) eta-0))) ((equal? sc0 24) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 28 )) eta-0))) ((equal? sc0 25) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 29 )) eta-0))) ((equal? sc0 26) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 )) eta-0))) ((equal? sc0 27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 31 )) eta-0))) ((equal? sc0 32) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 32 )) eta-0))) ((equal? sc0 33) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 33 )) eta-0))) ((equal? sc0 34) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 34 )) eta-0))) ((equal? sc0 99) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 35 e-5 e-6)) eta-0)))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn 1" eta-0)))))))
(define TTC-Core-case--12688-6289 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Covering" eta-0)))))))
(define TTC-Core-case--12611-6201 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__PartialReason arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Terminating" eta-0)))))))
(define TTC-Core-case--12515-6116 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PartialReason" eta-0)))))))
(define TTC-Core-case--12450-6034 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Visibility" eta-0)))))))
(define TTC-Core-case--12140-5822 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8)) eta-0))))))))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseAlt" eta-0)))))))
(define TTC-Core-case--11953-5605 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 arg-0 e-6 (vector 10 (FC-Core-emptyFC) 1) e-7)) eta-0)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 0 e-5)) eta-0)))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "CaseTree" eta-0)))))))
(define TTC-Core-case--11163-5024 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (FC-Core-emptyFC) arg-4 arg-5)) eta-0))) (else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0)))))))
(define TTC-Core-case--10818-4718 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Binary-Utils-corrupt 'erased "Term" eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) (TTC-Core-getName e-6 arg-1)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (FC-Core-emptyFC) e-5 e-6)) eta-0))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__NameType arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (FC-Core-emptyFC) e-5 e-6)) eta-0))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 (FC-Core-emptyFC) e-5 0 e-6)) eta-0))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-1 arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-5 arg-1) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 (FC-Core-emptyFC) e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 (FC-Core-emptyFC) e-5 e-6)) eta-0))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__UseSide arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 (FC-Core-emptyFC) e-6 e-5 e-7)) eta-0)))))))))))))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 (FC-Core-emptyFC) e-5 e-6)) eta-0))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (FC-Core-emptyFC) e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__LazyReason arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 (FC-Core-emptyFC) e-5 e-6)) eta-0))))))))))))) ((equal? sc0 9) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Constant arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 (FC-Core-emptyFC) e-5)) eta-0)))))))) ((equal? sc0 10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (FC-Core-emptyFC) 1)) eta-0))) ((equal? sc0 11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 (FC-Core-emptyFC))) eta-0)))(else (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--11163-5024 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0))))))))))))))
(define TTC-Core-case--10816-4399 (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-15 (Binary-Utils-tag arg-6 (Prelude-C-43_Num__Int 12 (Prelude-cast_Cast__Nat_Int arg-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-1)))) arg-6 arg-4) eta-0))))))) (else (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-6 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-1)))) arg-6 arg-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__Nat arg-6 arg-1) eta-0)))))))))))))))
(define TTC-Core-case--10766-4350 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "UseSide" eta-0)))))))
(define TTC-Core-case--10403-4139 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))) eta-0))))))))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5 e-6 (vector 10 (FC-Core-emptyFC) 1))) eta-0))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__RigCount arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5 (vector 10 (FC-Core-emptyFC) 1))) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Binder" eta-0)))))))
(define TTC-Core-case--10241-3863 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-6)) eta-0)))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "NameType" eta-0)))))))
(define TTC-Core-case--10176-3766 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "LazyReason" eta-0)))))))
(define TTC-Core-case--9947-3614 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Integer arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0)))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Char arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Double arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5)) eta-0)))))))) ((equal? sc0 5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0))) ((equal? sc0 6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) eta-0))) ((equal? sc0 7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 )) eta-0))) ((equal? sc0 8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 )) eta-0))) ((equal? sc0 9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 )) eta-0))) ((equal? sc0 10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) ((equal? sc0 11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Constant" eta-0)))))))
(define TTC-Core-case--9802-3436 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-1)) (let ((e-2 (vector-ref sc1 2))) ((e-2 arg-2) eta-0))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PiInfo" eta-0)))))))
(define TTC-Core-case--9724-3321 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "RigCount" eta-0)))))))
(define TTC-Core-case--9381-3118 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))) ((equal? sc0 2) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 3) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 4) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 5) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))) ((equal? sc0 6) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1))))) arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 7) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-5 e-6)) eta-0))))))))))))) ((equal? sc0 8) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-5 e-6)) eta-0)))))))))))))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Name" eta-0)))))))
(define TTC-Core-case--9264-2872 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1))))) arg-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1))))) arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) eta-0)))))))))))))))))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "FC" eta-0)))))))
(define TTC-Core-n--12827-6756-fromBuf3 (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 18) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 )) ext-0)) ((equal? sc1 100) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 36 )) ext-0))(else (Binary-Utils-corrupt 'erased "PrimFn 3" ext-0)))))))))))
(define TTC-Core-n--12827-6755-fromBuf2 (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6)) ext-0))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) ext-0))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6)) ext-0))))))) ((equal? sc1 4) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6)) ext-0))))))) ((equal? sc1 6) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6)) ext-0))))))) ((equal? sc1 7) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-6)) ext-0))))))) ((equal? sc1 8) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-6)) ext-0))))))) ((equal? sc1 9) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-6)) ext-0))))))) ((equal? sc1 10) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 15 e-6)) ext-0))))))) ((equal? sc1 14) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 )) ext-0)) ((equal? sc1 15) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 )) ext-0)) ((equal? sc1 16) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 )) ext-0)) ((equal? sc1 35) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6)) ext-0))))))) ((equal? sc1 36) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6)) ext-0))))))) ((equal? sc1 37) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6)) ext-0))))))) ((equal? sc1 38) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-6)) ext-0))))))) ((equal? sc1 39) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-6)) ext-0))))))) ((equal? sc1 101) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 37 )) ext-0))(else (Binary-Utils-corrupt 'erased "PrimFn 2" ext-0)))))))))))
(define TTC-Core-n--12827-6754-fromBuf1 (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 5) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6)) ext-0))))))) ((equal? sc1 11) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 16 )) ext-0)) ((equal? sc1 12) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 )) ext-0)) ((equal? sc1 13) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 )) ext-0)) ((equal? sc1 17) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 )) ext-0)) ((equal? sc1 19) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 24 )) ext-0)) ((equal? sc1 20) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 25 )) ext-0)) ((equal? sc1 22) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 )) ext-0)) ((equal? sc1 23) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 27 )) ext-0)) ((equal? sc1 24) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 28 )) ext-0)) ((equal? sc1 25) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 29 )) ext-0)) ((equal? sc1 26) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 )) ext-0)) ((equal? sc1 27) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 31 )) ext-0)) ((equal? sc1 32) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 32 )) ext-0)) ((equal? sc1 33) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 33 )) ext-0)) ((equal? sc1 34) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 34 )) ext-0)) ((equal? sc1 99) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Constant arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 35 e-6 e-7)) ext-0))))))))))))(else (Binary-Utils-corrupt 'erased "PrimFn 1" ext-0)))))))))))
(define TTC-Core-n--16542-10133-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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-0 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-0 arg-0 e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 e-0 arg-0 e-3) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-15 ((TTC-Core-toBuf_TTC__Terminating arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__SizeChange arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__SizeChange arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1257 eta-1))))) arg-1256 eta-0)))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__SizeChange arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__SizeChange arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-1258 eta-2))))) arg-1257 eta-1)))) arg-1256 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-1 eta-0))))))))))))
(define TTC-Core-toBuf_TTC__PairNames (lambda (arg-0 arg-1 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__Int arg-0 e-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__Int arg-0 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__String arg-0 e-7) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1))))) arg-0 e-10) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__Int arg-0 e-12 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__Int arg-0 e-14 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CDef arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-1256 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-18 (vector-ref sc0 19))) e-18))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2))))) arg-1256 eta-1)))) arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2))))) arg-1257 eta-1)))) arg-1256 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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 ((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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2))))) arg-1256 eta-1)))) arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2))))) arg-1257 eta-1)))) arg-1256 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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 ((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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--16542-10133-cwName arg-1 arg-0 (let ((sc8 arg-1)) (let ((e-1 (vector-ref sc8 2))) e-1))))))) (cond ((equal? sc7 0) (let ((act-22 ((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-23 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0)))) arg-0 (let ((sc9 arg-1)) (let ((e-3 (vector-ref sc9 4))) e-3)) ext-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0)))) arg-0 (let ((sc10 arg-1)) (let ((e-4 (vector-ref sc10 5))) e-4)) ext-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0)))) arg-0 (let ((sc11 arg-1)) (let ((e-30 (vector-ref sc11 6))) e-30)) ext-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0)))) arg-0 (let ((sc12 arg-1)) (let ((e-30 (vector-ref sc12 7))) e-30)) ext-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 (let ((sc13 arg-1)) (let ((e-29 (vector-ref sc13 9))) e-29)) ext-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-28 ((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-28)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-29 ((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-29)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-30 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__DefFlag arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-1256 eta-0)))) arg-0 (let ((sc16 arg-1)) (let ((e-29 (vector-ref sc16 12))) e-29)) ext-0))) (let ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-31 ((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-31)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-32 ((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-32)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-1256 eta-0)))) arg-0 (let ((sc19 arg-1)) (let ((e-23 (vector-ref sc19 21))) e-23)) ext-0)))))))))))))))))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__String arg-0 e-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1))))) arg-0 e-1) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 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-15 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 (TTC-Core-toBuf_TTC__PMDefInfo arg-0 e-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-2) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-19 ((TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-1 arg-0 e-3) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) arg-1254 arg-1256 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) arg-1256 eta-1)))) (lambda (y) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257 arg-1258))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-1)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-1))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1254 arg-1257))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1256 eta-1)))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-3)))) arg-1253 arg-1255 eta-2)))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-3)))) arg-1257 eta-2)))) (lambda (y) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1254 arg-1257))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1257) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1258) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1258))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-3))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-4)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-4))))) arg-1258 eta-3))))) arg-1257 eta-2)))))) arg-1256 eta-1)))) arg-0 e-4 eta-0)))))))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 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-15 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__Int arg-0 e-10 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-11) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-2))))) arg-1256 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-15 (Binary-Utils-tag arg-0 5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__Int arg-0 e-13 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 e-15 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-0 e-16 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (TTC-Core-toBuf_TTC__TypeFlags arg-0 e-17 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-18 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-19 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-2)))) arg-1256 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-15 (Binary-Utils-tag arg-0 6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-21) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__Bool arg-0 e-22) eta-0))))))))))))) ((8) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__RigCount arg-0 e-23) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-24) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 e-26) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-27) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1256 eta-1)))) arg-0 e-0 eta-0)))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Binary-Utils-toBuf_TTC__String arg-0 e-2) eta-0)))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__Char arg-0 e-3 eta-0)))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__Double arg-0 e-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))) ((7) (lambda (eta-0) (Binary-Utils-tag arg-0 7 eta-0))) ((8) (lambda (eta-0) (Binary-Utils-tag arg-0 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))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 11 eta-0)))))))
(define TTC-Core-toBuf_TTC__CG (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0)))))))
(define TTC-Core-toBuf_TTC__CFType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) ((3) (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0))) ((4) (lambda (eta-0) (Binary-Utils-tag arg-0 4 eta-0))) ((5) (lambda (eta-0) (Binary-Utils-tag arg-0 5 eta-0))) ((6) (lambda (eta-0) (Binary-Utils-tag arg-0 6 eta-0))) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__CFType arg-0 e-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-1) eta-0))))))))))))) ((8) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((TTC-Core-toBuf_TTC__CFType arg-0 e-2) eta-0)))))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__String arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__CFType arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 e-4 eta-0))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-0 10 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-1)))) arg-0 e-6 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-15 (Binary-Utils-tag arg-0 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-0 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__Nat arg-0 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 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-15 (Binary-Utils-tag arg-0 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-0 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-1)))) arg-0 e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-0 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--10816-4399 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-15 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__NameType arg-1 e-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-1 e-12) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 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-15 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-1 e-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 e-18) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-22) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-27) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__UseSide arg-1 e-26) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-31) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-35) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 e-36) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__LazyReason arg-1 e-40) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 99 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Constant arg-1 e-19) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 35 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 36 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 37 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 38 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 39 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 10 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-fromInteger_Num__Int 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 (Prelude-fromInteger_Num__Int 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-15 (Binary-Utils-tag arg-2 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-1 e-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 e-5 eta-0)))))))))))))))))) ((1) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__Int arg-1 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-1 e-3 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-15 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Name arg-1 e-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-1 e-7) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__Constant arg-1 e-10) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-9) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-1 e-10) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-13) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-1 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((Binary-Utils-toBuf_TTC__Bool arg-1 e-15) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-16) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-19) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-20) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 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-15 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-23) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-1 e-24) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-1 e-25) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 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-15 (Binary-Utils-tag arg-1 6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-29) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Binary-Utils-toBuf_TTC__Nat arg-1 e-28) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 e-28 arg-1 e-30) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-28 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 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-15 (Binary-Utils-tag arg-1 7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-33) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__Name arg-1 e-34) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 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-15 (Binary-Utils-tag arg-1 8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-37) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-40) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 10 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-43) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-44) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 e-45 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 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-15 (Binary-Utils-tag arg-1 11 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-48) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 e-49) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 e-50 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 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-15 (Binary-Utils-tag arg-1 12 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-53) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__FC arg-1 e-58) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((TTC-Core-toBuf_TTC__Constant arg-1 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 ((TTC-Core-toBuf_TTC__Name arg-1 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-1)))) arg-1 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-1 e-3 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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-15 (Binary-Utils-tag arg-1 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Binary-Utils-tag arg-1 1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-9) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 e-10) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-13) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-1)))) arg-1 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((TTC-Core-toBuf_TTC__RigCount arg-1 e-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Binary-Utils-tag arg-1 5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0))(else (Binary-Utils-corrupt 'erased "Visibility" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__UseSide (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0))(else (Binary-Utils-corrupt 'erased "UseSide" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__TypeFlags (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define TTC-Core-fromBuf_TTC__Transform (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-5 arg-0) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 e-5 arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8 e-9)) ext-0))))))))))))))))))))))))))))
(define TTC-Core-fromBuf_TTC__Totality (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Terminating arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Covering arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define TTC-Core-fromBuf_TTC__TotalReq (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0))(else (Binary-Utils-corrupt 'erased "TotalReq" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__Terminating (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__PartialReason arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0)))))))(else (Binary-Utils-corrupt 'erased "Terminating" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__SizeChange (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0))(else (Binary-Utils-corrupt 'erased "SizeChange" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__SCCall (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__SizeChange arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__SizeChange arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1257 eta-1))))) arg-1256 eta-0)))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__SizeChange arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__SizeChange arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-1258 eta-2))))) arg-1257 eta-1)))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define TTC-Core-fromBuf_TTC__RigCount (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) ext-0))(else (Binary-Utils-corrupt 'erased "RigCount" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__RewriteNames (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define TTC-Core-fromBuf_TTC__PrimNames (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) ext-0))))))))))))))))))
(define TTC-Core-fromBuf_TTC__PartialReason (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) ext-0))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0)))))))(else (Binary-Utils-corrupt 'erased "PartialReason" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__PairNames (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) ext-0))))))))))))))))))
(define TTC-Core-fromBuf_TTC__PMDefInfo (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__HoleInfo arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define TTC-Core-fromBuf_TTC__NameType (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 3) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7)) ext-0))))))))))))(else (Binary-Utils-corrupt 'erased "NameType" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__Name (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) ext-0))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 4) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 5) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6)) ext-0))))))) ((equal? sc1 6) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0))))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 7) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 8) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6 e-7)) ext-0))))))))))))(else (Binary-Utils-corrupt 'erased "Name" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__LazyReason (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0))(else (Binary-Utils-corrupt 'erased "LazyReason" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__HoleInfo (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) ext-0)))))))(else (Binary-Utils-corrupt 'erased "HoleInfo" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__GlobalDef (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CDef arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2))))) arg-1256 eta-1)))) arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2))))) arg-1257 eta-1)))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 (TTC-Core-fromBuf_TTC__FC arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2))))) arg-1256 eta-1)))) arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2))))) arg-1257 eta-1)))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-21 (TTC-Core-fromBuf_TTC__Def arg-0 ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) ((TTC-Core-case--16544-10374 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-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0))))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0))))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0))(else (Binary-Utils-corrupt 'erased "FC" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__DefFlag (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 4) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0)) ((equal? sc1 5) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) ext-0)) ((equal? sc1 6) (let ((act-16 (TTC-Core-fromBuf_TTC__TotalReq arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6)) ext-0))))))) ((equal? sc1 7) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) ext-0)) ((equal? sc1 8) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) ext-0)) ((equal? sc1 9) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (vector 0 ))) ext-0)) ((equal? sc1 10) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 )) ext-0))(else (Binary-Utils-corrupt 'erased "DefFlag" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__Def (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__PMDefInfo arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-7 arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 e-7 arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) arg-1256 eta-0)))) (lambda (y) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257 arg-1258))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-0)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-0))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-1))))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1254 arg-1257))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) arg-1257 eta-1)))) (lambda (y) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1254 arg-1257))) (lambda (arg-1257) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1257))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1258) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-1258))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1258 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1)))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-8 e-9 e-10)) ext-0))))))))))))))))))))))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0))))))) ((equal? sc1 3) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 4) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 5) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTC-Core-fromBuf_TTC__TypeFlags arg-0 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-1)))) arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13)) ext-0)))))))))))))))))))))))))))))))))))))))))) ((equal? sc1 6) (let ((act-16 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Bool arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 7) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 8) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 9) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) ext-0)) ((equal? sc1 10) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 )) ext-0))(else (Binary-Utils-corrupt 'erased "Def" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__Covering (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) ext-0))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0)))))))(else (Binary-Utils-corrupt 'erased "Covering" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__Constant (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6)) ext-0))))))) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__Integer arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) ext-0))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0))))))) ((equal? sc1 3) (let ((act-16 (Binary-Utils-fromBuf_TTC__Char arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6)) ext-0))))))) ((equal? sc1 4) (let ((act-16 (Binary-Utils-fromBuf_TTC__Double arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6)) ext-0))))))) ((equal? sc1 5) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) ext-0)) ((equal? sc1 6) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) ext-0)) ((equal? sc1 7) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 )) ext-0)) ((equal? sc1 8) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 )) ext-0)) ((equal? sc1 9) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 )) ext-0)) ((equal? sc1 10) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) ext-0)) ((equal? sc1 11) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 )) ext-0))(else (Binary-Utils-corrupt 'erased "Constant" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__CG (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0))(else (Binary-Utils-corrupt 'erased "CG" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__CFType (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0)) ((equal? sc1 3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) ext-0)) ((equal? sc1 4) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) ext-0)) ((equal? sc1 5) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) ext-0)) ((equal? sc1 6) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) ext-0)) ((equal? sc1 7) (let ((act-16 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 8) (let ((act-16 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6)) ext-0))))))) ((equal? sc1 9) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__CFType arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 10) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-6 e-7)) ext-0))))))))))))(else (Binary-Utils-corrupt 'erased "CFType" ext-0)))))))))))
(define TTC-Core-fromBuf_TTC__CDef (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 e-6 arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 1) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__CFType arg-0 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 0 ) arg-0 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6)) ext-0)))))))(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-15 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Binary-Utils-corrupt 'erased "Term" eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-0) eta-1)))) (TTC-Core-getName e-7 arg-0)) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (FC-Core-emptyFC) e-6 e-7)) ext-0)))))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__NameType arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (FC-Core-emptyFC) e-6 e-7)) ext-0)))))))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 (FC-Core-emptyFC) e-6 0 e-7)) ext-0)))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 1 e-6 arg-0) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 (FC-Core-emptyFC) e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 4) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 (FC-Core-emptyFC) e-6 e-7)) ext-0)))))))))))) ((equal? sc1 5) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__UseSide arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 (FC-Core-emptyFC) e-7 e-6 e-8)) ext-0))))))))))))))))) ((equal? sc1 6) (let ((act-16 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 (FC-Core-emptyFC) e-6 e-7)) ext-0)))))))))))) ((equal? sc1 7) (let ((act-16 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 (FC-Core-emptyFC) e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 8) (let ((act-16 (TTC-Core-fromBuf_TTC__LazyReason arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 (FC-Core-emptyFC) e-6 e-7)) ext-0)))))))))))) ((equal? sc1 9) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 (FC-Core-emptyFC) e-6)) ext-0))))))) ((equal? sc1 10) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (FC-Core-emptyFC) 1)) ext-0)) ((equal? sc1 11) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 (FC-Core-emptyFC))) ext-0))(else (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--11163-5024 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--12827-6754-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--12827-6755-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--12827-6756-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-15 (Binary-Utils-getTag arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0)) ((equal? sc1 3) (let ((act-16 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 2))) ((e-2 arg-2) ext-0))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6)) ext-0)))))))(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-15 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 arg-0 e-7 (vector 10 (FC-Core-emptyFC) 1) e-8)) ext-0))))))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 0 e-6)) ext-0))))))) ((equal? sc1 2) (let ((act-16 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) ext-0))))))) ((equal? sc1 3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) ext-0))(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-15 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6)) ext-0)))))))(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-15 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((TTC-Core-case--14168-7782 arg-0 arg-1 bind-0 e-6 e-7 (TTC-Core-getName e-7 arg-0)) ext-0))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__Bool arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 (vector 1 e-7 arg-0) arg-1 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7 e-8 e-9 e-10)) ext-0))))))))))))))))))))))))))) ((equal? sc1 4) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 5) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 6) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__Nat arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 e-7 arg-1) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased e-7 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-7 e-6 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 7) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 8) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 9) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 10) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 11) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6 e-7 e-8 e-9)) ext-0)))))))))))))))))))))) ((equal? sc1 12) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-6 e-7)) ext-0)))))))))))) ((equal? sc1 13) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-6)) ext-0))))))) ((equal? sc1 14) (let ((act-16 (TTC-Core-fromBuf_TTC__FC arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-6 e-7)) ext-0))))))))))))(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-15 (TTC-Core-fromBuf_TTC__Constant arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) ext-0)))))))))))))
(define TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 (lambda (arg-0 arg-1 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8)) ext-0)))))))))))))))))))))))
(define TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Binary-Utils-getTag arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 1) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1))) ext-0)))))))))))) ((equal? sc1 2) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 3) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-0)))) arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7 e-8)) ext-0))))))))))))))))) ((equal? sc1 4) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-6 e-7 (vector 10 (FC-Core-emptyFC) 1))) ext-0)))))))))))) ((equal? sc1 5) (let ((act-16 (TTC-Core-fromBuf_TTC__RigCount arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-6 (vector 10 (FC-Core-emptyFC) 1))) ext-0)))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 e-3 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 e-3 arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0))))))))))))))))))
(define TTC-Core-__Impl_TTC_Visibility (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Visibility arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__UseSide arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Transform arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__TotalReq arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__SizeChange arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__RigCount arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__PartialReason arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__NameType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__LazyReason arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__FC arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__DefFlag arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Constant arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CG arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CFType arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CDef arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-1256)))))
(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-1256 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-1253 arg-1255))) (lambda (arg-1256) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-1256)))))
(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 Binary-Core-case--16428-20016 (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-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-16 (Binary-Core-getImportHashes arg-0 e-5 eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (Buffer-Data-freeBuffer (let ((sc3 e-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-1))))))))))) (lambda (err) (lambda (eta-1) (let ((act-16 (let ((act-16 (Buffer-Data-freeBuffer (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))))) eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Binary-Core-case--16369-19958 (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-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-16 (Binary-Core-getHash arg-0 e-5 eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (Buffer-Data-freeBuffer (let ((sc3 e-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-1))))))))))) (lambda (err) (lambda (eta-1) (let ((act-16 (let ((act-16 (Buffer-Data-freeBuffer (let ((sc2 e-2)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-fromInteger_Num__Int 0)) eta-1))))))) eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Binary-Core-case--15589-19807 (lambda (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))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-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--15798-19678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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-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-15)) (let ((e-19 (vector-ref sc1 9))) e-19)) e-7 e-8 e-9)))))))))))))
(define Binary-Core-case--15637-19395 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (let ((act-15 (Buffer-Data-freeBuffer (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-16 (vector 0 (let ((sc2 arg-15)) (let ((e-2 (vector-ref sc2 2))) e-2)) (let ((sc2 arg-15)) (let ((e-8 (vector-ref sc2 8))) e-8)))))) eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Binary-Core-addGlobalDef arg-8 arg-3 arg-14 eta-1)) (let ((sc1 arg-15)) (let ((e-4 (vector-ref sc1 4))) e-4))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-addUserHole arg-8 eta-1 eta-2))) (let ((sc2 arg-15)) (let ((e-19 (vector-ref sc2 5))) e-19))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Context-Core-setNS arg-8 (let ((sc3 arg-15)) (let ((e-10 (vector-ref sc3 10))) e-10)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Context-Core-setNestedNS arg-8 (let ((sc4 arg-15)) (let ((e-11 (vector-ref sc4 11))) e-11)) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-8 arg-6 eta-1)) (let ((sc5 arg-15)) (let ((e-20 (vector-ref sc5 7))) e-20))) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-8 eta-1)) (let ((sc6 arg-15)) (let ((e-22 (vector-ref sc6 6))) e-22))) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (Binary-Core-updatePair arg-8 (let ((sc7 arg-15)) (let ((e-12 (vector-ref sc7 12))) e-12)) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (Binary-Core-updateRewrite arg-8 (let ((sc8 arg-15)) (let ((e-13 (vector-ref sc8 13))) e-13)) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 (Binary-Core-updatePrims arg-8 (let ((sc9 arg-15)) (let ((e-14 (vector-ref sc9 14))) e-14)) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-24 ((Binary-Core-updateNameDirectives arg-8 (List-Data-reverse 'erased (let ((sc10 arg-15)) (let ((e-15 (vector-ref sc10 15))) e-15)))) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-25 (Binary-Core-updateCGDirectives arg-8 (let ((sc11 arg-15)) (let ((e-16 (vector-ref sc11 16))) e-16)) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-26 ((Binary-Core-updateTransforms arg-8 (let ((sc12 arg-15)) (let ((e-17 (vector-ref sc12 17))) e-17))) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-27 (let ((sc13 (Prelude-not arg-5))) (cond ((equal? sc13 0) (Context-Core-clearSavedHints arg-8 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-28 (Context-Core-resetFirstEntry arg-8 eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-29 (let ((act-29 (IORef-Data-readIORef 'erased arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-29) eta-0)))) (let ((sc15 act-29)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-30 (let ((act-30 (IORef-Data-writeIORef 'erased arg-7 (let ((sc16 e-19)) (let ((e-0 (vector-ref sc16 1))) (let ((e-1 (vector-ref sc16 2))) (let ((e-2 (vector-ref sc16 3))) (let ((e-3 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-24 (vector-ref sc16 6))) (let ((e-22 (vector-ref sc16 8))) (let ((e-21 (vector-ref sc16 9))) (let ((e-20 (vector-ref sc16 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-24 (let ((sc17 arg-15)) (let ((e-34 (vector-ref sc17 9))) e-34)) e-22 e-21 e-20))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-30) eta-0)))) (let ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-31 (let ((act-31 (Buffer-Data-freeBuffer (let ((sc17 arg-11)) (let ((e-0 (vector-ref sc17 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-31) eta-0)))) (let ((sc17 act-31)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-16 (vector 0 (let ((sc18 arg-15)) (let ((e-2 (vector-ref sc18 2))) e-2)) (let ((sc18 arg-15)) (let ((e-32 (vector-ref sc18 8))) e-32)))))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Binary-Core-case--15637-19298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-2))))))
(define Binary-Core-case--15589-19256 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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))) (lambda (eta-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--15637-19298 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 _-0 e-5 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-2 arg-3))))) (let ((act-16 (Binary-Core-readTTCFile 'erased arg-1 arg-8 arg-3 as e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--15637-19395 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 _-0 e-5 as e-6 ex (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc3 arg-9)) (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--15533-19215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-8 (let ((sc1 arg-9)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Binary-Utils-readFromFile arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((as (let ((_-0 (vector 1 e-2))) (Binary-Core-case--15637-19298 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-2 _-0 e-7 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-2 arg-3))))) (let ((act-18 (Binary-Core-readTTCFile 'erased arg-1 arg-8 arg-3 as e-7 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--15637-19395 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-2 _-0 e-7 as e-8 ex (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 arg-3 arg-2) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Binary-Core-getNSas eta-1)) (let ((sc6 arg-9)) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Binary-Core-case--15329-19105 (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--15329-19033 (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--15315-18981 (lambda (arg-0 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-15 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))))
(define Binary-Core-case--15233-18946 (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--15155-18880 (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--15095-18814 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-0 e-32) e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))
(define Binary-Core-case--15071-18747 (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--15007-18728 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-31) e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))
(define Binary-Core-case--14943-18666 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (let ((e-22 (vector-ref sc0 23))) (let ((e-23 (vector-ref sc0 24))) (let ((e-24 (vector-ref sc0 25))) (let ((e-25 (vector-ref sc0 26))) (let ((sc1 e-4)) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((e-28 (vector-ref sc1 3))) (let ((e-29 (vector-ref sc1 4))) (let ((e-30 (vector-ref sc1 5))) (let ((e-31 (vector-ref sc1 6))) (let ((e-32 (vector-ref sc1 7))) (let ((e-33 (vector-ref sc1 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-26 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-0 e-30) e-31 e-32 e-33) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))))))))))))
(define Binary-Core-case--14729-18504 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 (Context-Core-addContextEntry arg-4 (Binary-Core-asName arg-3 arg-2 arg-0) arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))
(define Binary-Core-case--14741-18436 (lambda (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--14545-18337 (lambda (arg-0 arg-1 arg-2 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-15 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-freeDefBuffer eta-1)) arg-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (Binary-Utils-freeBinary arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-3 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
(define Binary-Core-case--14436-18159 (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-15 (Binary-Utils-initBinaryS (Prelude-fromInteger_Num__Int 16384) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (TTC-Core-toBuf_TTC__GlobalDef e-5 e-6 eta-0)))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14417-18146 (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--14436-18159 arg-0 arg-1 arg-2 arg-3 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)))))) (else (Binary-Core-getSaveDefs arg-1 arg-3 arg-2))))))
(define Binary-Core-case--13862-17574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (vector 0 arg-0 arg-1)) (else (vector 0 arg-2 arg-1))))))
(define Binary-Core-n--13071-16822-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-reverse 'erased arg-5)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-1)) (let ((e-4 (vector-ref sc1 2))) (((e-4 arg-4) e-2) eta-0))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--13071-16822-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--13476-17390-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-5 e-6))) eta-0)))))))))))))))))))))
(define Binary-Core-n--13476-17391-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-15 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-21 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-21 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-21 e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) eta-0)))))))))))))))))))))))
(define Binary-Core-n--13476-17389-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-resolved_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-resolved_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((Context-Core-resolved_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-6 e-7 e-8))) eta-0)))))))))))))))))))))))))))
(define Binary-Core-n--13070-16794-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-reverse 'erased arg-5)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (((e-1 arg-4) e-2) eta-0))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Binary-Core-n--13070-16794-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--13475-17212-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-5 e-6))) eta-0)))))))))))))))))))))
(define Binary-Core-n--13475-17213-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-15 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-21 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-21 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-21 e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7)) eta-0)))))))))))))))))))))))
(define Binary-Core-n--13475-17211-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-full_HasNames__Name arg-21 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-full_HasNames__Name arg-21 e-4) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((Context-Core-full_HasNames__Name arg-21 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-6 e-7 e-8))) eta-0)))))))))))))))))))))))))))
(define Binary-Core-n--14729-18427-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--14741-18436 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--15298-18966-addT (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--15315-18981 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-15 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-resolved_HasNames__Transform arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0)))))))))))))))))
(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-15 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-3)) eta-0))))))))))))
(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-15 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-resolved_HasNames__Name arg-0 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 (vector 0 e-8 e-7))) eta-0))))))))))))))))))))
(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-15 ((Context-Core-resolved_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-3)) eta-0))))))))))))
(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-17 ((Binary-Core-n--13476-17389-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-17)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-18 ((Binary-Core-n--13476-17390-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-18)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-19 ((Binary-Core-n--13476-17391-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-19)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-20 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575)))) arg-2 e-15) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-21 ((Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575)))) arg-2 e-17) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-22 (let ((sc8 arg-1)) (let ((e-26 (vector-ref sc8 2))) (((e-26 arg-2) e-18) eta-0))))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((e-26 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--13071-16822-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-15 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__Transform arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0)))))))))))))))))
(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-15 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-3)) eta-0))))))))))))
(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-15 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-full_HasNames__Name arg-0 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 (vector 0 e-8 e-7))) eta-0))))))))))))))))))))
(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-15 ((Context-Core-full_HasNames__Name arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-3)) eta-0))))))))))))
(define Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 11))) (let ((e-12 (vector-ref sc0 12))) (let ((e-13 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 18))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-19 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((e-19 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-20 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc2 1))) (let ((act-17 ((Binary-Core-n--13475-17211-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-17)) (case (vector-ref sc3 0) ((0) (let ((e-21 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc3 1))) (let ((act-18 ((Binary-Core-n--13475-17212-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-18)) (case (vector-ref sc4 0) ((0) (let ((e-22 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc4 1))) (let ((act-19 ((Binary-Core-n--13475-17213-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-19)) (case (vector-ref sc5 0) ((0) (let ((e-23 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc5 1))) (let ((act-20 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575)))) arg-2 e-15) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-24 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc6 1))) (let ((act-21 ((Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575)))) arg-2 e-17) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-25 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((e-25 (vector-ref sc7 1))) (let ((act-22 (let ((sc8 arg-1)) (let ((e-27 (vector-ref sc8 1))) (((e-27 arg-2) e-18) eta-0))))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-26 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((e-26 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Binary-Core-n--13070-16794-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-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575))))))
(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-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575))))))
(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-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575))))))
(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-4572) (lambda (arg-4573) (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-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (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-4574 arg-4575))))))
(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-4574 arg-4575))))))
(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-4574 arg-4575))))))
(define Binary-Core-writeToTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Binary-Utils-initBinary ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (Binary-Core-writeTTCFile 'erased arg-1 arg-2 e-5 (vector 0 (Binary-Core-ttcVersion) (let ((sc5 e-6)) (let ((e-15 (vector-ref sc5 16))) e-15)) (let ((sc5 e-6)) (let ((e-16 (vector-ref sc5 17))) e-16)) e-8 (NameMap-Data-keys 'erased (let ((sc5 e-6)) (let ((e-22 (vector-ref sc5 23))) e-22))) (let ((sc5 e-6)) (let ((e-11 (vector-ref sc5 12))) e-11)) (let ((sc5 e-6)) (let ((e-10 (vector-ref sc5 11))) e-10)) (let ((sc5 e-6)) (let ((e-17 (vector-ref sc5 18))) e-17)) (let ((sc5 e-7)) (let ((e-13 (vector-ref sc5 7))) e-13)) (let ((sc5 e-6)) (let ((e-2 (vector-ref sc5 3))) e-2)) (let ((sc5 e-6)) (let ((e-3 (vector-ref sc5 4))) e-3)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-4 (vector-ref sc5 5))) e-4)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-12 (vector-ref sc5 6))) e-12)) (let ((sc5 (let ((sc6 e-6)) (let ((e-4 (vector-ref sc6 5))) e-4)))) (let ((e-11 (vector-ref sc5 7))) e-11)) (NameMap-Data-toList 'erased (let ((sc5 e-6)) (let ((e-14 (vector-ref sc5 15))) e-14))) (let ((sc5 e-6)) (let ((e-19 (vector-ref sc5 20))) e-19)) (let ((sc5 e-6)) (let ((e-13 (vector-ref sc5 14))) e-13)) arg-4) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (Binary-Utils-writeToFile arg-5 e-11 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) ext-0))))))))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (case (vector-ref sc7 0) ((1) (let ((act-22 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Binary-Core-freeDefBuffer eta-0)) e-8) ext-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-23 (Binary-Utils-freeBinary e-5 ext-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-4574 arg-4575)))) arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Binary-Utils-toBuf_TTC__String arg-3 "TT2") ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc4 e-5)) (let ((e-3 (vector-ref sc4 3))) e-3)) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Binary arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Binary arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc5 e-5)) (let ((e-4 (vector-ref sc5 4))) e-4)) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-3 (let ((sc6 e-5)) (let ((e-24 (vector-ref sc6 5))) e-24)) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-22 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc7 e-5)) (let ((e-24 (vector-ref sc7 6))) e-24)) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-23 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc8 e-5)) (let ((e-24 (vector-ref sc8 7))) e-24)) ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-24 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__String arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1259 eta-1)))) arg-1257 arg-1258 eta-0)))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__String arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-1)))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__String arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1254 arg-1257 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__String arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1254 arg-1257 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-3)))) arg-1253 arg-1255 eta-2)))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1259 eta-3)))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc9 e-5)) (let ((e-24 (vector-ref sc9 8))) e-24)) ext-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-25 (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-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-3 (let ((sc11 e-5)) (let ((e-24 (vector-ref sc11 10))) e-24)) ext-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0)))) arg-3 (let ((sc12 e-5)) (let ((e-24 (vector-ref sc12 11))) e-24)) ext-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-28 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-1256 eta-0)))) arg-3 (let ((sc13 e-5)) (let ((e-24 (vector-ref sc13 12))) e-24))) ext-0))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-29 ((Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-1256 eta-0)))) arg-3 (let ((sc14 e-5)) (let ((e-24 (vector-ref sc14 13))) e-24))) ext-0))) (let ((sc14 act-29)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-30 (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-30)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-31 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc16 e-5)) (let ((e-24 (vector-ref sc16 15))) e-24)) ext-0))) (let ((sc16 act-31)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-32 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__CG arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CG arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc17 e-5)) (let ((e-24 (vector-ref sc17 16))) e-24)) ext-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-33 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Transform arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Transform arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-1257 eta-1))))) arg-1256 eta-0)))) arg-3 (let ((sc18 e-5)) (let ((e-24 (vector-ref sc18 17))) e-24)) ext-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Transform arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Transform arg-4574 arg-4575)))) e-7 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Binary-Core-n--15298-18966-addT e-6 e-7 e-3 arg-0 e-5 e-8 eta-0))))))))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((Binary-Core-updateTransforms arg-0 e-3) eta-0))))))))))))))))
(define Binary-Core-updateRewrite (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 e-30 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-31) e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Binary-Core-updatePrims (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 e-30 e-31 (Binary-Core-updatePrimNames arg-1 e-32) e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-26 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (let ((e-22 (vector-ref sc1 23))) (let ((e-23 (vector-ref sc1 24))) (let ((e-24 (vector-ref sc1 25))) (let ((e-25 (vector-ref sc1 26))) (let ((sc2 e-4)) (let ((e-34 (vector-ref sc2 1))) (let ((e-27 (vector-ref sc2 2))) (let ((e-28 (vector-ref sc2 3))) (let ((e-29 (vector-ref sc2 4))) (let ((e-30 (vector-ref sc2 5))) (let ((e-31 (vector-ref sc2 6))) (let ((e-32 (vector-ref sc2 7))) (let ((e-33 (vector-ref sc2 8))) (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-34 e-27 e-28 e-29 (Prelude-C-60C-43C-62_Semigroup__C-40MaybeC-32C-36aC-41 'erased arg-1 e-30) e-31 e-32 e-33) e-26 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Binary-Core-updateNameDirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((Binary-Core-updateNameDirectives arg-0 e-3) eta-0)))))))))))))))))))))
(define Binary-Core-updateCGDirectives (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cgsC-39 (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Options-Core-C-61C-61_Eq__CG arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Options-Core-C-47C-61_Eq__CG arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Options-Core-C-61C-61_Eq__CG arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Options-Core-C-47C-61_Eq__CG arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (List-Prelude-C-43C-43 'erased arg-1 (let ((sc1 e-5)) (let ((e-19 (vector-ref sc1 20))) e-19)))))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))))))))
(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 () 29))
(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-15 (Binary-Utils-fromBuf_TTC__String arg-5 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((sc2 (Prelude-C-47C-61_Eq__String e-5 "TT2"))) (cond ((equal? sc2 0) (Binary-Utils-corrupt 'erased (Strings-Prelude-C-43C-43 "TTC header in " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__String e-5)))) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Binary-Core-checkTTCVersion (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) arg-3) e-8 (Binary-Core-ttcVersion)) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Binary arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Binary arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-24 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-25 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-26 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__String arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1259 eta-1)))) arg-1257 arg-1258 eta-0)))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__String arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-1)))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__String arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1254 arg-1257 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__String arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1254 arg-1257 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-3)))) arg-1253 arg-1255 eta-2)))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-1259 eta-3)))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-27 (Binary-Utils-fromBuf_TTC__Int arg-5 ext-0))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-1)))) arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc14 act-29)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-30 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc15 act-30)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-31 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc16 act-31)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-32 (TTC-Core-fromBuf_TTC__PrimNames arg-5 ext-0))) (let ((sc17 act-32)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-22 (vector-ref sc17 1))) (let ((act-33 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc18 act-33)) (case (vector-ref sc18 0) ((0) (let ((e-2 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-23 (vector-ref sc18 1))) (let ((act-34 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__CG arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CG arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc19 act-34)) (case (vector-ref sc19 0) ((0) (let ((e-2 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-24 (vector-ref sc19 1))) (let ((act-35 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Transform arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Transform arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-1257 eta-1))))) arg-1256 eta-0)))) arg-5 ext-0))) (let ((sc20 act-35)) (case (vector-ref sc20 0) ((0) (let ((e-2 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-25 (vector-ref sc20 1))) (let ((act-36 (let ((sc21 arg-1)) (let ((e-2 (vector-ref sc21 2))) ((e-2 arg-5) ext-0))))) (let ((sc21 act-36)) (case (vector-ref sc21 0) ((0) (let ((e-2 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-26 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Binary-Core-readImportHashes (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (Binary-Utils-readFromFile arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-17 (Binary-Core-getImportHashes arg-0 e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (Buffer-Data-freeBuffer (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) eta-0))))))))))) (lambda (err) (lambda (eta-0) (let ((act-17 (let ((act-17 (Buffer-Data-freeBuffer (let ((sc3 e-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ext-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define Binary-Core-readIFaceHash (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (Binary-Utils-readFromFile arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-17 (Binary-Core-getHash arg-0 e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (Buffer-Data-freeBuffer (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) eta-0))))))))))) (lambda (err) (lambda (eta-0) (let ((act-17 (let ((act-17 (Buffer-Data-freeBuffer (let ((sc3 e-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-fromInteger_Num__Int 0)) eta-0))))))) ext-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0)))))))))))
(define Binary-Core-readFromTTC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Binary-Core-case--15533-19215 'erased arg-1 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (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-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__Bool arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Bool arg-625 arg-626)))) (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (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-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__Bool arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Bool arg-625 arg-626)))) (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (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-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__Bool arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Bool arg-625 arg-626)))) (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Bool arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Bool arg-627 arg-628)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-629) (lambda (arg-630) (Prelude-C-47C-61_Eq__String arg-629 arg-630)))) arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 arg-7 (vector 0 arg-5 arg-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
(define 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Context-Core-lookupCtxtExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14436-18159 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-15 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__String arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-1258 eta-2)))) arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-1257 eta-1))))) arg-1256 eta-0)))) arg-1 ext-0)))))))))))))))))))))))))
(define Binary-Core-getHash (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Binary-Core-checkTTCVersion arg-0 e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Binary-Utils-fromBuf_TTC__Int arg-1 ext-0)))))))))))))))))))))
(define Binary-Core-freeDefBuffer (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Buffer-Data-freeBuffer (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define TTCFile-Binary-Core-cgdirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-16 (vector-ref sc0 16))) e-16))))
(define TTCFile-Binary-Core-autoHints (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) e-6))))
(define Binary-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Binary-Core-case--13862-17574 e-1 e-3 e-2 arg-0 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-0 e-2)))))(else arg-2)))))(else arg-2)))))
(define Binary-Core-addTypeHint (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Context-Core-getFullName arg-0 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-getFullName arg-0 e-2) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1)) eta-0))))))))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupContextEntry e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (p) (lambda (eta-1) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-7)) eta-1))))))))) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((Binary-Core-case--14729-18504 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--14729-18427-completeDef e-2 e-3 arg-2 arg-1 arg-0 e-7)) eta-0))))))))))))))))))))))
(define Binary-Core-addAutoHint (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Context-Core-addGlobalHint arg-0 e-2 e-3 eta-0)))))))
(define UnifyState-Core-case--15835-15236 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))
(define UnifyState-Core-case--15835-15213 (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--15809-15187 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (Context-Core-log arg-2 arg-1 (lambda () "--- CONSTRAINTS AND HOLES ---") eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--15454-14883 (lambda (arg-0 arg-1 arg-2 arg-3 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--15311-14831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-10)) (cond ((equal? sc0 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--15454-14883 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-11 arg-12 p (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14))))))))))
(define UnifyState-Core-case--15262-14693 (lambda (arg-0 arg-1 arg-2 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-15 (let ((act-15 ((Context-Core-getFullName arg-2 (vector 9 arg-0)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-8 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-4 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (UnifyState-Core-n--14900-14321-dumpConstraint arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))) ((7) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-log arg-2 arg-1 (lambda () (Strings-Prelude-C-43C-43 "?" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 arg-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-5) (let ((sc3 e-8)) (cond ((equal? sc3 0) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (let ((p 1)) (UnifyState-Core-case--15454-14883 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-3 e-5 p (let ((sc4 arg-7)) (let ((e-14 (vector-ref sc4 15))) e-14))))))))))))) eta-0)))))))))) ((8) (lambda (eta-0) (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Normalise-Core-normalise (vector 0 ) arg-6 (vector 0 ) e-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--15214-14652 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (UnifyState-Core-case--15262-14693 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--14900-14608 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-2 (vector-ref sc3 1))) (let ((bind-0 (vector 1 e-2))) ((UnifyState-Core-case--15262-14693 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--14926-14483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--14907-14341 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (Normalise-Core-normalise e-3 arg-6 e-7 e-8 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-10 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-normalise e-3 arg-6 e-7 e-9 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-18 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-12 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((act-16 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-8 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-11 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-9 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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--14704-14275 (lambda (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--14292-13958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14292-13835 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14244-13766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-16 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-15 (let ((act-15 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--14080-13732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-16 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-normaliseHoles e-0 arg-5 e-4 e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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-15 (let ((act-15 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-13 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Normalise-Core-normaliseHoles e-7 arg-5 e-9 e-16 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--14080-13632 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--14053-13592 (lambda (arg-0 arg-1 arg-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((UnifyState-Core-case--14080-13732 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-15 ((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 (Prelude-fromInteger_Num__Int 1))) (let ((sc1 arg-7)) (let ((e-2 (vector-ref sc1 3))) e-2))))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--14000-13536-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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 (Prelude-fromInteger_Num__Int 1))) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 3))) e-2))))) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (UnifyState-Core-n--14000-13536-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0))))))))))))
(define UnifyState-Core-case--14000-13573 (lambda (arg-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--14053-13592 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--13940-13484 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 31 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-3)))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--13892-13459 (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--13835-13394 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-1 e-5)))))))
(define UnifyState-Core-case--13778-13345 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))) (else arg-1)))))
(define UnifyState-Core-case--13654-13296 (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--13129-12875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--13129-12723 (lambda (arg-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--12613-12263 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (vector 1 (vector 0 arg-5 (vector 1 (UnifyState-Core-n--12613-12201-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--12533-12146 (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--12475-12092 (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 (Prelude-C-43_Num__Int arg-4 1) e-8 e-9)))))))))))))
(define UnifyState-Core-case--12437-12049 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12282-11909 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12246-11876 (lambda (arg-0 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--12207-11843 (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--12162-11784 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-case--12120-11760 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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--12069-11716 (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--12011-11663 (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--11961-11621 (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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9))))))))))))))
(define UnifyState-Core-case--11911-11575 (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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9))))))))))))))
(define UnifyState-Core-case--11860-11529 (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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9))))))))))))))
(define UnifyState-Core-case--11790-11482 (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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9))))))))))))))
(define UnifyState-Core-case--11735-11417 (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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9))))))))))))))
(define UnifyState-Core-case--11700-11372 (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--14704-14128-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--12613-12201-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--13581-13143-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--13504-13062-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--13401-12950-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--13129-12701-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--14900-14321-dumpConstraint (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--14907-14341 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--14000-13536-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define UnifyState-Core-tryUnify (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (UnifyState-Core-tryErrorUnify 'erased arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0))) (else (arg-4 ext-0)))))))))))
(define UnifyState-Core-tryErrorUnify (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-branch arg-1 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-17 (arg-3 eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-commit arg-1 eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-7)) eta-0))))))))))) (lambda (err) (lambda (eta-0) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-2 e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 err)) eta-0)))))))))))))))) ext-0)))))))))))))
(define UnifyState-Core-saveHoles (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0))))))))))))
(define UnifyState-Core-restoreHoles (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define UnifyState-Core-resetNextVar (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define UnifyState-Core-removeHoleName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((UnifyState-Core-case--12162-11784 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define UnifyState-Core-removeGuess (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Context-Core-addDef arg-1 arg-8 hole eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (UnifyState-Core-addGuessName arg-2 arg-3 arg-8 e-7 eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 (vector 2 arg-3 arg-8 e-7 (UnifyState-Core-n--13504-13062-envArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))) eta-0)))))))))))))))))))))))
(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--13129-12875 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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Context-Core-addDef arg-1 arg-6 hole eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (UnifyState-Core-addHoleName arg-2 arg-3 arg-6 e-8 eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8 (vector 2 arg-3 arg-6 e-8 (UnifyState-Core-n--13129-12701-envArgs arg-10 arg-9 arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))) eta-0)))))))))))))))))))))))))))
(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-15 (Context-Core-addDef arg-2 arg-6 hole eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (UnifyState-Core-addHoleName arg-1 arg-3 arg-6 e-5 eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 (vector 2 arg-3 arg-6 e-5 (UnifyState-Core-n--13581-13143-envArgs arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1)))) eta-0)))))))))))))))))))
(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-15 (UnifyState-Core-genName arg-2 arg-1 "postpone" eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Context-Core-addDef arg-2 e-5 guess eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (UnifyState-Core-addGuessName arg-1 arg-3 e-5 e-8 eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-3 e-5 e-8 (UnifyState-Core-n--13401-12950-envArgs arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)))))))))))))))))))))))))))))
(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--12613-12263 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--12613-12201-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) ext-0))))))))
(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-15 (UnifyState-Core-tryErrorUnify 'erased arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))))))))
(define UnifyState-Core-getGuesses (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))))
(define UnifyState-Core-getCurrentHoles (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
(define UnifyState-Core-genWithName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0))))))))))))
(define UnifyState-Core-genName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) ext-0)))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9)))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) eta-0)))))))))))))))))))))
(define UnifyState-Core-genCaseName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--14900-14608 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((UnifyState-Core-case--15809-15187 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14053-13592 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))
(define UnifyState-Core-checkUserHoles (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (UnifyState-Core-getGuesses arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((gs (IntMap-Data-toList 'erased e-5))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (UnifyState-Core-checkValidHole arg-1 arg-0 eta-0)) gs) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((hs (IntMap-Data-toList 'erased e-8))) (let ((hsC-39 (UnifyState-Core-case--14704-14275 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-19 (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--14704-14128-nameEq arg-2 arg-1 arg-0 'erased 'erased eta-0 eta-1))) hs))) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--13940-13484 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define UnifyState-Core-addGuessName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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)))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))))
(define UnifyState-Core-addConstraint (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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 (Prelude-C-43_Num__Int cid 1) e-8 e-9))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased cid) ext-0)))))))))))))
(define ProcessDecls-TTImp-case--22928-20569 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--22901-20516 (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-15 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-3 arg-2 arg-1 (vector 0 ) (vector 0 ) e-2 eta-2))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((act-16 (UnifyState-Core-checkDelayedHoles arg-1 arg-3 eta-2))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-2)) (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-15 (let ((act-15 (Prelude-printLn 'erased (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))) err eta-2))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-2)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-2))))))) eta-1)) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))
(define ProcessDecls-TTImp-case--22629-20284 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((1) (ProcessDecls-TTImp-n--22519-20142-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--22519-20143-checkTotality arg-0 arg-1 arg-8 eta-0)))))))
(define ProcessDecls-TTImp-case--22519-20248 (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-15 (Context-Core-getDefaultTotalityOption arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (ProcessDecls-TTImp-n--22519-20144-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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((sc3 treq)) (case (vector-ref sc3 0) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((1) ((ProcessDecls-TTImp-n--22519-20142-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--22519-20143-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDecls-TTImp-case--22524-20180 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 12 arg-2 arg-0 e-0))) eta-0)))))(else (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))
(define ProcessDecls-TTImp-case--22318-20087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--22519-20144-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--22519-20144-findSetTotal arg-0 arg-1 e-3)))))))))))
(define ProcessDecls-TTImp-n--22519-20143-checkTotality (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Termination-Core-checkTotal arg-1 arg-2 arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-getTotality arg-1 arg-2 arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((ProcessDecls-TTImp-n--22519-20142-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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (ProcessDecls-TTImp-case--22524-20180 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 eta-0)) eta-1)))) e-7) ext-0))))))))))))))))))
(define ProcessDecls-TTImp-n--22519-20142-checkCovering (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 11 arg-2 arg-0 arg-3))) eta-0)))))))
(define ProcessDecls-TTImp-n--22801-20415-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-15 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-10 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-2 e-3 (vector 0 e-8 e-9 e-5))) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) 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-15 ((ProcessDecls-TTImp-n--22801-20414-bindDataNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-8)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))
(define ProcessDecls-TTImp-n--22801-20414-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-15 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDecls-TTImp-n--22801-20413-bindConNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-5 e-3 e-6)) 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-15 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-8)) eta-0)))))))))))))))
(define ProcessDecls-TTImp-n--22801-20413-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-15 (BindImplicits-TTImp-bindTypeNames arg-6 (vector 0 ) arg-1 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-5)) eta-0)))))))))))))
(define ProcessDecls-TTImp-processTTImpFile (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Context-Core-logTime 'erased arg-0 (lambda () "Parsing") (lambda (eta-0) (let ((act-15 (Source-Parser-parseFile 'erased arg-3 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-prog arg-3)) (lambda () (lambda (decls) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-20635) (Core-Parser-Text-pure 'erased 'erased decls)))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (ProcessDecls-TTImp-processTTImpDecls (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) (vector 0 ) e-2 eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-17 (UnifyState-Core-checkDelayedHoles arg-2 arg-0 eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-1)) (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-16 (let ((act-16 (Prelude-printLn 'erased (vector 0 (lambda (x) (Core-Core-show_Show__Error x)) (lambda (d) (lambda (x) (Core-Core-showPrec_Show__Error d x)))) err eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-1))))))) eta-0)) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased (vector 0 (lambda (x) (Source-Lexer-Parser-show_Show__Token x)) (lambda (d) (lambda (x) (Source-Lexer-Parser-showPrec_Show__Token d x)))) e-6) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))))))))))))
(define ProcessDecls-TTImp-processTTImpDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 ((Core-Core-traverse_ 'erased 'erased (lambda (d) (lambda (eta-0) (let ((act-15 ((ProcessDecls-TTImp-n--22801-20415-bindNames arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 arg-1 d) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0)))))))
(define ProcessDecls-TTImp-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Context-Core-extendNS arg-1 (List-Data-reverse 'erased e-19) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) 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) (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))) (((e-25 arg-0) arg-5) arg-6))) (else (let ((e-26 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setLogLevel arg-1 e-26 eta-0))))))))
(define ProcessDecls-TTImp-getTotalityErrors (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDecls-TTImp-checkTotalityOK arg-0 eta-0 eta-1))) (NameMap-Data-keys 'erased (let ((sc1 e-5)) (let ((e-26 (vector-ref sc1 6))) e-26)))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6)) ext-0)))))))))))))
(define ProcessDecls-TTImp-checkTotalityOK (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (Context-Core-getDefaultTotalityOption arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-7) (ProcessDecls-TTImp-n--22519-20144-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-18 (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)))) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((sc5 treq)) (case (vector-ref sc5 0) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((1) ((ProcessDecls-TTImp-n--22519-20142-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) ext-0)) (else (ProcessDecls-TTImp-n--22519-20143-checkTotality arg-1 arg-0 fc ext-0)))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define ProcessType-TTImp-case--20032-19861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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-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-24 arg-25 e-5 arg-29 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20))))))))))))))))))))))
(define ProcessType-TTImp-case--19925-19636 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-23) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-findInferrable e-6 e-7) eta-0)))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-0 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--20032-19861 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-10)))) (cond ((equal? sc5 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 ((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-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 arg-20 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 ((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-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (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 "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-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((sc13 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc13 0) (let ((act-27 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-14 eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-20 eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessType-TTImp-case--19854-19544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-10 (lambda (eta-1) (vector 55 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-0) (Normalise-Core-gType 'erased arg-6) eta-1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-abstractEnvType arg-7 arg-2 arg-8 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((ProcessType-TTImp-initDef arg-7 arg-13 arg-12 arg-11 arg-14 arg-8 e-5 arg-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fullty (Env-Core-abstractEnvType arg-7 arg-2 arg-8 e-5))) (let ((act-18 (Utils-Elab-TTImp-findErased arg-13 fullty eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 ))) (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 1))) (let ((e-3 (vector-ref sc5 2))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Context-Core-clearDefs e-9 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-nf (vector 0 ) e-9 (vector 0 ) fullty) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) ((ProcessType-TTImp-findInferrable e-10 e-11) eta-0)))))))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (Context-Core-addDef arg-13 (vector 9 arg-17) (let ((_-1 (vector 0 e-2 e-3))) (ProcessType-TTImp-case--20032-19861 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-2 e-3 _-1 e-9 e-10 e-11 (Context-Core-newDef arg-6 arg-14 arg-5 arg-7 fullty arg-4 e-7))) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (let ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-10)))) (cond ((equal? sc10 0) (Context-Core-setLinearCheck arg-13 arg-17 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (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 ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 ((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 ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-26 (Metadata-Core-addTyDecl arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-27 (Metadata-Core-addNameType arg-7 arg-13 arg-12 arg-6 (vector 9 arg-17) arg-8 e-5 eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-28 ((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 ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-29 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-30 (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 ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((sc18 (TT-Core-C-47C-61_Eq__Visibility arg-4 (vector 0 )))) (cond ((equal? sc18 0) (let ((act-31 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-14 eta-0))) (let ((sc19 act-31)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-5 eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
(define ProcessType-TTImp-case--19644-19316 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-6 arg-5)) eta-0)))))))
(define ProcessType-TTImp-case--19621-19279 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (ProcessType-TTImp-case--19644-19316 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) e-2 arg-5))))))))
(define ProcessType-TTImp-case--19418-19122 (lambda (arg-0 arg-1 arg-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) ((2) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) 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)))))))(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--19300-19032 (lambda (arg-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--18221-18961 (lambda (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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ProcessType-TTImp-n--18221-18066-getNamePos arg-0 arg-1 arg-2 arg-3 0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((ProcessType-TTImp-n--18221-18062-collectDDeps arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((ProcessType-TTImp-n--18221-18065-collectSpec arg-0 arg-1 arg-2 arg-3 (vector 0 ) e-7 e-6 e-5) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-1) eta-0)))))))
(define ProcessType-TTImp-case--18319-18781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 ((ProcessType-TTImp-n--18221-18064-getDeps arg-0 arg-1 arg-2 arg-3 0 arg-6 (NameMap-Data-empty 'erased)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--18221-18061-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--18221-18065-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--18221-18065-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15))))))
(define ProcessType-TTImp-case--18318-18678 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--18221-18063-getDepsArgs arg-0 arg-1 arg-2 arg-3 0 e-5 arg-9) eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-11 eta-1)) e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--18221-18063-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0)))))))))))))))))
(define ProcessType-TTImp-case--18318-18601 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-4) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessType-TTImp-case--18730-18498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18705-18457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18730-18498 arg-0 arg-1 arg-2 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-14 arg-13)))))))
(define ProcessType-TTImp-case--18316-18204 (lambda (arg-0 arg-1 arg-2 arg-3 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--18221-18062-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12)) (else (lambda (eta-0) (let ((act-15 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-11 (vector 0 ) arg-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((deps (NameMap-Data-keys 'erased (TT-Core-getRefs 'erased (vector 1 "_") e-5)))) (let ((act-16 ((ProcessType-TTImp-n--18221-18062-collectDDeps arg-0 arg-1 arg-2 arg-3 arg-12) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-6 deps)) eta-0))))))))))))))))))
(define ProcessType-TTImp-case--18336-18125 (lambda (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--18221-18061-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--18221-18061-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5))))))
(define ProcessType-TTImp-case--18315-18082 (lambda (arg-0 arg-1 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--18221-18061-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--18336-18125 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) e-2 arg-7))))))))
(define ProcessType-TTImp-case--18221-18002 (lambda (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-15 (let ((act-15 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-getRetTy arg-4 e-5) eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--18318-18432-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--18705-18457 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--18318-18432-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--18221-18061-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--18315-18082 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 arg-5)))))))))
(define ProcessType-TTImp-n--18221-18066-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) ((ProcessType-TTImp-n--18221-18066-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 arg-4) e-9)) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessType-TTImp-n--18221-18063-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((ProcessType-TTImp-n--18221-18064-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--18221-18063-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
(define ProcessType-TTImp-n--18221-18064-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-15 ((ProcessType-TTImp-n--18221-18064-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-28 arg-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-n--18221-18064-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-5) eta-0)))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((ProcessType-TTImp-n--18221-18064-getDeps arg-0 arg-1 arg-2 arg-3 1 (TT-Core-binderType 'erased e-3) arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (((e-4 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-2 1))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessType-TTImp-n--18221-18064-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-8) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) ((ProcessType-TTImp-n--18221-18063-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-9 arg-6) eta-0)))))))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (NameMap-Data-insert 'erased e-31 arg-4 e-9)) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))) ((2) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) e-14) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-n--18221-18063-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Context-Core-lookupDefExact e-17 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-4) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessType-TTImp-case--18318-18678 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--18318-18432-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--18221-18064-getDeps arg-0 arg-1 arg-2 arg-3 arg-4 e-24 arg-6)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))
(define ProcessType-TTImp-n--19617-19253-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((ProcessType-TTImp-n--19617-19253-findInfs arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--19617-19252-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0))))))))))))))
(define ProcessType-TTImp-n--19617-19252-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--19621-19279 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-22 arg-3)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))))))))) ((2) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc1 1))) ((ProcessType-TTImp-n--19617-19253-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-1 eta-1)) e-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessType-TTImp-n--19617-19253-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--19617-19252-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))))))
(define ProcessType-TTImp-n--19617-19254-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-15 (((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((ProcessType-TTImp-n--19617-19252-findInf arg-0 arg-1 arg-5 arg-4 e-8) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 ((ProcessType-TTImp-n--19617-19254-fi arg-0 arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) (Prelude-C-43_Num__Int (Prelude-fromInteger_Num__Int 1) arg-3) (vector 1 (vector 0 argn arg-2) arg-4) e-9 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-10) eta-0))))))))))))))))))))(else (ProcessType-TTImp-n--19617-19252-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--19617-19252-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))
(define ProcessType-TTImp-n--18221-18065-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 (((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--18319-18781 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define ProcessType-TTImp-n--18221-18062-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 (((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) ((ProcessType-TTImp-case--18316-18204 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 arg-0)) eta-0)))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 ((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-20)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (case (vector-ref sc7 0) ((0) (let ((act-21 (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 55 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-2) (Normalise-Core-gType 'erased arg-7) eta-1))) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (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-abstractEnvType arg-0 e-0 arg-6 e-11) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 ((ProcessType-TTImp-initDef arg-0 arg-1 arg-2 arg-3 e-5 arg-6 e-11 arg-10) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-11))) (let ((act-24 (Utils-Elab-TTImp-findErased arg-1 fullty eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) (let ((sc12 e-14)) (let ((e-4 (vector-ref sc12 1))) (let ((e-3 (vector-ref sc12 2))) (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-26 (Context-Core-clearDefs e-15 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc14 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-15 (vector 0 ) fullty) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc15 1))) ((ProcessType-TTImp-findInferrable e-16 e-17) eta-0)))))))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc15 1))) (let ((act-28 (Context-Core-addDef arg-1 (vector 9 e-8) (let ((_-1 (vector 0 e-4 e-3))) (ProcessType-TTImp-case--20032-19861 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-4 e-3 _-1 e-15 e-16 e-17 (Context-Core-newDef arg-7 e-5 arg-8 arg-0 fullty arg-9 e-13))) eta-0))) (let ((sc16 act-28)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((act-29 (let ((sc17 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-4)))) (cond ((equal? sc17 0) (Context-Core-setLinearCheck arg-1 e-8 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc17 act-29)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((act-30 (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 ((sc18 act-30)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((act-31 ((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 ((sc19 act-31)) (case (vector-ref sc19 0) ((0) (let ((e-21 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((act-32 (Metadata-Core-addTyDecl arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc20 act-32)) (case (vector-ref sc20 0) ((0) (let ((e-22 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((act-33 (Metadata-Core-addNameType arg-0 arg-1 arg-2 arg-7 (vector 9 e-8) arg-6 e-11 eta-0))) (let ((sc21 act-33)) (case (vector-ref sc21 0) ((0) (let ((e-23 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((act-34 ((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 ((sc22 act-34)) (case (vector-ref sc22 0) ((0) (let ((e-24 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((act-35 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc23 act-35)) (case (vector-ref sc23 0) ((0) (let ((e-25 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((act-36 (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 ((sc24 act-36)) (case (vector-ref sc24 0) ((0) (let ((e-26 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((sc25 (TT-Core-C-47C-61_Eq__Visibility arg-9 (vector 0 )))) (cond ((equal? sc25 0) (let ((act-37 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-5 eta-0))) (let ((sc26 act-37)) (case (vector-ref sc26 0) ((0) (let ((e-27 (vector-ref sc26 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-27) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-11 eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact arg-2 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) ((ProcessType-TTImp-getRetTy e-5 e-7) eta-0)))))))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 ((ProcessType-TTImp-n--18221-18066-getNamePos e-4 arg-2 arg-1 arg-0 0 e-7) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 ((ProcessType-TTImp-n--18221-18062-collectDDeps e-4 arg-2 arg-1 arg-0 e-7) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((ProcessType-TTImp-n--18221-18065-collectSpec e-4 arg-2 arg-1 arg-0 (vector 0 ) e-9 e-8 e-7) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (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-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (Context-Core-addUserHole arg-1 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) ((4) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-getArity arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6)) eta-0))))))))))))) ((5) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-getArity arg-0 e-5 arg-5 arg-6 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6 e-7)) eta-0)))))))))))))))))))(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-15 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) 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)))))))
(define ProcessType-TTImp-getFnString (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((26) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 8 ))))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((2) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-4) eta-0)))(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-15 ((Context-Core-resolveName arg-0 (vector 1 "[foreign]")) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 8 ))))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Normalise-Core-nf (vector 0 ) e-7 (vector 0 ) e-6) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((2) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0)))(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--19617-19254-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1)))
(define Elab-TTImp-case--20141-20056 (lambda (arg-0 arg-1 arg-2 arg-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-15 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define Elab-TTImp-case--20141-19934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-13 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-11 arg-15 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-12 arg-16 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 ((Elab-TTImp-n--20141-19850-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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--18142-19769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18444-19685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--18444-19605 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--19300-19414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 (UnifyState-Core-checkUserHoles arg-11 arg-13 (Prelude-C-124C-124 arg-16 (lambda () arg-15)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-39) eta-0)))))))
(define Elab-TTImp-case--18444-19150 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-39) eta-0))))))) ((3) (lambda (eta-0) (let ((act-15 (let ((sc1 (Prelude-not arg-14))) (cond ((equal? sc1 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-39) eta-0)))))))(else (Elab-TTImp-case--19300-19414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--18444-18928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 ((Normalise-Core-getTerm 'erased arg-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-5)))) eta-0))))))))))(else (lambda (eta-0) (let ((act-15 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-40 arg-26)) eta-0)))))))))))
(define Elab-TTImp-case--18444-18769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--18444-18471 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18142-18412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 (Unify-Core-solveConstraints arg-13 arg-11 solvemode (vector 0 ) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-11 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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))))))))))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 2 ) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (let ((sc8 (Prelude-not arg-14))) (cond ((equal? sc8 0) (let ((act-22 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 1 ) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Unify-Core-solveConstraintsAfter arg-13 arg-11 arg-21 solvemode (vector 3 ) eta-0)))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-25 (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-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-26 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc12 arg-9)) (case (vector-ref sc12 0) ((1) (let ((act-26 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-15) eta-0)))))) ((3) (let ((act-26 (let ((sc13 (Prelude-not arg-14))) (cond ((equal? sc13 0) (UnifyState-Core-checkUserHoles arg-11 arg-13 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-15) eta-0))))))(else ((Elab-TTImp-case--19300-19414 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-27 (Elab-TTImp-normaliseHoleTypes arg-13 arg-11 eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-28 (let ((sc14 (Prelude-not arg-14))) (cond ((equal? sc14 0) (let ((act-28 (UnifyState-Core-getHoles arg-11 eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc15 1))) (UnifyState-Core-restoreHoles arg-11 (Elab-TTImp-n--18142-18166-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-29 (let ((act-29 (IORef-Data-readIORef 'erased arg-23 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-29) eta-0)))) (let ((sc15 act-29)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-30 ((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-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-31 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc18 act-31)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-21 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 ret (Normalise-Core-gnf arg-1 arg-6 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-21)))) eta-0)))))))))(else (let ((act-31 (UnifyState-Core-dumpConstraints arg-11 arg-13 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc17 act-31)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-3)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Elab-TTImp-case--18142-18335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (IntMap-Data-empty 'erased)) eta-0)))))))
(define Elab-TTImp-case--18164-18181 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18142-18166-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--18142-18166-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--18092-18117 (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-15 (Context-Core-addToSave arg-1 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Elab-TTImp-case--17998-18029 (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--17925-17948-updateType arg-0 arg-1 arg-3 arg-2 arg-4 eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Elab-TTImp-case--17931-18016 (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--17998-18029 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Elab-TTImp-case--17930-17995 (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--17895-17931 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Elab-TTImp-case--17735-17861 (lambda (arg-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) 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--17735-17801 (lambda (arg-0 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--17621-17706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17925-17948-updateType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))
(define Elab-TTImp-n--17925-17949-normaliseH (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--17998-18029 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define Elab-TTImp-n--20141-19850-bindImps (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-18) 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))) (lambda (eta-0) (let ((act-15 (Unelab-TTImp-unelabNoSugar arg-14 arg-13 arg-16 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Elab-TTImp-n--20141-19850-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 e-3 arg-18) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-15 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-5 e-8)) eta-0))))))))))))))))))))))
(define Elab-TTImp-n--18142-18166-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--18164-18181 arg-0 arg-1 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Elab-TTImp-n--17925-17949-normaliseH arg-1 arg-0 e-6 eta-0 eta-1))) hs) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--17895-17931 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--17621-17706 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-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-15 ((Elab-TTImp-case--18142-18335 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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-getNextEntry arg-2 eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((rigc (Elab-TTImp-getRigNeeded arg-6))) (let ((act-21 ((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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-22 (Unify-Core-solveConstraints arg-2 arg-4 solvemode (vector 0 ) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (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-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-25 (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-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-4 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-1)))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 (IORef-Data-writeIORef 'erased 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))))))))))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-1)))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-26 (let ((act-26 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-0)))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) eta-0)))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-28 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 2 ) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-29 (let ((sc15 (Prelude-not incase))) (cond ((equal? sc15 0) (let ((act-29 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Resolving default hints") eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-30 (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 1 ) eta-0))) (let ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Unify-Core-solveConstraintsAfter arg-2 arg-4 e-8 solvemode (vector 3 ) eta-0)))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc15 act-29)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-30 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 (+ 1 (+ 1 0)))) 1 eta-0))) (let ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-31 (let ((act-31 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-31) eta-0)))) (let ((sc17 act-31)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-32 (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-32)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-33 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc19 arg-6)) (case (vector-ref sc19 0) ((1) (let ((act-33 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc20 act-33)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-22) eta-0)))))) ((3) (let ((act-33 (let ((sc20 (Prelude-not incase))) (cond ((equal? sc20 0) (UnifyState-Core-checkUserHoles arg-4 arg-2 0 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc20 act-33)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-22) eta-0))))))(else ((Elab-TTImp-case--19300-19414 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-33)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-34 (Elab-TTImp-normaliseHoleTypes arg-2 arg-4 eta-0))) (let ((sc20 act-34)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-35 (let ((sc21 (Prelude-not incase))) (cond ((equal? sc21 0) (let ((act-35 (UnifyState-Core-getHoles arg-4 eta-0))) (let ((sc22 act-35)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-25 (vector-ref sc22 1))) (UnifyState-Core-restoreHoles arg-4 (Elab-TTImp-n--18142-18166-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc21 act-35)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-36 (let ((act-36 (IORef-Data-readIORef 'erased e-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) eta-0)))) (let ((sc22 act-36)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-26 (vector-ref sc22 1))) (let ((act-37 ((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-37)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-38 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc25 act-38)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-28 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 ret (Normalise-Core-gnf arg-1 arg-9 (Elab-TTImp-doPLetRenames arg-1 vs (vector 0 ) e-28)))) eta-0)))))))))(else (let ((act-38 (UnifyState-Core-dumpConstraints arg-4 arg-2 (+ 1 (+ 1 0)) 1 eta-0))) (let ((sc24 act-38)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-23 e-3)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(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--17735-17801 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 arg-2)))))))(else (Elab-TTImp-case--17735-17861 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-15 (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (Context-Core-branch arg-2 ext-0))(else (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (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-18 (let ((act-18 (IORef-Data-writeIORef 'erased arg-2 e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-4 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-3 e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 ((Elab-TTImp-n--20141-19850-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-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Builtin-fst 'erased 'erased e-8)) ext-0)))))))))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupTyExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (Context-Core-addToSave arg-0 arg-1 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Term-Elab-TTImp-case--14540-16651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Term-Elab-TTImp-insertImpLam 'erased arg-10 arg-8 arg-3 arg-13 arg-1) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--17143-16556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--17143-16499 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17916-16290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (StringMap-Data-insert 'erased arg-16 e-2 eta-2)) eta-1)) (Term-Elab-TTImp-n--17143-16184-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--17902-16198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName arg-13 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (StringMap-Data-insert 'erased e-2 e-4 eta-2)) eta-1)) (Term-Elab-TTImp-n--17143-16184-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--17143-15977 (lambda (arg-0 arg-1 arg-2 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--17143-15507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--16524-15411 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) (else (lambda (eta-0) (let ((act-15 ((Normalise-Core-getNF 'erased arg-5 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0))))))))))))
(define Term-Elab-TTImp-case--16522-15147 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-8)) eta-0))))))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((3) (let ((e-11 (vector-ref sc0 3))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-8)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-8)) eta-0)))))))
(define Term-Elab-TTImp-case--16522-15070 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 arg-11 arg-8 (vector 2 ) (vector 1 arg-13) (vector 30 arg-11 1) e-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Term-Elab-TTImp-case--16522-14976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 arg-11 arg-8 (vector 0 ) (vector 1 arg-13) (vector 30 arg-11 1) e-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Term-Elab-TTImp-n--17143-16184-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (StringMap-Data-empty 'erased)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Term-Elab-TTImp-case--17902-16198 arg-0 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--16510-14891-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-7)) eta-0)))(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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-7)) eta-0)))(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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-5) (vector 30 e-1 1) e-10))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (Term-Elab-TTImp-case--16522-15147 '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--16522-15147 '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--16522-15147 '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--16510-14892-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-17 (((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-17)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-17 (((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-17)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-17 (((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-17)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-17 (((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-17)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-17 (((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-17)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-17 (((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-17)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-17 (((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-17)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-17 (((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-17)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-17 (((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-17)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-17 (((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-17)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-17 (((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-17)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-17 (((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-17)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) 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) ((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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-17 (((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-17)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-17 (((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-17)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-17 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-17)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-17 (((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-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 0 ) (vector 1 e-9) (vector 30 e-1 1) e-11)) eta-0))))))))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (UnifyState-Core-genVarName arg-5 arg-4 (Name-Core-nameRoot e-2) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-17 (((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-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-18 ((Term-Elab-TTImp-n--16510-14892-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-1 e-6 (vector 2 ) (vector 1 e-9) (vector 30 e-1 1) e-11)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))
(define Term-Elab-TTImp-n--16510-14893-bindLam (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Term-Elab-TTImp-n--16510-14891-bindLamTm 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-6 e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) ext-0))) (else (let ((act-17 ((Normalise-Core-getNF 'erased arg-5 arg-7) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) ((Term-Elab-TTImp-n--16510-14892-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--16510-14893-bindLam 'erased e-1 arg-4 arg-3 arg-2 arg-1 arg-4 e-1 eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-97 (vector-ref sc1 1))) (let ((sc2 e-97)) (case (vector-ref sc2 0) ((1) (let ((e-98 (vector-ref sc2 1))) (let ((sc3 e-98)) (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-97 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-97 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-100 (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-100 e-12 e-13 arg-10))) (else (lambda (eta-0) (let ((act-15 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (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))))) ((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-103 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-103) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8 e-103)) eta-0)))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (UnifyState-Core-genName arg-1 arg-3 "searchTy" eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-45 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 e-45) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (UnifyState-Core-genName arg-1 arg-3 "search" eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-9 (Normalise-Core-gnf arg-0 arg-8 e-7))) eta-0))))))))))))))))))))))))))))))))) ((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))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-74 "Reflection not implemented yet") eta-0)))) ((23) (let ((e-76 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-76 "Declaration reflection not implemented yet") eta-0)))) ((24) (let ((e-78 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-78 "Can't escape outside a quoted term") eta-0)))) ((25) (let ((e-80 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-80 "RunElab not implemented yet") eta-0)))) ((26) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (Term-Elab-TTImp-case--17143-15977 arg-1 e-83 e-82 arg-0 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 (Prim-Elab-TTImp-checkPrim 'erased e-82 e-83))))) ((27) (let ((e-84 (vector-ref sc0 1))) (Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 e-84 (vector 11 e-84) (Normalise-Core-gType 'erased e-84) arg-10))) ((28) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (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-85 e-86 arg-10)))) ((29) (let ((e-88 (vector-ref sc0 2))) (let ((e-89 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Context-Core-getSession arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Context-Core-setLogLevel arg-1 e-88 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-89 arg-10) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-setLogLevel arg-1 lvl eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) eta-0)))))))))))))))))))))))) ((30) (let ((e-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (let ((sc1 arg-10)) (case (vector-ref sc1 0) ((1) (let ((e-106 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-getTerm 'erased e-106) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-90 arg-5 arg-8 e-5 e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (let ((sc5 (Prelude-C-38C-38 e-91 (lambda () (let ((sc6 arg-6)) (let ((e-3 (vector-ref sc6 4))) e-3)))))) (cond ((equal? sc5 0) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-19 ((Normalise-Core-getTerm 'erased e-106) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-20 (IORef-Data-writeIORef 'erased arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-5 arg-5 (vector 1 ) arg-8 e-7 e-9 e-8) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 e-106)) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 (UnifyState-Core-genName arg-1 arg-3 "implicit_type" eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-90 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 e-90) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "_" eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 e-90 arg-5 arg-8 e-7 e-6 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((sc6 (Prelude-C-38C-38 e-91 (lambda () (let ((sc7 arg-6)) (let ((e-3 (vector-ref sc7 4))) e-3)))))) (cond ((equal? sc6 0) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-20 (IORef-Data-writeIORef 'erased arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-7 arg-5 (vector 1 ) arg-8 e-8 e-6 e-9) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8 (Normalise-Core-gnf arg-0 arg-8 e-6))) eta-0)))))))))))))))))))))))))))))))) (else (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-94 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Term-Elab-TTImp-n--17143-16184-resolveNames arg-0 e-94 e-93 e-92 arg-10 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-92 e-93) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-94 arg-10) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased 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)))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-8) eta-0))))))))))))))))))))))))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) ((Term-Elab-TTImp-case--14540-16651 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 Rewrite-Elab-TTImp-case--14974-14804 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-15 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))))))))
(define Rewrite-Elab-TTImp-case--14899-14637 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))))))))))))))))))))))))))))))))
(define Rewrite-Elab-TTImp-case--14847-14574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-12 arg-10 arg-4 arg-5 e-6 e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-20 (UnifyState-Core-genVarName arg-12 arg-10 "_" eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-21 (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-21)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (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-22 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Rewrite-Elab-TTImp-case--14643-14357 (lambda (arg-0 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-15 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-6 arg-4 arg-1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-nf arg-0 arg-7 arg-3 arg-2) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-logNF arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-3 e-2 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 (Context-Core-logTerm arg-0 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-11 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-22 (Normalise-Core-quote_Quote__NF arg-0 e-13 arg-3 e-7 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-23 ((GetType-Core-getType arg-0 arg-6 arg-3 pred) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 ((Normalise-Core-getTerm 'erased e-15) eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-25 (Normalise-Core-quote_Quote__Term arg-0 arg-7 arg-3 arg-2 eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-26 (let ((act-26 (Normalise-Core-convert_Convert__Term arg-0 arg-7 arg-3 e-11 e-17 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 (vector 0 pred e-16))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Rewrite-Elab-TTImp-case--14419-14145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 ((Normalise-Core-evalClosure arg-0 arg-7 e-4) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-7 e-1) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-17 ((Normalise-Core-evalClosure arg-0 arg-7 e-10) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 0 e-9 e-12))) 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))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-6 eta-0)))))))
(define Rewrite-Elab-TTImp-case--14397-14120 (lambda (arg-0 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--14419-14145 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--14350-14077 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define Rewrite-Elab-TTImp-rewriteErr (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((41) 0) ((40) 0) ((55) (let ((e-11 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-11))) ((56) (let ((e-14 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-14))) ((57) (let ((e-17 (vector-ref sc0 3))) (Rewrite-Elab-TTImp-rewriteErr e-17))) ((58) (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-15 (Context-Core-isEqualTy arg-1 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (let ((bind-0 0)) ((Rewrite-Elab-TTImp-case--14419-14145 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-15 (Context-Core-getRewrite arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0))))))))))))
(define Rewrite-Elab-TTImp-elabRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (UnifyState-Core-genVarName arg-1 arg-2 "rwarg" ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-6) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19 (Rewrite-Elab-TTImp-findRewriteLemma 'erased arg-1 arg-3 arg-6 ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 ((Normalise-Core-nf arg-0 e-5 arg-4 arg-5) ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 (Normalise-Core-logNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewriting") arg-4 e-2 ext-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-22 (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-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (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-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Rewritten to") e-15 ext-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-25 (Context-Core-clearDefs e-5 ext-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-26 (Normalise-Core-quote_Quote__NF arg-0 e-17 arg-4 e-9 ext-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-27 ((GetType-Core-getType arg-0 arg-1 arg-4 pred) ext-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-28 ((Normalise-Core-getTerm 'erased e-19) ext-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-29 (Normalise-Core-quote_Quote__Term arg-0 e-5 arg-4 arg-5 ext-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-21 (vector-ref sc16 1))) (let ((act-30 (let ((act-30 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-4 e-15 e-21 ext-0))) (let ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (let ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-11 (vector 0 pred e-20))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Rewrite-Elab-TTImp-checkRewrite (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-9 "Can't infer a type for rewrite") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Delayed-Elab-TTImp-delayOnFailure arg-0 arg-1 arg-2 arg-3 arg-4 arg-9 arg-5 arg-8 e-2 (lambda (eta-1) (Rewrite-Elab-TTImp-rewriteErr eta-1)) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (delayed) (lambda (eta-1) (let ((act-15 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-10 (vector 0 )) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-16 ((Normalise-Core-getTerm 'erased e-3) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-1))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-2) eta-1))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-1))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (let ((sc5 delayed)) (cond ((equal? sc5 0) (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retrying rewrite") eta-1)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-1))) (else (let ((act-19 (Rewrite-Elab-TTImp-elabRewrite arg-0 arg-1 arg-3 arg-9 arg-8 e-7 e-6 eta-1))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-1))) (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-20 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-21 (UnifyState-Core-genVarName arg-1 arg-3 "_" eta-1))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-1))) (else (let ((e-15 (vector-ref sc10 1))) (let ((pbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-22 (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-22)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-1))) (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-23 ((Normalise-Core-getTerm 'erased e-17) eta-1))) (let ((sc13 act-23)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-1))) (else (let ((e-19 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) eta-0))))))))
(define Delayed-Elab-TTImp-case--16300-14044 (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--16300-14000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--16300-13949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--15777-13697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15974-13567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15777-13530 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-15 ((Delayed-Elab-TTImp-recoverable arg-11 arg-14) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--15974-13567 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--15725-13328 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-9 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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))))))))))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-19 (arg-3 eta-1))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-9 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-21 (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-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-22 (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-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-23 (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-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-24 (UnifyState-Core-removeHole arg-9 arg-2 eta-1))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-15 (let ((act-15 ((Context-Core-getFullName arg-11 (vector 9 arg-2)) eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-16 ((Delayed-Elab-TTImp-recoverable arg-11 err) eta-1))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc4 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--15974-13567 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--15343-13042 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--15343-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)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--15057-12792 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--15057-12709 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--14833-12575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14758-12489 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased 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)))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 arg-13)) eta-0))))))))))))))))))))
(define Delayed-Elab-TTImp-case--14518-12316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14450-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) (let ((sc0 arg-16)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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)))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 arg-4)) eta-0))))))))))))))))))))))))
(define Delayed-Elab-TTImp-case--14408-12146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (UnifyState-Core-genName arg-11 arg-9 "delayed" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Normalise-Core-getTerm 'erased arg-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased 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)))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 arg-4)) eta-0))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0)))))))
(define Delayed-Elab-TTImp-case--14272-12084 (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--14272-12044 (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--14168-11953 (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--14168-11929-newBinder arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-3))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 3 arg-5 arg-0 bC-39 e-2) (Normalise-Core-gErased 'erased arg-5))) eta-0)))))))
(define Delayed-Elab-TTImp-case--14168-11907 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))
(define Delayed-Elab-TTImp-n--14168-11929-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--14758-12426-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) (else (lambda (eta-0) (let ((act-15 (UnifyState-Core-genName arg-10 arg-8 "delayTy" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Check-Elab-TTImp-metaVar arg-0 arg-10 arg-8 arg-6 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-4 e-6)) eta-0)))))))))))))))))
(define Delayed-Elab-TTImp-n--16300-13817-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (arg-7 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-log arg-2 (+ 1 (+ 1 0)) (lambda () "Rerunning delayed in elaborator") ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (Check-Elab-TTImp-handle 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (lambda (eta-0) (let ((act-20 ((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--16300-13817-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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (lambda (err) (lambda (eta-0) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0))))))) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) ext-0)))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) ext-0))))))))))))))))))))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-reverse 'erased arg-6)) 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)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-4 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1)))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-18)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-3 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1)))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased 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))))))))))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1)))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-21 (e-11 eta-1))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-3 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-1)))) (let ((sc12 act-22)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-23 (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-23)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-24 (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-24)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-25 (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-25)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-26 (UnifyState-Core-removeHole arg-3 e-10 eta-1))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-17 (let ((act-17 ((Context-Core-getFullName arg-1 (vector 9 e-10)) eta-1))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-18 ((Delayed-Elab-TTImp-recoverable arg-1 err) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-12 (vector-ref sc9 1))) (let ((errmode (vector 0 ))) ((Delayed-Elab-TTImp-case--15974-13567 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf e-0 e-5 e-2 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-nf e-0 e-5 e-2 e-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Delayed-Elab-TTImp-contra e-0 e-5 e-6 e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-not e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf e-5 e-10 e-7 e-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-nf e-5 e-10 e-7 e-9) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc3 1))) (let ((act-18 ((Delayed-Elab-TTImp-contra e-5 e-10 e-11 e-12) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-not e-13)) eta-0))))))))))))))))))))))))))) ((7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) ((55) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-14))) ((56) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-17))) ((57) (let ((e-20 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-20))) ((58) (let ((e-23 (vector-ref sc0 3))) (Delayed-Elab-TTImp-recoverable arg-0 e-23))) ((5) (let ((e-29 (vector-ref sc0 6))) (Delayed-Elab-TTImp-recoverable arg-0 e-29)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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-15 (arg-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-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))) (Delayed-Elab-TTImp-mkClosedElab e-3 arg-1 e-9 (lambda (eta-0) (let ((act-15 (arg-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14168-11929-newBinder e-2 e-3 e-9 e-8 arg-3 arg-1 e-8))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 3 arg-1 e-2 bC-39 e-6) (Normalise-Core-gErased 'erased arg-1))) eta-0)))))))))))))))))))))
(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--15057-12709 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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))) (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--15057-12792 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-47C-61_Eq__Constant e-14 e-38)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((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-15 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-1 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Delayed-Elab-TTImp-case--14408-12146 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (UnifyState-Core-genName arg-1 arg-3 "delayed" ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Delayed-Elab-TTImp-n--14758-12426-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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-getTerm 'erased e-7) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-7 e-6 e-8) ext-0)))))))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased 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)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0)))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 e-7)) ext-0))))))))))))))))))))))))))))))))))))))
(define Delayed-Elab-TTImp-deeper (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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)))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (arg-3 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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)))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) ext-0)))))))))))))))))))))))))))
(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--15343-12959 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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))) (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--15343-13042 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-47C-61_Eq__Constant e-14 e-32)) eta-0)))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Delayed-Elab-TTImp-ambiguous (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((18) 0) ((17) 0) ((20) 0) ((55) (let ((e-11 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-11))) ((56) (let ((e-14 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-14))) ((57) (let ((e-17 (vector-ref sc0 3))) (Delayed-Elab-TTImp-ambiguous e-17))) ((58) (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--18293-4975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-18 arg-2)) eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1)) eta-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)) eta-0)))))))))))))
(define Check-Elab-TTImp-case--18293-4750 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Solved") arg-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-3 arg-2)) eta-0))))))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Force") arg-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Got") arg-5 arg-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Normalise-Core-logGlue arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Exp") arg-5 arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-4 e-0 arg-3) arg-1)) eta-0)))))))))))))))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Delay") arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 7 arg-4 e-1 e-5 arg-3) arg-1)) eta-0)))))))))))))))))
(define Check-Elab-TTImp-case--18262-4719 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (Check-Elab-TTImp-case--18293-4750 arg-0 arg-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-15 (Context-Core-logTerm arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Not solved") arg-3 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-clearDefs e-6 eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (UnifyState-Core-dumpConstraints arg-10 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) 1 eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--18293-4975 arg-0 arg-1 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--17927-4573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
(define Check-Elab-TTImp-case--17927-4443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
(define Check-Elab-TTImp-case--17748-4397 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 ((Normalise-Core-getTerm 'erased arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-15 ((Normalise-Core-getNF 'erased arg-10 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getNF 'erased arg-10 arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0))))))))))))))))))))
(define Check-Elab-TTImp-case--17748-4242 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17176-4024 (lambda (arg-0 arg-1 arg-2 arg-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-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-6 e-16 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-5 e-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-8 e-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (Context-Core-commit arg-8 eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-8) eta-0))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (Check-Elab-TTImp-n--17176-3725-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--17208-3948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17220-3812 (lambda (arg-0 arg-1 arg-2 arg-3 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--17204-3736 (lambda (arg-0 arg-1 arg-2 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--17220-3812 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--17220-3812 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--17220-3812 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--16739-3482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--16739-3307 (lambda (arg-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--16656-3226 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (arg-2 e-5)))))))
(define Check-Elab-TTImp-case--16573-3157 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))) (else arg-2)))))
(define Check-Elab-TTImp-case--16390-3086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--16163-2801 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0))))))
(define Check-Elab-TTImp-case--16063-2719 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0))))))
(define Check-Elab-TTImp-case--16003-2670 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0))))))
(define Check-Elab-TTImp-case--15947-2628 (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--15877-2567 (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--15814-2506 (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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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--15052-2131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-6 (vector 1 arg-0 arg-11 e-5 e-11 e-17 e-19))) 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))))))))(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--15052-1985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-6 (vector 0 arg-0 arg-10 e-5 e-11 e-13))) 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))))))))(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--15051-1894 (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--15032-1758-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--14821-1571 (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--14874-1596-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--15032-1760-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-15 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-7 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-8 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) ((Check-Elab-TTImp-case--15052-1985 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--15032-1759-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-15 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-12 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-13 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Normalise-Core-normaliseHoles (vector 1 arg-1 arg-0) arg-6 arg-2 e-14 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) ((Check-Elab-TTImp-case--15052-2131 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--15032-1758-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--15032-1758-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--15032-1758-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--15032-1758-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--15032-1759-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--15051-1894 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--13826-645-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--13826-645-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))))
(define Check-Elab-TTImp-n--17176-3721-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--17204-3736 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--17176-3722-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--17176-3723-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--15032-1761-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--15032-1756-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Badly formed weakened environment") eta-0)))))))
(define Check-Elab-TTImp-n--17176-3724-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--17176-3724-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--17176-3723-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--17176-3725-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--17208-3948 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--17176-3724-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--17176-3722-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-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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--14874-1596-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--14874-1596-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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) ext-0)))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-branch arg-2 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-19 (arg-6 eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (Context-Core-commit arg-2 eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-9)) eta-0))))))))))) (lambda (err) (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-4 e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-5 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-3 e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 err)) eta-0)))))))))))))))))))))))) 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-15 (Check-Elab-TTImp-tryError 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (Context-Core-branch arg-2 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-19 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-19 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "__")) eta-3))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Running " (Name-Core-show_Show__Name e-11))) eta-2))))))) eta-1))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-20 (e-7 eta-1))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1)))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-5 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-1)))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-3 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-1)))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-2 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-1)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 (IORef-Data-writeIORef 'erased arg-4 e-5 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-1)))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-26 (let ((act-26 (IORef-Data-writeIORef 'erased arg-5 e-8 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-1)))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-27 (let ((act-27 (IORef-Data-writeIORef 'erased arg-3 e-9 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) eta-1)))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-28 (let ((act-28 (IORef-Data-writeIORef 'erased arg-2 e-10 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) eta-1)))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-29 (Context-Core-logC arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-29 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "__")) eta-3))) (lambda () (lambda (eta-3) (lambda (eta-4) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) eta-3 eta-4)))) e-6) eta-2))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-21 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2))))))) eta-1))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-30 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-22 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-1)))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-4 e-5 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-5 e-8 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-3 e-9 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1)))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-2 e-10 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-1)))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-23 ((Check-Elab-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-1))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 ((Normalise-Core-normaliseErr arg-2 err) eta-1))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (vector 0 e-6 e-16)) e-15)) eta-1))))))))))))))))))))))))))))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Check-Elab-TTImp-n--15032-1756-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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--15032-1760-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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Check-Elab-TTImp-n--15032-1760-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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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--15032-1761-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)))) ext-0))))))))))))))))))))))))))))
(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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) ext-0))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Check-Elab-TTImp-metaVarI (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (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) 1) 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-15 ((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) 1) 0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) ext-0))))))))))
(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-inScope (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 (Check-Elab-TTImp-weakenedEState arg-1 arg-2 arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((arg-7 e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Check-Elab-TTImp-strengthenedEState arg-1 arg-2 arg-3 e-5 arg-5 arg-6 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased arg-4 e-7 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) ext-0))))))))))))))))))))))
(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-15 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 0) 0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) ext-0))))))))))
(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-15 (Check-Elab-TTImp-tryError 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0))) (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-15 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-case--17176-4024 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--17176-3721-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-15 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--17176-4024 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--17176-3721-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-15 ((Check-Elab-TTImp-successful 'erased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Check-Elab-TTImp-case--17176-4024 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--17176-3721-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--17748-4242 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-15 (Context-Core-isLazyActive arg-1 eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lazy (Prelude-C-38C-38 e-5 (lambda () arg-4)))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Normalise-Core-logGlueNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-10 eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Check-Elab-TTImp-case--17748-4397 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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-8) eta-1))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-16 ((Normalise-Core-getTerm 'erased arg-9) eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased arg-10) eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-2))) eta-1))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-20 ((Normalise-Core-normaliseErr arg-1 (vector 5 arg-0 arg-6 arg-8 e-6 e-7 err)) eta-1))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (Check-Elab-TTImp-case--15814-2506 'erased arg-2 arg-1 e-5 (Check-Elab-TTImp-clearBindIfUnsolved 'erased e-5)) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Check-Elab-TTImp-case--18262-4719 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-9 arg-10)) eta-0)))))))
(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--13826-645-insertAll e-5 e-10 e-9 e-8 e-7 e-6 (NameMap-Data-toList 'erased (TT-Core-getMetas 'erased e-9)) (TT-Core-getMetas 'erased e-10)))))))))))))
(define EState-Check-Elab-TTImp-bindIfUnsolved (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) e-7))))
(define Check-Elab-TTImp-argVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (UnifyState-Core-newMetaLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1 0)))
(define Check-Elab-TTImp-anyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-5 "No elaborators provided") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) e-7)(else (lambda (eta-0) (Check-Elab-TTImp-try 'erased arg-0 arg-1 arg-2 arg-3 arg-4 e-7 (Check-Elab-TTImp-anyOne arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))))))))))))))
(define ElabInfo-Check-Elab-TTImp-ambigTries (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
(define EState-Check-Elab-TTImp-allPatVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-9 (vector-ref sc0 9))) e-9))))
(define Check-Elab-TTImp-addBindIfUnsolved (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 1))) e-1)) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 2))) e-2)) (let ((sc0 arg-7)) (let ((e-3 (vector-ref sc0 3))) e-3)) (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4)) (let ((sc0 arg-7)) (let ((e-5 (vector-ref sc0 5))) e-5)) (let ((sc0 arg-7)) (let ((e-6 (vector-ref sc0 6))) e-6)) (vector 1 (vector 0 arg-1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 arg-4 (vector 0 arg-3 (vector 0 arg-5 (vector 0 arg-6 (let ((sc0 arg-7)) (let ((e-4 (vector-ref sc0 4))) e-4))))))))) (let ((sc0 arg-7)) (let ((e-7 (vector-ref sc0 7))) e-7))) (let ((sc0 arg-7)) (let ((e-8 (vector-ref sc0 8))) e-8)) (let ((sc0 arg-7)) (let ((e-9 (vector-ref sc0 9))) e-9)) (let ((sc0 arg-7)) (let ((e-10 (vector-ref sc0 10))) e-10)) (let ((sc0 arg-7)) (let ((e-11 (vector-ref sc0 11))) e-11)) (let ((sc0 arg-7)) (let ((e-12 (vector-ref sc0 12))) e-12)) (let ((sc0 arg-7)) (let ((e-13 (vector-ref sc0 13))) e-13)))))
(define Either-Data-case--1267-343 (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--1212-297 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 (Either-Data-lefts 'erased 'erased arg-3)))) (else (Either-Data-lefts 'erased 'erased arg-3))))))
(define Either-Data-rights (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Either-Data-rights 'erased 'erased e-3)) (else (let ((e-5 (vector-ref sc1 1))) (vector 1 e-5 (Either-Data-rights 'erased 'erased e-3)))))))))))))
(define Either-Data-lefts (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4 (Either-Data-lefts 'erased 'erased e-3)))) (else (Either-Data-lefts 'erased 'erased e-3)))))))))))
(define Unify-Core-case--26267-24789 (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--26783-24701 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--26841-24564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--26783-24478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Normalise-Core-normaliseHoles arg-2 arg-16 arg-7 arg-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--26272-24433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact arg-3 (let ((sc2 e-5)) (let ((e-27 (vector-ref sc2 1))) e-27)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-6 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Normalise-Core-normaliseHoles arg-2 e-5 arg-7 arg-5 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased arg-14 eta-0)))))))))))
(define Unify-Core-case--26405-24251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--26405-24160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--26333-24116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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--26272-24059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) arg-2 arg-0 arg-1) (Unify-Core-inMatch)) arg-10) arg-7) arg-6) arg-5) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-lookupDefExact arg-3 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 ((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-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--26160-23940 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (Unify-Core-checkArgsSame arg-3 arg-2 arg-1))))))
(define Unify-Core-case--25968-23909 (lambda (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-15 ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 e-10 arg-1) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--26007-23821 (lambda (arg-0 arg-1 arg-2 arg-3 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
(define Unify-Core-case--25982-23777 (lambda (arg-0 arg-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-15 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-7 (vector 0 ) arg-6 e-10 eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
(define Unify-Core-case--25846-23651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((8) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-case--25468-23492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--25468-23381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--24335-23294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc4 arg-15)) (let ((e-1 (vector-ref sc4 2))) e-1))) eta-0))))))))))))))))(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-15 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))
(define Unify-Core-case--24335-23229 (lambda (arg-0 arg-1 arg-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--24808-23172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--24808-23017 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-12) eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12)) eta-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay (constrained)") arg-12 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)) eta-0))))))))))))))))))))))
(define Unify-Core-case--24808-22926 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--24808-22777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-12) eta-0))) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-forceMeta 'erased e-0 arg-11 arg-12)) eta-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((GetType-Core-getType (vector 0 ) arg-6 (vector 0 ) arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-logTerm (vector 0 ) arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Retry Delay") arg-12 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-delayMeta (vector 0 ) e-1 arg-11 e-7 arg-12)) eta-0))))))))))))))))))))))
(define Unify-Core-case--24335-22709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 ((Unify-Core-case--24808-22777 arg-0 arg-1 arg-2 arg-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (UnifyState-Core-removeGuess arg-5 arg-0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc5 arg-14)) (let ((e-1 (vector-ref sc5 2))) e-1))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Unify-Core-case--24808-23017 arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))
(define Unify-Core-case--24335-22649 (lambda (arg-0 arg-1 arg-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--24335-22579 (lambda (arg-0 arg-1 arg-2 arg-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--24417-22486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-5 eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Unify-Core-case--24335-22371 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-16 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((3) (let ((act-16 ((Normalise-Core-normaliseErr arg-6 arg-13) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))
(define Unify-Core-case--24286-22297 (lambda (arg-0 arg-1 arg-2 arg-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-17 (Context-Core-addDef arg-6 (vector 9 arg-0) gdef eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-18 (UnifyState-Core-removeGuess arg-5 arg-0 eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-1)))))))))))))))))))) (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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-1))) (else (let ((act-16 (Unify-Core-setInvertible arg-6 arg-1 (vector 9 e-3) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-1)))))))))))))(else (lambda (eta-1) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((3) (let ((act-16 ((Normalise-Core-normaliseErr arg-6 err) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-6 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-1)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-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-15 (Unify-Core-retry arg-6 arg-5 umode e-7 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-case--24335-22709 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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--24335-23294 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((csAll (Unify-Core-unionAll e-6))) ((Unify-Core-case--24335-23294 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Unify-Core-case--24254-22257 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Unify-Core-case--24286-22297 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--23667-22133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0)))))))
(define Unify-Core-case--23733-21979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23733-21870 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (UnifyState-Core-deleteConstraint arg-3 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-16) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-16) eta-0)))))))))))
(define Unify-Core-case--23667-21768 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-logTermNF arg-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "....with") arg-8 arg-6 eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Unify-Core-ifThenElse 'erased arg-10 (lambda () ((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-2)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-2)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) ((Unify-Core-case--23733-21870 arg-0 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-constrain arg-1)) eta-0)))))))))))))))))))
(define Unify-Core-case--23492-21711 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) ((0) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((e-5 (vector-ref sc1 3))) (let ((e-6 (vector-ref sc1 4))) (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-15 ((Core-Core-anyM 'erased (lambda (eta-1) (lambda (eta-2) (Unify-Core-n--23492-21556-definedN arg-0 arg-1 arg-2 arg-3 eta-1 eta-2))) e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc2 1))) ((Unify-Core-case--23667-21768 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-15 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6850 arg-6851 arg-6853 eta-1)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6855 arg-6857 arg-6858 arg-6860 eta-1))))))))) e-10 arg-0 arg-3 arg-2 e-11 e-12 e-13 e-14) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--23667-22133 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--23514-21589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-6)) (let ((e-14 (vector-ref sc1 15))) e-14))) eta-0))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Unify-Core-case--23500-21572 (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))) (Unify-Core-case--23514-21589 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Unify-Core-case--23371-21489 (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--23354-21445 (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-0) eta-0)))))))
(define Unify-Core-case--23212-21349 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (else (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure arg-0 arg-8 arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-8 arg-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
(define Unify-Core-case--22939-21116 (lambda (arg-0 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
(define Unify-Core-case--22935-21008 (lambda (arg-0 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf arg-0 arg-8 arg-5 arg-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
(define Unify-Core-case--22082-20830 (lambda (arg-0 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--22082-20777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-5))))))))
(define Unify-Core-case--22474-20569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (let ((act-15 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-10 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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--22078-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 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-15 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-9 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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--22169-20292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (let ((act-15 (Normalise-Core-quote_Quote__NF arg-0 arg-17 arg-11 arg-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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--22078-20191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-10 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-11 arg-3 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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--15810-19927 (lambda (arg-0 arg-1 arg-2 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-4 e-8 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-10)) eta-0)))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-case--15810-19850 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-1 (vector 1 (vector 0 )))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-case--15806-19705 (lambda (arg-0 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15806-19493 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-1)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 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--15806-19387 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-1)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 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--15799-19080 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-19 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (((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-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-11 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 e-12 eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-25 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-union e-7 e-15)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Unify-Core-case--20537-18781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 (((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-5 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-6 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-15 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-1 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 arg-4 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((UnifyState-Core-newConstant arg-0 arg-16 arg-17 arg-14 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (((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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (((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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-8 eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Normalise-Core-quote_Quote__NF arg-0 arg-19 arg-13 e-9 eta-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-union arg-22 e-12)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))
(define Unify-Core-case--15799-18615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (Context-Core-clearDefs arg-18 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-13 arg-4 eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-17 arg-16) (Unify-Core-lower arg-15)) arg-14) arg-13) arg-1) arg-4) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (UnifyState-Core-genVarName arg-17 arg-16 "x" eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--20537-18781 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15794-18426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (Context-Core-logC arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-17 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 eta-2 eta-3))) arg-6) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-11 eta-2 eta-3))) arg-1) eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))))))))))))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-1)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 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--15794-18325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-0)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 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--15794-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 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--19829-18120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15794-18012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-0)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 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-15 ((Unify-Core-n--15794-17865-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Unify-Core-n--15794-17865-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--19829-18120 arg-0 arg-1 arg-2 arg-3 arg-4 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--15794-17864-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--19665-17899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 ((Unify-Core-n--15794-17865-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (+ 1 e-5)) eta-0))))))))(else (Unify-Core-n--15794-17865-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--15794-17865-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--15794-17726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-0)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 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--15794-17626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (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--15790-17554 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (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--15790-17481 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (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--15790-17265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (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--15790-17169 (lambda (arg-0 arg-1 arg-2 arg-3 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--18307-16827 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--18220-16695 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-15 (Normalise-Core-normalise arg-0 arg-13 arg-7 arg-26 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--18307-16827 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18128-16635 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--18220-16695 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--18059-16564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-15 (Normalise-Core-quote_Quote__NF arg-0 arg-14 arg-7 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Unify-Core-occursCheck arg-0 arg-12 arg-8 arg-7 arg-9 arg-5 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--18220-16695 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17610-16517 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--18059-16564 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17730-16278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17670-16230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17730-16278 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--17610-16189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17670-16230 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--15786-16145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--17670-16230 arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--18059-16564 arg-0 arg-1 arg-2 arg-3 arg-4 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--17312-15976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-solvedHole arg-9)) eta-0)))))))) (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--15781-15891 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-solvedHole arg-9)) eta-0))))))) (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--15777-15792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (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--16921-15622 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15773-15580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (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--15773-15556-isPatName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-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--16371-15143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-15 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-20) arg-22) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-union e-6 e-8)) eta-0))))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 (Context-Core-log arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying invertible") eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) arg-0 arg-13 arg-12) arg-10) arg-9) arg-8) arg-22) arg-20) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-union e-6 e-8)) eta-0)))))))))))))))))))))))))
(define Unify-Core-case--16304-15081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16371-15143 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16225-15032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--16304-15081 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15769-14966 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (let ((act-15 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (ty) (lambda (eta-1) (let ((act-16 ((Normalise-Core-nf arg-0 arg-14 arg-8 (TT-Core-embed 'erased 'erased ty)) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Unify-Core-headsConvert arg-0 arg-13 arg-8 e-5 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--16304-15081 arg-0 arg-1 arg-2 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--15766-14863 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-8 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-15 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Converting") arg-3 e-5 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Normalise-Core-logNF arg-0 arg-4 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "......with") arg-3 e-8 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (Normalise-Core-convert_Convert__NF arg-0 e-11 arg-3 e-5 e-8 eta-0)))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Unify-Core-case--15764-14767 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 arg-4 e-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-case--15846-14685 (lambda (arg-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--15760-14640 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0))) (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--15718-14471 (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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-1)) (let ((e-14 (vector-ref sc1 15))) e-14))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Unify-Core-case--15478-14334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--15391-14250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't happen: no definition") eta-0))))))))))))))))
(define Unify-Core-case--15345-14179 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 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))) (let ((bind-0 (vector 1 (vector 0 e-5 (vector 0 e-9 e-10))))) (Unify-Core-case--15391-14250 arg-0 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--15315-14142 (lambda (arg-0 arg-1 arg-2 arg-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-15 (Unify-Core-patternEnvTm arg-8 arg-7 arg-0 arg-6 arg-1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)) (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--15391-14250 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Unify-Core-case--14035-14041 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-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-22 (vector 0 ) (vector 1 0 arg-18) (vector 1 0 arg-18) (vector 0 )) e-18 e-19 e-20))))))))))))))))))))))))
(define Unify-Core-case--14035-13944 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-case--14059-13653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) (else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))
(define Unify-Core-case--14058-13554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (+ 1 arg-21)))
(define Unify-Core-case--14343-13306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (cond ((equal? sc0 0) (vector 2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 arg-23)) (else (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-21 arg-23))))))
(define Unify-Core-case--14292-13244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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-19 arg-20) (lambda (tC-39) (Prelude-pure_Applicative__Maybe 'erased (Unify-Core-case--14343-13306 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 'erased arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 tC-39 (Unify-Core-inLam arg-10)))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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-19 arg-20) (lambda (bind-0) (vector 1 (vector 2 arg-22 arg-21 bind-0)))))))))
(define Unify-Core-case--14058-13138 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 arg-19 arg-18 arg-21))))
(define Unify-Core-case--13888-12911 (lambda (arg-0 arg-1 arg-2 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-15 ((Unify-Core-n--13639-12631-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-10)) eta-0)))))))
(define Unify-Core-case--13639-12848 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-1)) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Normalise-Core-normalise arg-0 e-5 arg-4 arg-1 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Unify-Core-getMetaNames 'erased arg-6 e-6) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--13888-12911 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-2 e-7)) eta-0))))))))))))))))))))))
(define Unify-Core-case--13651-12710 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--13639-12631-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--13639-12631-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--13651-12649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (cond ((equal? sc0 0) arg-11) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-case--13546-12586 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--13427-12449-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3)))) eta-0)))))))
(define Unify-Core-case--13427-12545 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--13546-12586 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--13438-12474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13427-12449-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--13427-12449-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
(define Unify-Core-case--13331-12380 (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-getVarsBelowTm 'erased arg-2 arg-6) (lambda (xsC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 arg-2 xsC-39)))))))))
(define Unify-Core-case--13230-12320 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 (vector 0 (Unify-Core-n--13104-12171-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3)))) eta-0)))))))
(define Unify-Core-case--13104-12275 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Unify-Core-case--13230-12320 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--13115-12196 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13104-12171-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--13104-12171-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
(define Unify-Core-case--13041-12124 (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--12990-12108 (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--13041-12124 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--12990-12074-anyFirst arg-0 arg-1 arg-2 arg-2)))))))
(define Unify-Core-case--12801-11980 (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--12829-11931 (lambda (arg-0 arg-1 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--12801-11917-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9))))))
(define Unify-Core-case--12648-11771 (lambda (arg-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--12256-11688 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (let ((xmetas (TT-Core-getMetas 'erased arg-13))) (Unify-Core-chaseMetas arg-9 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas arg-14)) (NameMap-Data-empty 'erased)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-case--12272-11414 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Unify-Core-case--12138-11320 (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--12121-11281 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupDefExact arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (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--12060-11229 (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--11655-10749 (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--11646-10738 (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--13427-12449-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--13438-12474 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--13104-12171-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--13115-12196 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--14058-13193-updateLocsB (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-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--14035-12994-updateLocs arg-0 arg-1 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-19 e-3) (lambda (bind-0) (vector 1 (vector 0 e-1 e-2 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--14035-12994-updateLocs arg-0 arg-1 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-19 e-6) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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-19 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))) (Unify-Core-case--14292-13244 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 'erased arg-16 arg-17 arg-18 arg-19 e-11 e-10 e-9 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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--14035-12994-updateLocs arg-0 arg-1 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-19 e-15) (lambda (bind-0) (vector 1 (vector 3 e-13 e-14 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--14035-12994-updateLocs arg-0 arg-1 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-19 e-18) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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-19 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--14035-12994-updateLocs arg-0 arg-1 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-19 e-22) (lambda (bind-0) (vector 1 (vector 5 e-21 bind-0)))))))))))
(define Unify-Core-n--14035-12994-updateLocs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 ((e-4 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12993-updateLoc arg-0 arg-1 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 e-4 arg-15 'erased) (lambda (_-0) (vector 1 (vector 0 e-2 e-3 _-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))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14058-13193-updateLocsB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 e-8 'erased e-10 e-9 e-7 arg-15 e-9) (lambda (bC-39) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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 (vector 1 0 (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (+ 1 lamc-0)) arg-15)) e-10) (lambda (scC-39) (vector 1 (vector 3 e-7 e-8 bC-39 scC-39))))))))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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 e-13) (lambda (bind-0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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 e-14) (lambda (bind-1) (vector 1 (vector 4 e-12 bind-0 bind-1))))))))))(else (vector 1 arg-16))))))
(define Unify-Core-n--14035-12993-updateLoc (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-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) (vector 0 ))(else (let ((sc0 arg-17)) (cond ((equal? sc0 0) (let ((sc1 arg-18)) (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2))))(else (let ((e-0 (- arg-17 1))) (let ((sc0 arg-18)) (let ((e-6 (vector-ref sc0 2))) (Unify-Core-n--14035-12993-updateLoc arg-0 arg-1 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 e-0 e-6 'erased))))))))))))
(define Unify-Core-n--12256-11398-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupDefExact arg-10 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0)) ((8) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0)) ((9) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))))))))))))
(define Unify-Core-n--15781-15859-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--15794-17864-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--14035-12995-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 arg-20) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((0) (Unify-Core-case--14059-13653 arg-0 arg-1 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-20 arg-15 arg-19 arg-18 (Unify-Core-n--14035-12994-updateLocs arg-0 arg-1 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 (List-Data-reverse 'erased arg-18) arg-19)))(else (let ((sc1 arg-20)) (case (vector-ref sc1 0) ((3) (let ((e-16 (vector-ref sc1 3))) (let ((e-17 (vector-ref sc1 4))) (let ((sc2 e-16)) (case (vector-ref sc2 0) ((1) (Unify-Core-n--14035-12995-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 'erased arg-15 arg-16 arg-17 arg-18 arg-19 e-17))(else (let ((sc2 arg-17)) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 arg-20)) (case (vector-ref sc3 0) ((3) (let ((e-5 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 3))) (let ((e-8 (vector-ref sc3 4))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((2) (let ((e-10 (vector-ref sc4 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((Unify-Core-n--14035-12995-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 'erased (vector 1 e-1 arg-15) e-2 e-3 arg-18 arg-19 e-8) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-1 (vector 0 e-10 (vector 1 ) (vector 10 e-5 1)) e-13)) eta-0)))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))))))))))(else (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((3) (let ((e-5 (vector-ref sc2 1))) (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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((Unify-Core-n--14035-12995-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 'erased (vector 1 e-1 arg-15) e-2 e-3 arg-18 arg-19 e-8) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-1 (vector 0 e-10 (vector 1 ) (vector 10 e-5 1)) e-13)) eta-0)))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0))))))))))))))))(else (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((3) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((1) (Unify-Core-n--14035-12995-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 'erased arg-15 arg-16 arg-17 arg-18 arg-19 e-17))(else (let ((sc1 arg-17)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((e-3 (vector-ref sc1 3))) (let ((sc2 arg-20)) (case (vector-ref sc2 0) ((3) (let ((e-5 (vector-ref sc2 1))) (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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((Unify-Core-n--14035-12995-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 'erased (vector 1 e-1 arg-15) e-2 e-3 arg-18 arg-19 e-8) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-1 (vector 0 e-10 (vector 1 ) (vector 10 e-5 1)) e-13)) eta-0)))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))))))))))(else (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 ((sc1 arg-20)) (case (vector-ref sc1 0) ((3) (let ((e-5 (vector-ref sc1 1))) (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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((Unify-Core-n--14035-12995-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 'erased (vector 1 e-1 arg-15) e-2 e-3 arg-18 arg-19 e-8) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5 e-1 (vector 0 e-10 (vector 1 ) (vector 10 e-5 1)) e-13)) eta-0)))))))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))))(else (lambda (eta-0) (Unify-Core-ufail 'erased arg-11 (Strings-Prelude-C-43C-43 "Can't make solution for " (Name-Core-show_Show__Name arg-8)) eta-0)))))))))))))))))
(define Unify-Core-n--15794-17865-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-15 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 e-5 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Unify-Core-n--15794-17865-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-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (+ 1 e-10)) eta-0)))))))(else ((Unify-Core-n--15794-17865-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--15794-17865-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--14035-12992-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--14035-12992-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--15773-15556-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) (let ((sc0 arg-16)) (case (vector-ref sc0 0) ((3) 0)(else 1)))))
(define Unify-Core-n--15806-19796-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--12801-11917-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--12829-11931 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--13639-12631-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--13651-12649 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--13651-12710 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--23492-21556-definedN (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-4 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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))) ((Unify-Core-case--23514-21589 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-1 _-0 (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17))) ext-0))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))))))))))))
(define Unify-Core-n--25841-23621-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((8) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))
(define Unify-Core-n--26267-24001-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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc5 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-1) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-17 (vector-ref sc6 1))) (let ((act-19 (Context-Core-lookupDefExact e-2 (let ((sc7 e-17)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-1))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-20 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-2)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-2))))))))))) e-8 arg-0 arg-1) (Unify-Core-inMatch)) e-9) e-12) e-13) e-14) eta-1))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-0 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1)))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-22 (Context-Core-lookupDefExact e-2 (let ((sc11 e-20)) (let ((e-0 (vector-ref sc11 1))) e-0)) eta-1))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-23 ((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-23)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-1))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))))))))))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-17 (vector-ref sc7 1))) (let ((act-19 (Context-Core-lookupTyExact e-2 (let ((sc8 e-17)) (let ((e-41 (vector-ref sc8 1))) e-41)) eta-1))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-20 (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-20)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased 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))))))))))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1)))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-22 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-13 eta-1))) (let ((sc12 act-22)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-23 (Normalise-Core-normaliseHoles e-8 e-17 e-12 e-14 eta-1))) (let ((sc13 act-23)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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))))))))))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Unify-Core-n--25968-23751-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (Normalise-Core-convert_Convert__Term (vector 0 ) e-5 (vector 0 ) arg-4 e-11 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--25968-23751-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))))))))))))))
(define Unify-Core-n--12990-12074-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--12990-12074-anyFirst arg-0 arg-1 arg-2 e-3)))))))))))
(define Unify-Core-n--25793-23578-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-unifyWithLazyD_Unify__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) ext-0)))))) (else (let ((act-18 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unifyWithLazy 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) arg-3) arg-4) arg-5) e-8) e-9) ext-0)))))))))))))))))))))))))))))))
(define Unify-Core-unifyWithLazyD_Unify__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((5) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (lambda (eta-0) (let ((act-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) arg-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc2 e-8)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2 (vector 1 e-6))))))) eta-0)))))))))))))(else (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((5) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) arg-6) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))))) eta-0))))))))))(else ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Normalise-Core-convert_Convert__Term arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) ext-0)))))) (else (let ((act-18 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-6) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--22078-20191 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-17 (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-14 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (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--22078-20468 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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--22078-20468 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Normalise-Core-convert_Convert__Closure arg-0 e-6 arg-5 arg-6 arg-7 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) ext-0)) (else (let ((act-18 ((Normalise-Core-evalClosure arg-0 e-5 arg-6) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((Normalise-Core-evalClosure arg-0 e-5 arg-7) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-0)))))))))))))
(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960))))))))))))
(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-0)))))))))))))
(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Unify-Core-C-61C-61_Eq__UnifyMode arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Unify-Core-C-47C-61_Eq__UnifyMode arg-623 arg-624))))))
(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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--15806-19387 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--15806-19705 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--15806-19796-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15806-19796-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--15806-19493 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--15806-19705 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--15806-19796-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15806-19796-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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) 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--15806-19705 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--15806-19796-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15806-19796-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-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-0)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-0)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 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--15806-19705 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--15806-19796-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15806-19796-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-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-2 arg-0 arg-1) (Unify-Core-lower arg-3)) arg-4) arg-5) e-38) e-68) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Unify-Core-unifyArgs 'erased (vector 0 (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6850) (lambda (arg-6851) (lambda (arg-6853) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6850 arg-6851 arg-6853 eta-1)))))) (lambda (vars) (lambda (arg-6855) (lambda (arg-6857) (lambda (arg-6858) (lambda (arg-6860) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6855 arg-6857 arg-6858 arg-6860 eta-1))))))))) arg-2 arg-0 arg-1 arg-3 arg-4 arg-5 e-39 e-69) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-union e-5 e-6)) eta-0)))))))))))))))(else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Unify-Core-case--15806-19705 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--15806-19796-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15806-19796-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--15806-19705 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Unify-Core-unifyIfEq arg-0 arg-1 arg-2 (Prelude-C-124C-124 (Unify-Core-n--15806-19796-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--15806-19796-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (let ((act-17 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased e-1)) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (ty) (lambda (eta-0) (let ((act-18 ((Normalise-Core-nf arg-2 e-5 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((Unify-Core-headsConvert arg-2 arg-0 arg-6 e-7 e-8) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--16304-15081 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 arg-7 arg-8 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) ext-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact e-2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15773-15556-isPatName arg-2 e-24 e-23 e-22 e-15 e-13 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((args (List-Prelude-C-43C-43 'erased arg-10 arg-11))) (let ((act-17 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalArg arg-2 e-6 eta-1)) args) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 eta-1 eta-2))) e-7) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Normalise-Core-quote_Quote__NF arg-2 e-6 arg-6 arg-12 eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))))) eta-0))))))))))))))))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Unify-Core-patternEnv arg-0 arg-1 arg-2 arg-6 args ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (let ((act-19 ((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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--17670-16230 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-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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--18059-16564 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--15799-18615 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) ((Unify-Core-case--15799-19080 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--15794-17626 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--15794-17726 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-15 (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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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--15794-17726 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-15 (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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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--15794-17726 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-15 (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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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--15794-17726 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-15 (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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15794-18243 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--15794-18325 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--15794-18426 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-15 (Unify-Core-isDefInvertible arg-0 e-26 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--15794-18012 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--15794-18243 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--15794-18325 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--15794-18426 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)))(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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((((((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-union e-8 e-5)) eta-0)))))))))))))))(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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Unify-Core-case--15790-17169 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) ((Unify-Core-case--15790-17265 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-16 (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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-16 (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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (let ((sc8 e-8)) (cond ((equal? sc8 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-16 (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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-16 (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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Unify-Core-case--15790-17169 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) ((Unify-Core-case--15790-17265 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-16 (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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-16 (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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((sc7 e-8)) (cond ((equal? sc7 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((sc6 e-8)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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--12990-12108 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-17 (Unify-Core-patternEnvTm arg-1 arg-2 arg-0 arg-3 e-4 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)) (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--15391-14250 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--15781-15891 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--15781-15859-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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--25793-23578-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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Unify-Core-solveConstraints (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Unify-Core-setInvertible (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Initial target: ") arg-9 arg-8 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Result") arg-9 e-8 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-8) ext-0))))))))))))))))))))))))))))
(define Unify-Core-retryGuess (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)) (else (let ((e-4 (vector-ref sc4 1))) (let ((bind-0 (vector 1 e-4))) ((Unify-Core-case--24286-22297 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--23492-21711 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Normalise-Core-convert_Convert__NF arg-2 e-5 arg-6 x arg-11 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-success)) eta-0)) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-0) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-8 eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-7 arg-9 eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-7 eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-8 eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) eta-0)))))))))))))))))))))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-8 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-7 arg-9 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((sc5 arg-3)) (cond ((equal? sc5 0) (let ((xmetas (TT-Core-getMetas 'erased e-8))) ((Unify-Core-chaseMetas arg-1 (NameMap-Data-keys 'erased (TT-Core-addMetas 'erased xmetas e-9)) (NameMap-Data-empty 'erased)) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Unify-Core-n--12256-11398-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-10) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (UnifyState-Core-addConstraint arg-2 arg-1 (vector 0 arg-0 arg-4 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) e-11 arg-7 e-8 e-9) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (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-12) (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-10)))))) ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-24 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "X") e-8 ext-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Y") e-9 ext-0))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Unify-Core-constrain e-12)) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Unify-Core-patternEnvTm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Unify-Core-case--13427-12545 arg-2 arg-4 arg-3 arg-1 arg-0 e-5 e-6 (Unify-Core-getVarsBelowTm 'erased (Prelude-fromInteger_Num__Nat 1000000) arg-4)) ext-0)))))))))))))
(define Unify-Core-patternEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Normalise-Core-evalArg arg-2 e-6 eta-0)) arg-4) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) ((Unify-Core-case--13104-12275 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-15 ((Unify-Core-getMetaNames 'erased arg-1 arg-6) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Unify-Core-case--13639-12848 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 e-1)) (let ((e-14 (vector-ref sc3 15))) e-14))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Unify-Core-case--14035-13944 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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((ty (let ((sc2 arg-10)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 ((Unify-Core-n--14035-12995-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 'erased (vector 0 ) arg-3 (Views-List-Data-snocList 'erased arg-3) arg-11 arg-13 ty) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Instantiated: " (Name-Core-show_Show__Name arg-7))) ty ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (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 ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (Context-Core-logTerm (vector 0 ) arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Definition") e-8 ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((simpleDef (vector 0 (vector 1 arg-9) (Unify-Core-n--14035-12992-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-8)))) (let ((newdef (let ((sc7 arg-10)) (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-27 (vector-ref sc7 6))) (let ((e-26 (vector-ref sc7 7))) (let ((e-25 (vector-ref sc7 8))) (let ((e-24 (vector-ref sc7 9))) (let ((e-23 (vector-ref sc7 10))) (let ((e-22 (vector-ref sc7 11))) (let ((e-21 (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-18 (vector-ref sc7 19))) (let ((e-19 (vector-ref sc7 20))) (let ((e-20 (vector-ref sc7 21))) (vector 0 e-0 e-1 e-2 e-3 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 simpleDef (vector 0 ) (vector 1 0 e-8) (vector 1 0 e-8) (vector 0 )) e-18 e-19 e-20)))))))))))))))))))))))) (let ((act-22 (Context-Core-addDef arg-0 (vector 9 arg-8) newdef ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--15766-14863 arg-0 e-1 e-3 arg-2 arg-1 (vector 0 (List-Data-reverse 'erased e-1) (List-Data-reverse 'erased e-3)))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))
(define Unify-Core-giveUpConstraints (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--25841-23621-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-getVarsBelowTm (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--13331-12380 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-C-62C-61_Ord__Nat 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--12801-11980 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--12801-11917-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-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-shrinkTerm 'erased 'erased e-6 (vector 1 (vector 0 )))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))) ((4) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((GetType-Core-getType arg-0 arg-1 arg-3 e-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-19 (Context-Core-clearDefs e-14 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-20 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-3 e-11 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-16)) eta-0))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (((e-5 arg-1) e-11) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) ((Unify-Core-getArgTypes 'erased arg-1 e-6 e-12) eta-0)))))))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-9 e-1))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-1 e-6 arg-4 arg-5 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-1 e-6 arg-4 arg-6 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Unify-Core-n--26267-24001-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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (UnifyState-Core-getCurrentHoles arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (IORef-Data-writeIORef 'erased 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))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0))))))))))))))))))))))))))
(define Unify-Core-checkArgsSame (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Unify-Core-n--25968-23751-anySame e-2 e-3 arg-1 arg-0 e-11 e-3) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (NameMap-Data-keys 'erased arg-2)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Unify-Core-case--12121-11281 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--10296-6998 (lambda (arg-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-glueBack arg-0 e-5 arg-4 e-3)) eta-0)))))))))(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--10296-6863 (lambda (arg-0 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((GetType-Core-chk arg-0 arg-5 arg-4 arg-1) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-17 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 arg-1)) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-glueBack arg-0 e-5 arg-4 e-10)) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-15 ((Normalise-Core-getTerm 'erased arg-6) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--10296-6756 (lambda (arg-0 arg-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-15 ((Normalise-Core-nf arg-0 arg-7 arg-5 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--10296-6696 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-4 (TT-Core-embed 'erased 'erased e-1))) eta-0)))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-glueBack arg-0 e-5 arg-3 arg-4)) eta-0))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((GetType-Core-chk arg-0 arg-1 arg-3 e-10) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-17 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-3 e-10)) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-4 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 6 ))) ((1) (vector 9 arg-1 (vector 7 ))) ((2) (vector 9 arg-1 (vector 8 ))) ((3) (vector 9 arg-1 (vector 9 ))) ((4) (vector 9 arg-1 (vector 10 ))) ((5) (vector 9 arg-1 (vector 11 )))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-2 (TT-Core-binderType 'erased (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3112) (TT-Core-weaken_Weaken__Term n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Term vars ns arg-3116))))) arg-0 e-4 'erased arg-2)))) eta-0)))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-2 (TT-Core-embed 'erased 'erased e-1))) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Normalise-Core-nf arg-0 e-5 arg-2 (TT-Core-embed 'erased 'erased e-1)) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((GetType-Core-chkBinder arg-0 arg-1 arg-2 e-18) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((GetType-Core-chk (vector 1 e-17 arg-0) arg-1 (vector 1 e-18 arg-2) e-19) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-discharge 'erased e-16 e-17 e-18 e-7 e-8))) eta-0))))))))))))))))))))))))))) ((4) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((GetType-Core-chk arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-18 ((GetType-Core-chk arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((act-19 (((e-4 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 e-23)) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-glueBack arg-0 e-10 arg-2 e-12)) eta-0))))))))))))))))(else (let ((act-17 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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-17 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gType 'erased e-30)) eta-0)))) ((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-15 ((GetType-Core-chk arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-glueBack arg-0 e-7 arg-2 (vector 5 e-34 e-35 e-6))) eta-0))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((GetType-Core-chk arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-glueBack arg-0 e-7 arg-2 e-3)) eta-0))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-2 (GetType-Core-chkConstant 'erased e-43 e-44))) eta-0))))) ((11) (let ((e-46 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gType 'erased e-46)) eta-0)))) (else (let ((e-48 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gErased 'erased e-48)) eta-0))))))))
(define Metadata-Core-case--13668-8239 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0))))))
(define Metadata-Core-case--13659-8218 (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-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) 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-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
(define Metadata-Core-case--13602-8167 (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-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-fromBuf_TTC__TTMFile e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc3 e-6)) (let ((e-1 (vector-ref sc3 2))) e-1)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) 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-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
(define Metadata-Core-case--13485-8107 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-5)))) eta-0))))))))
(define Metadata-Core-case--13022-7681 (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--12882-7483 (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--12820-7437 (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--12792-7400 (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--12759-7371 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-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--12675-7309 (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--12591-7235 (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--12442-7146 (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--12442-7077-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--12442-7077-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--12442-7077-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--13022-7608-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-15 (Normalise-Core-normaliseArgHoles (vector 0 ) arg-2 (vector 0 ) e-11 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 (vector 0 e-10 e-5)))) eta-0))))))))))))))))))
(define Metadata-Core-n--13196-7776-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-15 ((Context-Core-full_HasNames__Name arg-5 e-6) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-11) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-5 (vector 0 e-10 e-8)))) eta-0)))))))))))))))))))))))
(define Metadata-Core-n--13196-7775-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-15 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-7) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 e-5))) eta-0)))))))))))))))
(define Metadata-Core-n--13196-7777-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-15 ((Context-Core-full_HasNames__Name arg-5 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-5 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6)) eta-0)))))))))))))))))
(define Metadata-Core-toBuf_TTC__TTMFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 ((Binary-Utils-toBuf_TTC__String arg-0 "TTM") ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__FC arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__FC arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__FC arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Nat arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-0)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-0))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__FC arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 2))) e-1)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__FC arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Nat arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-0)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-0))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__FC arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2)) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-1))))) arg-1256 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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--13196-7775-fullLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--13196-7776-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--13196-7776-fullTy e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Metadata-Core-n--13196-7777-fullHLHS e-4 e-3 e-2 e-1 e-0 arg-0 eta-1)) e-4) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)) eta-0))))))))))))))))))))))))))))))
(define Metadata-Core-fromBuf_TTC__TTMFile (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__String arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((sc1 (Prelude-C-47C-61_Eq__String e-5 "TTM"))) (cond ((equal? sc1 0) (Binary-Utils-corrupt 'erased "TTM header" ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Binary-Utils-fromBuf_TTC__Int arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Binary-Core-checkTTCVersion "" e-7 (Binary-Core-ttcVersion)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Metadata-Core-fromBuf_TTC__Metadata arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 e-9)) ext-0))))))))))))))))))))))))))
(define Metadata-Core-fromBuf_TTC__Metadata (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__FC arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__FC arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__FC arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Nat arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-0)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-0))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__FC arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__FC arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Nat arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-0)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-0))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__FC arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Nat arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1258 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-1259 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 (vector 0 ) e-8)) ext-0)))))))))))))))))))))))
(define Metadata-Core-__Impl_TTC_TTMFile (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-1256 eta-0))))))
(define Metadata-Core-writeToTTM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Metadata-Core-normaliseTypes arg-1 arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Binary-Utils-initBinary ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 ((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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased e-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Binary-Utils-writeToFile arg-2 e-10 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0))))))))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-getFullName arg-0 arg-2) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (lhs) (lambda (eta-0) (let ((act-17 (IORef-Data-writeIORef 'erased 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)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-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)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Metadata-Core-readMetadata (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (Binary-Utils-readFromFile arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Metadata-Core-fromBuf_TTC__TTMFile e-6 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) ext-0))))))))))))))) (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-15 (let ((act-15 (Binary-Utils-readFromFile arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-2 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Metadata-Core-fromBuf_TTC__TTMFile e-6 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (IORef-Data-writeIORef 'erased arg-0 (let ((sc4 e-7)) (let ((e-1 (vector-ref sc4 2))) e-1)) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))))))))))))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Metadata-Core-n--13022-7608-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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (IORef-Data-writeIORef 'erased 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)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) ext-0))))))))
(define Metadata-Core-findTyDeclAt (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Metadata-Core-findEntryWith 'erased arg-1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)))) ext-0))))))))
(define Metadata-Core-findLHSAt (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) ext-0))))))))
(define Metadata-Core-findHoleLHS (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) ext-0))))))))
(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--12882-7483 '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-15 (Metadata-Core-readMetadata arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn (Metadata-Core-show_Show__Metadata e-5) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-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)))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define Metadata-Core-addTyDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-getFullName arg-1 arg-4) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Metadata-Core-addNameType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-getFullName arg-1 arg-4) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Metadata-Core-addLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--12442-7077-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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Record-Elab-TTImp-case--15731-15387 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0))))))
(define Record-Elab-TTImp-case--15472-15319 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0))))))))))))))
(define Record-Elab-TTImp-case--15472-15191 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--15472-15108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--15287-14954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (Record-Elab-TTImp-genFieldName arg-10 "__fld" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-6 arg-2 (vector 30 arg-6 1) (vector 1 (Record-Elab-TTImp-n--15287-14932-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 )))) eta-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--15024-14720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 (Record-Elab-TTImp-replace arg-0 e-5 arg-2))) eta-0))))))))) (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--14977-14685 (lambda (arg-0 arg-1 arg-2 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--15024-14720 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-0 e-1))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 arg-2)) eta-0)))))))
(define Record-Elab-TTImp-case--14713-14646 (lambda (arg-0 arg-1 arg-2 arg-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Record-Elab-TTImp-findFields e-5 arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15024-14720 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-0 e-2)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 arg-2)) eta-0))))))))))))))))) (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--14806-14528 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((Record-Elab-TTImp-n--14713-14447-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14713-14495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (Record-Elab-TTImp-findFields arg-10 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Record-Elab-TTImp-n--14713-14447-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--14651-14365 (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--14602-14336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9))))))))))))))
(define Record-Elab-TTImp-case--14470-14267 (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-15 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Record-Elab-TTImp-n--14470-14178-getExpNames arg-0 arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Record-Elab-TTImp-case--14473-14204 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (Name-Core-nameRoot arg-6) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) arg-3)) arg-8)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) eta-0)))))))
(define Record-Elab-TTImp-case--14419-14137 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-11)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Record-Elab-TTImp-n--15287-14932-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--14713-14447-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 (Record-Elab-TTImp-genFieldName arg-8 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Record-Elab-TTImp-n--14713-14447-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-6 (vector 0 e-5 (vector 0 arg-7 (vector 1 e-5)))) e-8)) eta-0)))))))))))))))))))))
(define Record-Elab-TTImp-n--14470-14178-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-15 (let ((act-15 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Record-Elab-TTImp-n--14470-14178-getExpNames arg-0 arg-1 e-5) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (Name-Core-nameRoot e-2) (Record-Elab-TTImp-getRecordType 'erased (vector 0 ) e-8)) e-5)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--14651-14365 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Normalise-Core-getNF 'erased arg-1 arg-11) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Record-Elab-TTImp-case--15287-14954 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) ((55) (let ((e-5 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-5))) ((56) (let ((e-8 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-8))) ((57) (let ((e-11 (vector-ref sc0 3))) (Record-Elab-TTImp-needType e-11))) ((58) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Record-Elab-TTImp-getSides arg-0 arg-1 arg-2 e-2 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 arg-1 (Prelude-show_Show__Int (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10))))) ext-0))))))))))))
(define Record-Elab-TTImp-findPath (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-4 (arg-6 e-4))) eta-0))))(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--14713-14646 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Record-Elab-TTImp-findConName e-5 e-10 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (Record-Elab-TTImp-findFields e-5 e-1 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 ((Record-Elab-TTImp-n--14713-14447-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-18)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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--14713-14646 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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--14713-14646 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-2 e-7)))))))))))))))
(define Record-Elab-TTImp-findFields (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-lookupTyExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 ((Normalise-Core-nf (vector 0 ) arg-0 (vector 0 ) e-1) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Record-Elab-TTImp-n--14470-14178-getExpNames arg-1 arg-0 e-6) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-7)) ext-0)))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define Record-Elab-TTImp-findConName (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-lookupDefExact arg-1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-11)) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) ext-0)))(else (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) ext-0))))))))))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Record-Elab-TTImp-case--15472-15108 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-16 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Normalise-Core-getTerm 'erased e-5) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 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 6 ))))) ((1) (let ((e-1 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 1 e-1)) (vector 9 arg-1 (vector 7 ))))) ((2) (let ((e-2 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 2 e-2)) (vector 9 arg-1 (vector 8 ))))) ((3) (let ((e-3 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 3 e-3)) (vector 9 arg-1 (vector 9 ))))) ((4) (let ((e-4 (vector-ref sc0 1))) (vector 0 (vector 9 arg-1 (vector 4 e-4)) (vector 9 arg-1 (vector 10 ))))) ((5) (vector 0 (vector 9 arg-1 (vector 5 )) (vector 9 arg-1 (vector 11 )))) ((6) (vector 0 (vector 9 arg-1 (vector 6 )) (vector 11 arg-1))) ((7) (vector 0 (vector 9 arg-1 (vector 7 )) (vector 11 arg-1))) ((8) (vector 0 (vector 9 arg-1 (vector 8 )) (vector 11 arg-1))) ((9) (vector 0 (vector 9 arg-1 (vector 9 )) (vector 11 arg-1))) ((10) (vector 0 (vector 9 arg-1 (vector 10 )) (vector 11 arg-1))) (else (vector 0 (vector 9 arg-1 (vector 11 )) (vector 11 arg-1)))))))
(define Local-Elab-TTImp-case--14984-12866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 arg-5 (vector 0 (vector 1 arg-4) (vector 0 (List-Data-reverse 'erased arg-3) (lambda (fc) (lambda (nt) arg-19))))) arg-8)))
(define Local-Elab-TTImp-case--14984-12631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14951-12593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14984-12631 arg-0 arg-1 arg-2 arg-3 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-15 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-14 arg-6 arg-7 name arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3))))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Normalise-Core-logTermNF arg-0 arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "To") arg-7 e-5 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((nestC-39 (vector 1 (vector 0 arg-5 (vector 0 (vector 1 arg-4) (vector 0 (List-Data-reverse 'erased arg-3) (lambda (fc) (lambda (nt) e-5))))) 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--14868-12514 (lambda (arg-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))) (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))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Case Local failed") eta-0)))))))
(define Local-Elab-TTImp-case--14168-12452 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (List-Prelude-C-43C-43 'erased arg-16 arg-6)))
(define Local-Elab-TTImp-case--14168-12404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 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--14168-12344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 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-20 e-9)))))))))))))
(define Local-Elab-TTImp-case--14189-12141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14188-12094 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9))))))))))))))
(define Local-Elab-TTImp-case--14187-11934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--14168-11904-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--14168-11904-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--14168-11907-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--14168-11906-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--14168-11909-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--14168-11907-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--14168-11906-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--14168-11908-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--14168-11908-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--14168-11906-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--14168-11907-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--14168-11906-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--14168-11906-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--14189-12141 arg-0 arg-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-14 arg-13))))
(define Local-Elab-TTImp-n--14168-11904-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--14187-11934 arg-0 arg-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased e-4))))))))))
(define Local-Elab-TTImp-n--14168-11905-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-10 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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 (Prelude-C-43_Num__Int e-6 (Prelude-fromInteger_Num__Int 1)) e-7 e-8 e-9)))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 ((Context-Core-inCurrentNS arg-12 nestedName_in) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Context-Core-addName arg-12 e-7) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-14 (vector 0 (vector 1 e-7) (vector 0 (Env-Core-namesNoLet 'erased arg-0 arg-5) (lambda (fc) (lambda (nt) (UnifyState-Core-applyTo arg-0 fc (vector 1 fc nt (vector 9 e-8)) arg-5))))))) ext-0)))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Local-Elab-TTImp-case--14868-12514 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) (let ((defNames (TTImp-TTImp-definedInBlock (vector 0 ) arg-10))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Local-Elab-TTImp-n--14168-11905-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-1 eta-2))) (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) defNames)) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((nestC-39 (List-Prelude-C-43C-43 'erased e-6 arg-7))) (let ((envC-39 (Local-Elab-TTImp-n--14168-11904-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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((olddelayed (let ((sc3 e-7)) (let ((e-8 (vector-ref sc3 9))) e-8)))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased arg-3 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-11 (vector-ref sc3 7))) (let ((e-10 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-12 e-11 e-10 (vector 0 ) e-9))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Check-Elab-TTImp-processDecl arg-0 arg-1 arg-2 arg-3 (vector 0 ) nestC-39 envC-39 eta-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Local-Elab-TTImp-n--14168-11909-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-1)) arg-10)) eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-3 (let ((sc6 e-10)) (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-15 (vector-ref sc6 6))) (let ((e-14 (vector-ref sc6 7))) (let ((e-13 (vector-ref sc6 8))) (let ((e-11 (vector-ref sc6 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-15 e-14 e-13 olddelayed e-11))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-11 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--14984-12631 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-17 ((Local-Elab-TTImp-getLocalTerm arg-0 arg-1 arg-9 arg-8 name arg-12) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-12))))) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "To") arg-8 e-7 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((nestC-39 (vector 1 (vector 0 arg-10 (vector 0 (vector 1 arg-11) (vector 0 (List-Data-reverse 'erased arg-12) (lambda (fc) (lambda (nt) e-7))))) 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 Lazy-Elab-TTImp-case--14844-14534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 e-2 arg-14) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-3))) eta-0)))))(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--14798-14492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-3 e-6 e-2) (Normalise-Core-glueBack arg-0 arg-12 arg-4 e-4))) eta-0))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Forcing a non-delayed type") eta-0)))))))))))))))
(define Lazy-Elab-TTImp-case--14569-14313 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getNF 'erased arg-11 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))
(define Lazy-Elab-TTImp-case--14438-14255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Normalise-Core-getNF 'erased arg-11 e-4) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-18 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Can't infer delay type") eta-0)))))))))))
(define Lazy-Elab-TTImp-case--14438-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (Unify-Core-inLHS))(else (Unify-Core-inTermP 1))))))
(define Lazy-Elab-TTImp-case--14350-14096 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 6 arg-4 arg-3 e-2) e-3)) eta-0)))))))
(define Lazy-Elab-TTImp-n--14438-14149-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (gty) (lambda (eta-0) (let ((act-16 ((Normalise-Core-getNF 'erased arg-1 gty) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Normalise-Core-glueBack arg-0 e-5 arg-8 (vector 5 arg-9 (vector 2 ) e-6)))) eta-0))))))))) arg-11) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18 ((Normalise-Core-getNF 'erased arg-1 e-3) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 8 arg-9 e-9 e-2) (Normalise-Core-glueBack arg-0 e-5 arg-8 e-4))) ext-0))))(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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 6 arg-9 arg-10 e-2) e-3)) ext-0)))))))))))
(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-15 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-15 (UnifyState-Core-genName arg-1 arg-3 "delayTy" eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-8 e-6)) eta-0))))))))))))) (lambda () (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-0) eta-1)))) arg-11) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Lazy-Elab-TTImp-case--14438-14169 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-16 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--14438-14149-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-17 ((Normalise-Core-getNF 'erased arg-1 e-5) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-20 ((Normalise-Core-getNF 'erased arg-1 e-4) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-21 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))))(else (let ((act-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--18685-18626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--18755-18568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18755-18459 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--18755-18357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18755-18283 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--18755-18175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--18685-17968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (Unify-Core-solveConstraints arg-12 arg-10 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--18755-18459 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Unify-Core-solveConstraintsAfter arg-12 arg-10 arg-19 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--18755-18357 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-10 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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))))))))))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))))))))))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (Unify-Core-checkDots arg-10 arg-12 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (Context-Core-logTerm arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (Normalise-Core-logTermNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-5 e-2 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 ((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Check-Elab-TTImp-clearToBind 'erased arg-9 arg-17 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-25 (let ((act-25 (IORef-Data-writeIORef 'erased 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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-27 (let ((act-27 (IORef-Data-readIORef 'erased arg-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) eta-0)))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-2 eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-0 e-17 arg-5 e-16 eta-0))) (let ((sc15 act-29)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-29 ((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-29)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (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--18195-17720 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18195-17607 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ImplicitBind-Elab-TTImp-case--18129-17457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--18195-17607 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--18055-17407 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ImplicitBind-Elab-TTImp-case--18195-17607 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 e-6 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((ImplicitBind-Elab-TTImp-n--17689-17047-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((tm (Check-Elab-TTImp-bindingTerm 'erased e-2))) (let ((ty (Check-Elab-TTImp-bindingType 'erased e-2))) (let ((act-16 (Metadata-Core-addNameType arg-0 arg-11 arg-10 arg-3 (vector 1 arg-2) arg-4 ty eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--17689-17343 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-8 arg-12 (vector 1 arg-2)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Check-Elab-TTImp-notePatVar 'erased arg-8 n eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) ((ImplicitBind-Elab-TTImp-case--18055-17407 arg-0 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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--17689-17278 (lambda (arg-0 arg-1 arg-2 arg-3 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--16858-16988 (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--16858-16941 (lambda (arg-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--16880-16709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16858-16299-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--17072-16529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 ((ImplicitBind-Elab-TTImp-n--16858-16298-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ImplicitBind-Elab-TTImp-n--16858-16297-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-19 e-6) e-5)) eta-0))))))))))))) (else (ImplicitBind-Elab-TTImp-n--16858-16298-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--16879-16478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (UnifyState-Core-isCurrentHole arg-6 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--17072-16529 arg-0 arg-1 arg-2 arg-3 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--16858-16298-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--16858-16298-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--16879-16362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--16858-16298-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-15 ((ImplicitBind-Elab-TTImp-n--16858-16298-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ImplicitBind-Elab-TTImp-n--16858-16297-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (vector 3 arg-10 arg-9) e-6) e-5)) eta-0)))))))))))))))))
(define ImplicitBind-Elab-TTImp-case--16798-16243 (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-15 (Context-Core-updateDef arg-2 arg-0 (lambda (eta-1) (vector 1 (vector 10 ))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (UnifyState-Core-removeHoleName arg-2 arg-1 arg-0 eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ImplicitBind-Elab-TTImp-case--16225-16092 (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--16225-15763-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--16242-16015 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--16302-15865 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16242-15814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16040-15616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15743-15363 (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--15612-15291 (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--15207-14934 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14901-14849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (let ((act-15 (Normalise-Core-normaliseHoles arg-10 arg-18 arg-11 arg-14 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-n--14882-14574-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-logTerm arg-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ImplicitBind-Elab-TTImp-case--14919-14741 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14900-14595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (Context-Core-toFullNames 'erased arg-6 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (UnifyState-Core-genVarName arg-6 arg-3 (Name-Core-nameRoot arg-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((pC-39 (TT-Core-forgetDef 'erased 'erased arg-13))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-embedSub 'erased 'erased arg-11 e-6)) eta-0))))))))))))))))))))))))))))
(define ImplicitBind-Elab-TTImp-case--14563-14450 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (TT-Core-apply 'erased arg-6 (TT-Core-embedSub 'erased 'erased arg-11 e-5) (ImplicitBind-Elab-TTImp-n--14563-14338-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)))) eta-0)))))))))))))
(define ImplicitBind-Elab-TTImp-case--14563-14300 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-3 e-3))) eta-0)))))))
(define ImplicitBind-Elab-TTImp-case--14350-14099 (lambda (arg-0 arg-1 arg-2 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (TT-Core-embedSub 'erased 'erased arg-10 e-5) (TT-Core-embedSub 'erased 'erased arg-10 e-2))) eta-0))))))))))))))
(define ImplicitBind-Elab-TTImp-n--16225-15763-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--16225-15763-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--16225-15763-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--16225-15763-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--15515-15168-swapP (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-7)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-7 1))) (+ 1 (+ 1 e-0))))))))
(define ImplicitBind-Elab-TTImp-n--16858-16298-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--16879-16362 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (vector 3 e-8 e-9) arg-10)) eta-0))))))))))(else (lambda (eta-0) (let ((act-15 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 (Check-Elab-TTImp-bindingTerm 'erased e-7) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) ((ImplicitBind-Elab-TTImp-case--16879-16478 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--16858-16297-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-15 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 e-1 e-2 e-3 e-5)) eta-0)))))))))))) (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-15 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles arg-1 arg-9 arg-2 e-10 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-1 e-6 e-7 e-8 e-11 e-12)) eta-0))))))))))))))))))))))
(define ImplicitBind-Elab-TTImp-n--16726-16175-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-15 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 arg-0 e-5 e-6 e-7 e-9))) eta-0)))))))))))) (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-15 ((ImplicitBind-Elab-TTImp-normaliseHolesScope arg-0 arg-5 arg-4 e-13) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 1 arg-0 e-10 e-11 e-12 e-5 e-14))) eta-0))))))))))))))))))))
(define ImplicitBind-Elab-TTImp-n--14882-14575-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-15 (Context-Core-lookupDefExact e-2 (let ((sc7 arg-8)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (let ((act-16 (Normalise-Core-normaliseHoles e-10 arg-8 e-14 e-26 eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc10 1))) ((ImplicitBind-Elab-TTImp-n--14882-14574-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-16)) (case (vector-ref sc10 0) ((0) (let ((e-9 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-17 (Context-Core-logTerm e-10 arg-6 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Added unbound implicit") e-9 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((act-18 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-18)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))
(define ImplicitBind-Elab-TTImp-n--14563-14338-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--14563-14338-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--14882-14574-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--14900-14595 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--16160-15707-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--16160-15707-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--16160-15707-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--16160-15707-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--16160-15707-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--17689-17046-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13))))))
(define ImplicitBind-Elab-TTImp-n--16858-16299-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--16880-16709 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 used)))))))))))))))))
(define ImplicitBind-Elab-TTImp-n--16225-15764-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--16242-15814 '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--16225-15764-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--16242-16015 '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--16225-15764-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--16858-16300-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--16858-16299-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--16858-16300-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--17689-17047-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--17689-17046-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ImplicitBind-Elab-TTImp-n--14563-14339-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--14563-14339-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--15743-15363 '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--15515-15168-swapP 'erased 'erased 'erased 'erased e-0 'erased '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--15612-15291 '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--16040-15616 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 e-3 e-5)) eta-0))))))))))))(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-4 (vector 0 e-3 e-3))) eta-0)))))))))))(else (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--14563-14450 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--14563-14339-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((ImplicitBind-Elab-TTImp-case--14350-14099 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (UnifyState-Core-genName arg-2 arg-3 (Strings-Prelude-C-43C-43 "type_of_" (Name-Core-nameRoot arg-6)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-6 (vector 11 arg-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (TT-Core-embedSub 'erased 'erased sub e-10) (TT-Core-embedSub 'erased 'erased sub e-7))) eta-0)))))))))))))))))))))))))))))))))))))
(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--16160-15707-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (Context-Core-updateDef arg-0 arg-2 (lambda (eta-0) (vector 1 (vector 10 ))) ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (UnifyState-Core-removeHoleName arg-0 arg-1 arg-2 ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((ImplicitBind-Elab-TTImp-bindUnsolved arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (Builtin-fst 'erased 'erased x) arg-8))) (let ((sc5 e-9)) (let ((e-17 (vector-ref sc5 6))) e-17)))))) (let ((act-20 ((ImplicitBind-Elab-TTImp-n--16858-16298-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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--16858-16300-depSort arg-8 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 hnames e-10))) (let ((act-21 (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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (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-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased resC-39) eta-0)))))))))))))))))))))))))))))))))))))))))))))
(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--17689-17343 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--17689-17278 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-4 (Check-Elab-TTImp-updateEnv 'erased arg-0 arg-8 (vector 0 ) (vector 0 ) e-5) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-getNextEntry arg-1 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19 (Unify-Core-solveConstraints arg-1 arg-3 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--18755-18459 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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Unify-Core-solveConstraintsAfter arg-1 arg-3 e-7 (let ((_-0 (vector 0 e-2 e-3))) (ImplicitBind-Elab-TTImp-case--18755-18357 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-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) ext-0)))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased err eta-0)))))))))))) ext-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (Unify-Core-checkDots arg-3 arg-1 ext-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-24 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Binding names") e-2 ext-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-25 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") arg-8 e-2 ext-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-26 ((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-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-27 (Check-Elab-TTImp-clearToBind 'erased arg-4 dontbind ext-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-28 (let ((act-28 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) ext-0)))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-29 (let ((act-29 (IORef-Data-writeIORef 'erased 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))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-29) ext-0)))) (let ((sc15 act-29)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-30 ((Normalise-Core-getTerm 'erased e-3) ext-0))) (let ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-31 (let ((act-31 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-31) ext-0)))) (let ((sc17 act-31)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-32 (let ((act-32 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-2 ext-0))) (let ((sc18 act-32)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-33 (Normalise-Core-normaliseHoles arg-0 e-21 arg-8 e-20 ext-0))) (let ((sc19 act-33)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-32)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-33 ((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-33)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--14882-14575-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-6 arg-7)) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ImplicitBind-Elab-TTImp-n--16726-16175-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))))))))
(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--16225-15763-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--16225-15764-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--14430-12173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14))) eta-0)))))))))))))))))))
(define Hole-Elab-TTImp-case--14168-12127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Context-Core-addUserHole arg-11 arg-15 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-15 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-4 arg-14))) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-15) eta-0)))))))))))
(define Hole-Elab-TTImp-case--14207-11975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 arg-1)) eta-0)))))))))))))))))))
(define Hole-Elab-TTImp-case--14168-11928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-4))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (Context-Core-addUserHole arg-11 arg-12 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 arg-1)) eta-0)))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-12) eta-0)))))))))))
(define Hole-Elab-TTImp-checkHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (let ((act-18 ((Normalise-Core-getTerm 'erased e-1) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-19 ((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-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-20 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (Context-Core-addUserHole arg-1 e-5 eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 eta-0))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 e-1)) eta-0))))))))))))))))))))))))))))(else (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-5) eta-0))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (UnifyState-Core-genName arg-1 arg-3 (Strings-Prelude-C-43C-43 "type_of_" arg-10) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((envC-39 (Env-Core-letToLam 'erased arg-8))) (let ((act-16 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) envC-39 e-5 (vector 11 arg-9) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Context-Core-inCurrentNS arg-1 (vector 1 arg-10)) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((act-20 ((Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 e-6) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (let ((e-2 (vector-ref sc7 1))) (let ((e-3 (vector-ref sc7 2))) (let ((act-21 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (Context-Core-addUserHole arg-1 e-7 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))) eta-0))))))))))))))))))))))(else (let ((act-20 (Context-Core-log arg-1 (+ 1 0) (lambda () (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) " already defined")) eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-9 e-7) eta-0))))))))))))))))))))))))))))))))))))))))
(define Dot-Elab-TTImp-case--14850-14218 (lambda (arg-0 arg-1 arg-2 arg-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--14850-14152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-5 e-2 arg-3 e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 arg-1)) eta-0)))))))))))))))))))))))))
(define Dot-Elab-TTImp-case--14812-14099 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (let ((act-16 (UnifyState-Core-genName arg-12 arg-10 "dotTm" eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased arg-1) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (UnifyState-Core-addDot arg-0 arg-10 arg-4 arg-5 e-6 e-2 arg-3 e-8 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8 arg-1)) eta-0)))))))))))))))))))))))))))))(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--14812-14099 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--18560-19427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () (lambda (eta-0) (let ((act-15 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) eta-0)))))))) (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--18560-19333 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-nf arg-0 e-9 arg-6 e-5) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) ((Case-Elab-TTImp-n--17776-18462-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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--18560-19180 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define Case-Elab-TTImp-case--17776-19126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--18560-19180 arg-0 arg-1 arg-2 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-9))))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Check-Elab-TTImp-handle 'erased arg-0 arg-13 arg-12 arg-11 arg-10 (lambda (eta-1) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) chrig))) eta-1))))))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () (lambda (eta-1) (let ((act-17 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-8) (vector 0 (Builtin-snd 'erased 'erased e-8) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) eta-1)))))))) (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-19 (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-19)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-nf arg-0 e-13 arg-6 e-11) eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc9 1))) ((Case-Elab-TTImp-n--17776-18462-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-21)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (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--17776-19063 (lambda (arg-0 arg-1 arg-2 arg-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) ((30) (Case-Elab-TTImp-n--17776-18465-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0)))))))
(define Case-Elab-TTImp-case--18138-18836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--17776-18463-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--17776-18465-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--17776-18465-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--18067-18765 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 (let ((act-15 ((Normalise-Core-nf (vector 0 ) arg-20 (vector 0 ) e-10) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) ((Case-Elab-TTImp-n--17776-18464-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-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--17776-18463-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--17776-18465-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--17776-18465-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--17776-18465-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--17776-18465-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--17776-18465-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--17776-18465-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--17801-18711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-1 (let ((sc2 e-5)) (let ((e-28 (vector-ref sc2 1))) e-28)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-10) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) ((Case-Elab-TTImp-n--17776-18464-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-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--17776-18463-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--17776-18465-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--17776-18465-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--17776-18465-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--17776-18465-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--17776-18465-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--17776-18465-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--17776-18465-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--17800-18587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((Normalise-Core-nf (vector 0 ) arg-19 (vector 0 ) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-18 e-5))) eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Case-Elab-TTImp-case--15757-18336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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) (let ((e-1 (vector-ref sc0 1))) (Normalise-Core-getTerm 'erased e-1)))(else (lambda (eta-0) (let ((act-15 (UnifyState-Core-genName arg-15 arg-13 "caseTy" eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0))))))))))))
(define Case-Elab-TTImp-case--16866-18241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-43)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 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--16866-18133 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 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-44 e-9)))))))))))))
(define Case-Elab-TTImp-case--16866-17985 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define Case-Elab-TTImp-case--15757-17678 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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 ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-9 (Case-Elab-TTImp-allow 'erased arg-23 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-23)))) (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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--16866-17985 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-3 e-2 _-0 casefnty e-5 e-6 e-7 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-11))) (vector 0 ) casefnty (vector 0 ) (vector 0 )) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Context-Core-setFlag arg-15 arg-9 (vector 9 e-8) (vector 4 (vector 2 )) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((caseRef (vector 1 arg-9 (vector 1 ) (vector 9 e-8)))) (let ((act-20 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Context-Core-setFlag arg-15 arg-9 arg-20 (vector 0 ) eta-2)))) arg-23) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-23))) (let ((altsC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-n--15757-16779-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-23 arg-8 arg-21 eta-1)) arg-2))) (let ((act-21 (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) (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-40ListC-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))))) 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) (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-40ListC-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))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (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-40ListC-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))))) 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) (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-40ListC-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))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Case-Elab-TTImp-getNestData 'erased eta-1)) arg-8)))) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 0)) (lambda () "Case application") arg-21 appTm eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((nestC-39 (vector 0 ))) (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-25 (let ((act-25 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-26 ((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-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-27 (let ((act-27 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) eta-0)))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-28 (let ((act-28 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) eta-0)))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 appTm (Normalise-Core-gnf arg-0 arg-21 e-2))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Case-Elab-TTImp-case--15787-17545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--15757-16775-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--15757-16778-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--15787-17478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-3 (vector-ref sc0 2))) (let ((argsC-39 (Case-Elab-TTImp-n--15757-16775-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-22 arg-18 e-3))) (let ((lhsC-39 (TTImp-TTImp-apply (vector 0 arg-19 arg-23) argsC-39))) (vector 1 arg-19 (Case-Elab-TTImp-n--15757-16778-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-21 lhsC-39) arg-17 arg-16)))))))
(define Case-Elab-TTImp-case--15787-17405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15757-16775-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--15757-16778-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 arg-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased eta-0)) arg-20) (List-Data-reverse 'erased e-2) arg-16)))))))))
(define Case-Elab-TTImp-case--15782-17197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--15781-17123 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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 30 arg-9 0)) e-3))))))))
(define Case-Elab-TTImp-case--15780-17000 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--15780-16904 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15695-16708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
(define Case-Elab-TTImp-case--15552-16622 (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--15511-16578 (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--15135-16199 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2))))))
(define Case-Elab-TTImp-n--15757-16776-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--15757-16776-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--15757-16776-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--15757-16776-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--15757-16776-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--15757-16779-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--15787-17405 arg-0 arg-1 arg-2 arg-3 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--15757-16773-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--15757-16776-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))) (Case-Elab-TTImp-case--15787-17478 arg-0 arg-1 arg-2 arg-3 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 e-5 e-4 e-3 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--15757-16773-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--15757-16776-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-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Case-Elab-TTImp-case--15787-17545 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-8 e-7 arg-19 arg-18 arg-17 arg-16 (Case-Elab-TTImp-n--15757-16773-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--15757-16776-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))))))))))
(define Case-Elab-TTImp-n--15757-16774-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--15757-16774-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--15511-16553-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--15757-16777-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 30 arg-17 1)) e-10)))))))))))))
(define Case-Elab-TTImp-n--15757-16775-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--15757-16774-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--17776-18465-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 arg-5 1)) 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-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Case-Elab-TTImp-case--17801-18711 arg-0 arg-1 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--17776-18465-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--17776-18464-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-15 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--17776-18464-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupTyExact e-7 (let ((sc1 arg-14)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-nf (vector 0 ) arg-14 (vector 0 ) e-1) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-7 e-11))) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Case-Elab-TTImp-n--15673-16699-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Case-Elab-TTImp-case--15695-16708 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-7 arg-5))))
(define Case-Elab-TTImp-n--15757-16772-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--15780-16904 arg-0 arg-1 arg-2 arg-3 arg-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) n arg-18)))))(else (Case-Elab-TTImp-case--15780-17000 arg-0 arg-1 arg-2 arg-3 arg-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-17 arg-18)))))))
(define Case-Elab-TTImp-n--17776-18462-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Case-Elab-TTImp-n--17776-18463-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-15 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) ((Case-Elab-TTImp-n--17776-18463-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 30 e-1 1)) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (((e-4 arg-14) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Case-Elab-TTImp-n--17776-18463-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 30 arg-5 1)) e-5) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-15) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-15) eta-0)))))))
(define Case-Elab-TTImp-n--15757-16778-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--15757-16777-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--15757-16773-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--15757-16772-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--15781-17123 arg-0 arg-1 arg-2 arg-3 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--15757-16773-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 (Prelude-C-43_Num__Int arg-17 1) 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--15135-16199 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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) (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))) (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--15511-16578 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--15511-16553-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((30) ((Case-Elab-TTImp-n--17776-18465-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((chrig (let ((_-0 (vector 0 e-2 e-3))) (Case-Elab-TTImp-case--18560-19180 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-5))))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-9) (vector 0 (Builtin-snd 'erased 'erased e-9) chrig))) eta-1))))))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () (lambda (eta-1) (let ((act-19 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-1))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-10) (vector 0 (Builtin-snd 'erased 'erased e-10) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) eta-1)))))))) (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-20 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-21 (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-21)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-23 (let ((act-23 ((Normalise-Core-nf arg-0 e-15 arg-8 e-13) eta-0))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc11 1))) ((Case-Elab-TTImp-n--17776-18462-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-23)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (UnifyState-Core-genVarName arg-1 arg-3 "scr" ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((splitOn (Case-Elab-TTImp-findScrutinee arg-0 env arg-10))) (let ((act-21 (let ((sc6 arg-15)) (case (vector-ref sc6 0) ((1) (let ((e-1 (vector-ref sc6 1))) ((Normalise-Core-getTerm 'erased e-1) ext-0)))(else (let ((act-21 (UnifyState-Core-genName arg-1 arg-3 "caseTy" ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-7 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) env e-11 (vector 11 arg-7) ext-0))))))))))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((ImplicitBind-Elab-TTImp-bindImplicits arg-0 arg-7 (let ((sc7 arg-6)) (let ((e-1 (vector-ref sc7 2))) e-1)) e-10 env e-6 e-11 (vector 11 arg-7)) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (let ((e-2 (vector-ref sc8 1))) (let ((e-3 (vector-ref sc8 2))) (let ((casefnty (Env-Core-abstractFullEnvType arg-0 arg-7 (Case-Elab-TTImp-allow 'erased splitOn 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-23 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) "Case env" env ext-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-24 (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 ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-25 (let ((sc11 (Prelude-not (List-Data-isNil 'erased e-6)))) (cond ((equal? sc11 0) ((Case-Elab-TTImp-findImpsIn (vector 0 ) arg-7 (vector 0 ) (vector 0 ) casefnty) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-26 (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--16866-17985 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 splitOn e-11 e-3 e-2 _-0 casefnty e-13 e-14 e-15 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-5))) (vector 0 ) casefnty (vector 0 ) (vector 0 )) ext-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-27 (Context-Core-setFlag arg-1 arg-7 (vector 9 e-16) (vector 4 (vector 2 )) ext-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((caseRef (vector 1 arg-7 (vector 1 ) (vector 9 e-16)))) (let ((act-28 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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 ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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--15757-16779-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-29 (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) (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-40ListC-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))))) 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) (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-40ListC-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))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (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-40ListC-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))))) 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) (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-40ListC-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))))) d-0 x-0))))) d x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-getNestData 'erased eta-0)) arg-8)))) ext-0))) (let ((sc15 act-29)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-30 (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 ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-31 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 0)) (lambda () "Case application") env appTm ext-0))) (let ((sc17 act-31)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((nestC-39 (vector 0 ))) (let ((act-32 (let ((act-32 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-32) ext-0)))) (let ((sc18 act-32)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-22 (vector-ref sc18 1))) (let ((olddelayed (let ((sc19 e-22)) (let ((e-24 (vector-ref sc19 9))) e-24)))) (let ((act-33 (let ((act-33 (IORef-Data-writeIORef 'erased arg-3 (let ((sc19 e-22)) (let ((e-0 (vector-ref sc19 1))) (let ((e-1 (vector-ref sc19 2))) (let ((e-29 (vector-ref sc19 3))) (let ((e-28 (vector-ref sc19 4))) (let ((e-4 (vector-ref sc19 5))) (let ((e-27 (vector-ref sc19 6))) (let ((e-26 (vector-ref sc19 7))) (let ((e-25 (vector-ref sc19 8))) (let ((e-23 (vector-ref sc19 10))) (vector 0 e-0 e-1 e-29 e-28 e-4 e-27 e-26 e-25 (vector 0 ) e-23))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-33) ext-0)))) (let ((sc19 act-33)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-34 ((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 ((sc20 act-34)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-35 (let ((act-35 (IORef-Data-readIORef 'erased arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-35) ext-0)))) (let ((sc21 act-35)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-25 (vector-ref sc21 1))) (let ((act-36 (let ((act-36 (IORef-Data-writeIORef 'erased arg-3 (let ((sc22 e-25)) (let ((e-0 (vector-ref sc22 1))) (let ((e-1 (vector-ref sc22 2))) (let ((e-32 (vector-ref sc22 3))) (let ((e-31 (vector-ref sc22 4))) (let ((e-4 (vector-ref sc22 5))) (let ((e-30 (vector-ref sc22 6))) (let ((e-29 (vector-ref sc22 7))) (let ((e-28 (vector-ref sc22 8))) (let ((e-26 (vector-ref sc22 10))) (vector 0 e-0 e-1 e-32 e-31 e-4 e-30 e-29 e-28 olddelayed e-26))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) ext-0)))) (let ((sc22 act-36)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 appTm (Normalise-Core-gnf arg-0 env e-2))) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Case-Elab-TTImp-bindCaseLocals (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (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 6 arg-0 e-6 (Maybe-Data-fromMaybe 'erased (lambda () e-6) e-10) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Case-Elab-TTImp-n--15673-16699-getNameFrom e-6 e-10 e-11 e-3 arg-3 arg-2 arg-0 eta-0)) (List-Data-reverse 'erased e-11)) (Case-Elab-TTImp-bindCaseLocals arg-0 e-3 arg-2 arg-3)))))))))))))))
(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 Utils-TTImp-case--13106-15942 (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--13106-15879-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define Utils-TTImp-case--13111-15914 (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 (Prelude-C-43_Num__Int e-3 1)))))))))
(define Utils-TTImp-case--13110-15887 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-0 arg-1)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Utils-TTImp-case--13043-15844 (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--13038-15818 (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--13043-15844 arg-0 e-2 e-3 (Prelude-unpack e-3))))))))))
(define Utils-TTImp-case--12701-15571 (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--12686-15554 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--12701-15571 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0))))))
(define Utils-TTImp-case--12434-15423 (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--12434-15377 (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--12434-15344 (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--12413-15321 (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--13106-15878-usedName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-0 arg-1)) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0)))))))))))
(define Utils-TTImp-n--13106-15879-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--13111-15914 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-15 (Utils-TTImp-n--13106-15878-usedName arg-2 arg-1 arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--13106-15879-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) ext-0)))))))))))
(define Utils-TTImp-substNamesTy (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2))))))))
(define Utils-TTImp-substNamesDecl (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesTy arg-0 arg-1 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-7)))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (Utils-TTImp-substNamesData arg-0 arg-1 e-10)))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 e-11 e-12 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-13))))))(else arg-2)))))
(define Utils-TTImp-substNamesData (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (Utils-TTImp-substNames arg-0 arg-1 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesTy arg-0 arg-1 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 e-6 (Utils-TTImp-substNames arg-0 arg-1 e-7))))))))))
(define Utils-TTImp-substNamesClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-1))) arg-0))) (vector 0 e-0 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-1) (Utils-TTImp-substNames boundC-39 arg-1 e-2))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (vector 1 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Utils-TTImp-findBindableNames 0 arg-0 (vector 0 ) e-4))) arg-0))) (vector 1 e-3 (Utils-TTImp-substNames (vector 0 ) (vector 0 ) e-4) (Utils-TTImp-substNames boundC-39 arg-1 e-5) e-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 2 e-7 (Utils-TTImp-substNames arg-0 (vector 0 ) e-8)))))))))
(define Utils-TTImp-substNames (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--12686-15554 e-1 e-0 arg-1 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-1 arg-0)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-5))) (vector 1 e-2 e-3 e-4 e-5 (Utils-TTImp-substNames arg-0 arg-1 e-6) (Utils-TTImp-substNames boundC-39 arg-1 e-7)))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-0) (lambda () (lambda (n) (vector 1 n arg-0))) e-11))) (vector 2 e-8 e-9 e-10 e-11 (Utils-TTImp-substNames arg-0 arg-1 e-12) (Utils-TTImp-substNames boundC-39 arg-1 e-13)))))))))) ((3) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (let ((boundC-39 (vector 1 e-16 arg-0))) (vector 3 e-14 e-15 e-16 (Utils-TTImp-substNames arg-0 arg-1 e-17) (Utils-TTImp-substNames arg-0 arg-1 e-18) (Utils-TTImp-substNames boundC-39 arg-1 e-19)))))))))) ((4) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 4 e-20 (Utils-TTImp-substNames arg-0 arg-1 e-21) (Utils-TTImp-substNames arg-0 arg-1 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClause arg-0 arg-1 eta-0)) e-23))))))) ((5) (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-25) arg-0))) (vector 5 e-24 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDecl arg-0 arg-1 eta-0)) e-25) (Utils-TTImp-substNames boundC-39 arg-1 e-26))))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 e-27 (Utils-TTImp-substNames arg-0 arg-1 e-28) (Utils-TTImp-substNames arg-0 arg-1 e-29)))))) ((9) (let ((e-30 (vector-ref sc0 1))) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 9 e-30 (Utils-TTImp-substNames arg-0 arg-1 e-31) e-32 (Utils-TTImp-substNames arg-0 arg-1 e-33))))))) ((10) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 e-34 (Utils-TTImp-substNames arg-0 arg-1 e-35) (Utils-TTImp-substNames arg-0 arg-1 e-36)))))) ((12) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 e-37 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNames arg-0 arg-1 eta-0)) e-39)))))) ((14) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 14 e-40 (Utils-TTImp-substNames arg-0 arg-1 e-41))))) ((17) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (vector 17 e-42 e-43 e-44 (Utils-TTImp-substNames arg-0 arg-1 e-45))))))) ((18) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 e-46 e-47 (Utils-TTImp-substNames arg-0 arg-1 e-48)))))) ((19) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 e-49 e-50 (Utils-TTImp-substNames arg-0 arg-1 e-51)))))) ((20) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 20 e-52 (Utils-TTImp-substNames arg-0 arg-1 e-53))))) ((21) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (vector 21 e-54 (Utils-TTImp-substNames arg-0 arg-1 e-55)))))(else arg-2)))))
(define Utils-TTImp-substLocTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 e-1 (Utils-TTImp-substLoc arg-0 e-2)))))))
(define Utils-TTImp-substLocDecl (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 arg-0 e-1 e-2 e-3 (Utils-TTImp-substLocTy arg-0 e-4))))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 arg-0 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-7))))) ((1) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 arg-0 e-9 (Utils-TTImp-substLocData arg-0 e-10))))) ((5) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 arg-0 e-12 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-13)))))(else arg-1)))))
(define Utils-TTImp-substLocData (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 arg-0 e-1 (Utils-TTImp-substLoc arg-0 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocTy arg-0 eta-0)) e-4))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 arg-0 e-6 (Utils-TTImp-substLoc arg-0 e-7)))))))))
(define Utils-TTImp-substLocClause (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 arg-0 (Utils-TTImp-substLoc arg-0 e-1) (Utils-TTImp-substLoc arg-0 e-2))))) ((1) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 1 arg-0 (Utils-TTImp-substLoc arg-0 e-4) (Utils-TTImp-substLoc arg-0 e-5) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-6)))))) (else (let ((e-8 (vector-ref sc0 2))) (vector 2 arg-0 (Utils-TTImp-substLoc arg-0 e-8))))))))
(define Utils-TTImp-substLoc (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (vector 0 arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (vector 1 arg-0 e-3 e-4 e-5 (Utils-TTImp-substLoc arg-0 e-6) (Utils-TTImp-substLoc arg-0 e-7)))))))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (vector 2 arg-0 e-9 e-10 e-11 (Utils-TTImp-substLoc arg-0 e-12) (Utils-TTImp-substLoc arg-0 e-13)))))))) ((3) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (let ((e-18 (vector-ref sc0 5))) (let ((e-19 (vector-ref sc0 6))) (vector 3 arg-0 e-15 e-16 (Utils-TTImp-substLoc arg-0 e-17) (Utils-TTImp-substLoc arg-0 e-18) (Utils-TTImp-substLoc arg-0 e-19)))))))) ((4) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (let ((e-23 (vector-ref sc0 4))) (vector 4 arg-0 (Utils-TTImp-substLoc arg-0 e-21) (Utils-TTImp-substLoc arg-0 e-22) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocClause arg-0 eta-0)) e-23)))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 5 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLocDecl arg-0 eta-0)) e-25) (Utils-TTImp-substLoc arg-0 e-26))))) ((8) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (vector 8 arg-0 (Utils-TTImp-substLoc arg-0 e-28) (Utils-TTImp-substLoc arg-0 e-29))))) ((9) (let ((e-31 (vector-ref sc0 2))) (let ((e-32 (vector-ref sc0 3))) (let ((e-33 (vector-ref sc0 4))) (vector 9 arg-0 (Utils-TTImp-substLoc arg-0 e-31) e-32 (Utils-TTImp-substLoc arg-0 e-33)))))) ((10) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (vector 10 arg-0 (Utils-TTImp-substLoc arg-0 e-35) (Utils-TTImp-substLoc arg-0 e-36))))) ((12) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (vector 12 arg-0 e-38 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substLoc arg-0 eta-0)) e-39))))) ((14) (let ((e-41 (vector-ref sc0 2))) (vector 14 arg-0 (Utils-TTImp-substLoc arg-0 e-41)))) ((17) (let ((e-43 (vector-ref sc0 2))) (let ((e-44 (vector-ref sc0 3))) (let ((e-45 (vector-ref sc0 4))) (vector 17 arg-0 e-43 e-44 (Utils-TTImp-substLoc arg-0 e-45)))))) ((18) (let ((e-47 (vector-ref sc0 2))) (let ((e-48 (vector-ref sc0 3))) (vector 18 arg-0 e-47 (Utils-TTImp-substLoc arg-0 e-48))))) ((19) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (vector 19 arg-0 e-50 (Utils-TTImp-substLoc arg-0 e-51))))) ((20) (let ((e-53 (vector-ref sc0 2))) (vector 20 arg-0 (Utils-TTImp-substLoc arg-0 e-53)))) ((21) (let ((e-55 (vector-ref sc0 2))) (vector 21 arg-0 (Utils-TTImp-substLoc arg-0 e-55))))(else arg-1)))))
(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--13038-15818 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--12413-15321 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (let ((sc2 e-41)) (case (vector-ref sc2 0) ((1) (let ((e-42 (vector-ref sc2 1))) (Utils-TTImp-case--12434-15344 e-42 e-40 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (vector 1 e-42) arg-1)) (lambda () (Utils-TTImp-lowerFirst e-42))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-5 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc3 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc2 4))) (let ((e-10 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((envC-39 (let ((sc3 e-9)) (case (vector-ref sc3 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc3 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc2 2))) (let ((e-14 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc2 2))) (let ((e-18 (vector-ref sc2 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc2 2))) (let ((e-21 (vector-ref sc2 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc2 3))) (let ((e-25 (vector-ref sc2 4))) (let ((sc3 e-24)) (case (vector-ref sc3 0) ((1) (let ((e-39 (vector-ref sc3 1))) (vector 1 (vector 0 e-39 (Utils-TTImp-getUnique arg-2 e-39)) (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))) ((12) (let ((e-38 (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-38)))(else (vector 0 ))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc2 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((envC-39 (let ((sc2 e-9)) (case (vector-ref sc2 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc2 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc1 2))) (let ((e-18 (vector-ref sc1 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc1 2))) (let ((e-21 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc1 3))) (let ((e-25 (vector-ref sc1 4))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((1) (let ((e-39 (vector-ref sc2 1))) (vector 1 (vector 0 e-39 (Utils-TTImp-getUnique arg-2 e-39)) (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))) ((12) (let ((e-38 (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-38)))(else (vector 0 ))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-6 (vector-ref sc1 1))) (vector 1 e-6 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-4) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-5))))))) ((2) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-9)) (case (vector-ref sc1 0) ((0) arg-1) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-1))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-10) (Utils-TTImp-findBindableNames 0 envC-39 arg-2 e-11))))))) ((8) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-13) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-14))))) ((9) (let ((e-16 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-16) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-18))))) ((10) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findBindableNames 1 arg-1 arg-2 e-20) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 e-21))))) ((17) (let ((e-24 (vector-ref sc0 3))) (let ((e-25 (vector-ref sc0 4))) (let ((sc1 e-24)) (case (vector-ref sc1 0) ((1) (let ((e-39 (vector-ref sc1 1))) (vector 1 (vector 0 e-39 (Utils-TTImp-getUnique arg-2 e-39)) (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))) ((12) (let ((e-38 (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findBindableNames arg-0 arg-1 arg-2 eta-0))) e-38)))(else (vector 0 )))))))))
(define Binders-Elab-TTImp-case--15991-15761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((14) (let ((e-2 (vector-ref sc0 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () (lambda (eta-0) (let ((act-15 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) eta-0)))))))) (lambda () (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16)))) eta-0)))))))) e-2)))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))) eta-0))))))))))))
(define Binders-Elab-TTImp-case--15991-15721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--16105-15640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-15 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))))))))
(define Binders-Elab-TTImp-case--15991-15550 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))))))
(define Binders-Elab-TTImp-case--15857-15446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Check-Elab-TTImp-handle 'erased arg-0 arg-15 arg-14 arg-13 arg-12 (lambda (eta-1) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))) eta-1))))))) (lambda (err) (let ((sc1 err)) (case (vector-ref sc1 0) ((14) (let ((e-5 (vector-ref sc1 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () (lambda (eta-1) (let ((act-15 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) eta-1)))))))) (lambda () (lambda (eta-1) (let ((act-15 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-rigMult arg-6 arg-16)))) eta-1)))))))) e-5)))(else (lambda (eta-1) (let ((act-15 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16) arg-10 arg-9 arg-8 arg-3 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-5) (vector 0 (Builtin-snd 'erased 'erased e-5) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-6 arg-16)))) eta-1))))))))))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 ((Binders-Elab-TTImp-weakenExp arg-5 arg-0 envC-39 arg-1) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-17 (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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-18 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))))))))))))))))))))))))))))))))
(define Binders-Elab-TTImp-case--15857-15358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-case--15476-15132 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34) (let ((sc0 arg-34)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Normalise-Core-logGlueNF (vector 1 arg-4 arg-0) arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") arg-31 e-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 arg-30 arg-29 arg-26) e-2) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 arg-30 arg-29 arg-26) e-7)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-22 (vector 2 arg-21 arg-29 arg-20) arg-23)))) eta-0))))))))))))))))))))
(define Binders-Elab-TTImp-case--15391-15010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) arg-6 arg-21))) (let ((envC-39 (vector 1 (vector 0 rigb e-5 e-2) arg-8))) (let ((act-16 ((Check-Elab-TTImp-convertP arg-0 arg-15 arg-13 arg-12 0 arg-7 arg-10 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-2) (Normalise-Core-gnf arg-0 arg-8 arg-20)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-17 (Check-Elab-TTImp-inScope 'erased arg-4 arg-0 arg-15 arg-12 arg-7 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-4 arg-0) arg-15 arg-14 arg-13 eC-39 arg-16 arg-10 nestC-39 envC-39 arg-2 (vector 1 (Normalise-Core-gnf (vector 1 arg-4 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-4 arg-23))))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 (Normalise-Core-logTermNF arg-0 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 arg-25 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-19 (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((act-20 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-15 arg-13 arg-12 arg-16 0 arg-10 arg-8 arg-7 (vector 3 arg-7 arg-4 (vector 0 rigb e-5 e-2) e-8) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-4 (vector 2 rigb e-5 e-2) e-11)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-7 arg-22 (vector 2 arg-21 e-5 arg-20) arg-23)))) eta-0)))))))))))))))))))))))))))))))))))))))
(define Binders-Elab-TTImp-case--15148-14948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-15 ((Check-Elab-TTImp-check arg-0 arg-15 arg-14 arg-13 arg-12 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc4 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) arg-6 e-6))) (let ((envC-39 (vector 1 (vector 0 rigb e-11 e-10) arg-8))) (let ((act-17 ((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-17)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-4 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-4 arg-9)))) (let ((act-18 (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-18)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (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-19 (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-19)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((act-20 (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-20)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((act-21 ((Normalise-Core-getTerm 'erased e-14) eta-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (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--15148-14856 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-case--15148-14767 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-case--14889-14604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-15 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14840-14517 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-19 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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--14776-14441 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) eta-0)))))))
(define Binders-Elab-TTImp-case--14590-14359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14544-14272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14445-14199 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-2)) eta-0))))))
(define Binders-Elab-TTImp-case--14350-14140 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--14350-14069-drop 'erased arg-1 arg-2 'erased arg-1)))
(define Binders-Elab-TTImp-case--14356-14092 (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--14350-14069-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--14350-14069-drop 'erased arg-1 arg-2 'erased arg-6)))))))
(define Binders-Elab-TTImp-n--14544-14247-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-n--14350-14069-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--14356-14092 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Normalise-Core-gnf (vector 1 arg-0 arg-1) arg-2 (TT-Core-weaken_Weaken__Term arg-0 arg-1 e-5)))) eta-0)))))))))))))
(define Binders-Elab-TTImp-inferLambda (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 ext-0) (let ((act-15 ((Binders-Elab-TTImp-findLamRig 'erased arg-1 arg-15) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) e-5 arg-10))) (let ((act-16 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-19 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) ext-0))) (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-20 (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-20)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) ext-0))) (else (let ((act-21 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-21)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Normalise-Core-nf arg-0 e-5 arg-2 arg-3) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getNF 'erased arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)) eta-0))))))))))))))))
(define Binders-Elab-TTImp-dropName (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--14350-14069-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-2)) eta-0)))))))))))))))
(define Binders-Elab-TTImp-checkPi (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((pirig (Binders-Elab-TTImp-n--14544-14247-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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--15857-15358 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-5)))) (lambda (eta-0) (let ((act-15 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((act-16 (Check-Elab-TTImp-handle 'erased arg-0 arg-1 arg-2 arg-3 arg-4 (lambda (eta-1) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))) eta-1))))))) (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((14) (let ((e-6 (vector-ref sc2 3))) (Semiring-Algebra-branchOne 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () (lambda (eta-1) (let ((act-16 (Delayed-Elab-TTImp-runDelays 'erased arg-0 arg-1 arg-2 arg-3 arg-4 0 (Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) eta-1)))))))) (lambda () (lambda (eta-1) (let ((act-16 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-7) (vector 0 (Builtin-snd 'erased 'erased e-7) (ZeroOneOmega-Algebra-rigMult arg-10 rigc)))) eta-1)))))))) e-6)))(else (lambda (eta-1) (let ((act-16 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-2))) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased e-6) (vector 0 (Builtin-snd 'erased 'erased e-6) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-10 rigc)))) eta-1))))))))))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Binders-Elab-TTImp-weakenExp arg-11 arg-0 envC-39 arg-15) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-18 (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-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (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-19 ((Normalise-Core-getTerm 'erased e-12) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))))))))))))))))))))))))))))))))))))))
(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--15148-14767 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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--15148-14856 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-5)))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Binders-Elab-TTImp-getTyNF arg-0 arg-1 arg-8 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc4 e-6)) (case (vector-ref sc4 0) ((3) (let ((e-1 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((e-3 (vector-ref sc4 3))) (let ((e-4 (vector-ref sc4 4))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((2) (let ((e-11 (vector-ref sc5 1))) (let ((e-10 (vector-ref sc5 2))) (let ((e-9 (vector-ref sc5 3))) (let ((act-18 ((Check-Elab-TTImp-check arg-0 arg-1 arg-2 arg-3 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-6 arg-7 arg-8 arg-13 (vector 1 (Normalise-Core-gType 'erased arg-9))) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (let ((exptynf (vector 3 e-1 e-8 (vector 2 e-11 e-10 e-9) e-4))) (let ((sc7 e-12)) (let ((e-14 (vector-ref sc7 1))) (let ((act-19 ((Binders-Elab-TTImp-checkPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 arg-6 arg-7 arg-8 arg-11 (vector 1 (Normalise-Core-gnf arg-0 arg-8 e-14))) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc8 1))) (let ((rigb (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) arg-10 e-11))) (let ((envC-39 (vector 1 (vector 0 rigb e-15 e-14) arg-8))) (let ((act-20 ((Check-Elab-TTImp-convertP arg-0 arg-1 arg-3 arg-4 0 arg-9 arg-6 arg-8 (Normalise-Core-gnf arg-0 arg-8 e-14) (Normalise-Core-gnf arg-0 arg-8 e-9)) eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((nestC-39 (TTImp-TTImp-weaken_Weaken__NestedNames arg-12 arg-0 (Binders-Elab-TTImp-dropName 'erased arg-12 arg-7)))) (let ((act-21 (Check-Elab-TTImp-inScope 'erased arg-12 arg-0 arg-1 arg-4 arg-9 envC-39 (lambda (eC-39) (Check-Elab-TTImp-check (vector 1 arg-12 arg-0) arg-1 arg-2 arg-3 eC-39 rig arg-6 nestC-39 envC-39 arg-14 (vector 1 (Normalise-Core-gnf (vector 1 arg-12 arg-0) envC-39 (TT-Core-renameTop 'erased 'erased arg-12 e-4))))) eta-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc10 1))) (let ((sc11 e-17)) (let ((e-19 (vector-ref sc11 1))) (let ((e-18 (vector-ref sc11 2))) (let ((act-22 (Normalise-Core-logTermNF arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Lambda type") arg-8 exptynf eta-0))) (let ((sc12 act-22)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((act-23 (Normalise-Core-logGlueNF (vector 1 arg-12 arg-0) arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Got scope type") envC-39 e-18 eta-0))) (let ((sc13 act-23)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((act-24 ((Normalise-Core-getTerm 'erased e-18) eta-0))) (let ((sc14 act-24)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc14 1))) ((Check-Elab-TTImp-checkExpP arg-0 arg-1 arg-3 arg-4 rig 0 arg-6 arg-8 arg-9 (vector 3 arg-9 arg-12 (vector 0 rigb e-15 e-14) e-19) (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 arg-12 (vector 2 rigb e-15 e-14) e-22)) (vector 1 (Normalise-Core-gnf arg-0 arg-8 (vector 3 arg-9 e-8 (vector 2 e-11 e-15 e-9) e-4)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0)))))))))(else (Binders-Elab-TTImp-inferLambda arg-0 arg-1 arg-2 arg-3 arg-4 rig arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 (vector 1 e-2) eta-0))))))))))))))))))))))))))
(define As-Elab-TTImp-case--15399-14790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14812-14085-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--14812-14085-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--15399-14700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 arg-5 arg-4 e-2 arg-20) arg-21)) eta-0))))))
(define As-Elab-TTImp-case--15322-14547 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-15 (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--14812-14085-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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--14812-14085-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--14812-14085-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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 ((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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((sc7 e-11)) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 arg-5 arg-4 e-12 arg-20) arg-21)) eta-0))))))))))))))))))))))))))))))))))
(define As-Elab-TTImp-case--15249-14491 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (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--14812-14085-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-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased 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--14812-14085-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--14812-14085-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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((act-20 ((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-20)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((sc9 e-13)) (let ((e-15 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 arg-5 arg-4 e-15 e-2) e-3)) eta-0))))))))))))))))))))))))))))))))))))))))))
(define As-Elab-TTImp-case--15177-14436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((Check-Elab-TTImp-check arg-0 arg-13 arg-12 arg-11 arg-10 (As-Elab-TTImp-n--14812-14083-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (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--14812-14085-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-17)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased 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--14812-14085-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--14812-14085-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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((act-21 ((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-21)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((sc11 e-14)) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 arg-5 arg-4 e-16 e-2) e-3)) eta-0)))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 35 arg-5 arg-3) eta-0)))))))
(define As-Elab-TTImp-case--14812-14376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-10 arg-14 arg-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Check-Elab-TTImp-notePatVar 'erased arg-10 n eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode (vector 1 e-0))) ((As-Elab-TTImp-case--15177-14436 arg-0 arg-1 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14836-14311 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-case--14836-14240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-case--14834-14168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-case--14834-14097 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-n--14812-14082-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--14834-14097 arg-0 arg-1 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-9))) (else (As-Elab-TTImp-case--14834-14168 arg-0 arg-1 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-9)))))))
(define As-Elab-TTImp-n--14812-14083-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--14812-14082-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--14812-14084-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--14836-14240 arg-0 arg-1 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-9))) (else (As-Elab-TTImp-case--14836-14311 arg-0 arg-1 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-9)))))))
(define As-Elab-TTImp-n--14812-14085-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--14812-14084-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Check-Elab-TTImp-noteLHSPatVar 'erased arg-4 elabmode arg-11) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Check-Elab-TTImp-notePatVar 'erased arg-4 n eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((elabmode-0 (vector 1 e-0))) ((As-Elab-TTImp-case--15177-14436 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) n (let ((sc4 e-5)) (let ((e-16 (vector-ref sc4 5))) e-16)))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--21363-19169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Normalise-Core-getNF 'erased arg-13 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--22057-18980 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--21363-18817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 ((Normalise-Core-getNF 'erased arg-14 e-7) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-fromIntegerName arg-14 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (Context-Core-fromStringName arg-14 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (Context-Core-fromCharName arg-14 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 ((App-Elab-TTImp-n--21363-18277-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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 (Context-Core-logC arg-14 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-14 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 (Normalise-Core-quote_Quote__NF arg-0 e-12 arg-7 e-5 eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-22 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-2))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-22 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 (Normalise-Core-normaliseHoles arg-0 e-12 arg-7 e-14 eta-2))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-15 eta-2))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-16)) eta-2))))))))))))))))))) arg-3) eta-1))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 ((Context-Core-getFullName arg-14 arg-1) eta-1))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (Context-Core-toFullNames 'erased arg-14 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-13 eta-1))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))))))))))))))))))))))) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--22057-18980 arg-0 arg-1 arg-2 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-1 arg-8))))) (let ((act-21 ((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-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (App-Elab-TTImp-n--21363-18276-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--21848-18706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--21419-18649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-18) eta-0)))))))
(define App-Elab-TTImp-case--21530-18421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normalise arg-15 e-5 arg-17 (Builtin-fst 'erased 'erased arg-16) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (Builtin-snd 'erased 'erased arg-16))) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-16) eta-0)))))))
(define App-Elab-TTImp-case--21465-18371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) ((26) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (App-Elab-TTImp-case--21530-18421 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--21363-18275-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-16) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-16) eta-0)))))))
(define App-Elab-TTImp-case--21418-18325 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--21465-18371 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-16) eta-0)))))))
(define App-Elab-TTImp-case--20989-18055 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-35) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-32) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (Normalise-Core-gnf arg-4 arg-11 arg-25))) eta-0)))))))))))))))))
(define App-Elab-TTImp-case--15535-17918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-18 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf arg-4 e-5 arg-11 arg-25) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 ((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-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--20989-18055 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15535-17752 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15535-17577 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--20432-17438 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--15535-17417-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--15535-17294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--20108-17157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15535-17136-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--15535-17014 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--19768-16877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--15535-16839-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--19436-16624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--15535-16557 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-15 (Normalise-Core-convert_Convert__NF arg-0 arg-23 arg-13 arg-4 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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--15535-16404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--18942-16233 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15535-16124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--18942-16233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--18942-16233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--18942-16233 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17166-15914 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-17 (((arg-8 e-6) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--17574-15560 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 (Context-Core-updateDef arg-21 (vector 9 arg-29) (lambda (eta-1) (vector 1 (vector 7 0 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 arg-42) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define App-Elab-TTImp-case--17770-15241 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-36) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-37) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--17574-15127 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((App-Elab-TTImp-case--17770-15241 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-36) eta-0)))))))
(define App-Elab-TTImp-case--17417-14967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-2) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--17574-15127 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((_-0 (vector 0 e-2 e-3))) ((App-Elab-TTImp-case--17574-15560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-9 arg-37)) eta-0))))))))))))))))))))))))))))))))))))))))
(define App-Elab-TTImp-case--17272-14844 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf arg-0 e-5 arg-13 arg-28) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-21 (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-21)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-22 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 arg-30 e-9) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-23 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--17574-15127 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-23)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-24 (let ((_-1 (vector 0 e-9 e-4))) ((App-Elab-TTImp-case--17574-15560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-24)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((act-25 (UnifyState-Core-removeHole arg-19 arg-29 eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 e-3)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define App-Elab-TTImp-case--17166-14725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-20 ((Normalise-Core-nf arg-0 e-10 arg-13 arg-28) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-21 (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-21)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-22 ((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-22)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (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-23 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-25 (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-25)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-26 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-15) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-27 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--17574-15127 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-27)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc15 1))) (let ((act-28 (let ((_-2 (vector 0 e-15 e-14))) ((App-Elab-TTImp-case--17574-15560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-28)) (case (vector-ref sc16 0) ((0) (let ((e-21 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((act-29 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc17 act-29)) (case (vector-ref sc17 0) ((0) (let ((e-22 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-20 e-4)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define App-Elab-TTImp-case--15529-14642 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-15 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs arg-22 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-19 (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (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-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-3)) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 ((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-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-24 ((Normalise-Core-nf arg-0 e-14 arg-13 e-7) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-25 (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-25)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc13 1))) (let ((act-26 ((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-26)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (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-27 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-28 (let ((act-28 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) eta-0)))) (let ((sc17 act-28)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-29 (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-29)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-30 ((Unify-Core-solveIfUndefined arg-0 arg-21 arg-19 arg-13 e-3 e-19) eta-0))) (let ((sc19 act-30)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-31 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--17574-15127 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-31)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-32 (let ((_-2 (vector 0 e-19 e-18))) ((App-Elab-TTImp-case--17574-15560 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-32)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((act-33 (UnifyState-Core-removeHole arg-19 e-2 eta-0))) (let ((sc22 act-33)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-24 e-4)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Context-Core-logC arg-21 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-2))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-17 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-toFullNames 'erased arg-21 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-7 eta-2))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-8)) eta-2)))))))))))))) arg-3) eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-19 (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((fntm (vector 4 arg-12 arg-11 e-2))) (let ((act-21 (((arg-8 e-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--15529-14535 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (lambda (eta-0) (let ((act-15 (((arg-8 arg-22) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 (vector 10 arg-12 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--16862-14417 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (App-Elab-TTImp-n--15527-14218-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)) eta-0)))))))
(define App-Elab-TTImp-case--16826-14395 (lambda (arg-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--16862-14417 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-3 (let ((sc1 e-1)) (let ((e-4 (vector-ref sc1 5))) e-4))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (App-Elab-TTImp-n--15527-14218-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)) eta-0)))))))
(define App-Elab-TTImp-case--15527-14362 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--16862-14417 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (App-Elab-TTImp-n--15527-14218-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1)) eta-0)))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define App-Elab-TTImp-case--16673-14222 (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) ((30) 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) ((30) 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--16460-14081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define App-Elab-TTImp-case--16411-14039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Normalise-Core-getNF 'erased arg-11 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((App-Elab-TTImp-concrete 'erased arg-9 arg-8 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define App-Elab-TTImp-case--15524-14003 (lambda (arg-0 arg-1 arg-2 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--16411-14039 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (let ((sc1 e-1)) (let ((e-7 (vector-ref sc1 8))) e-7))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define App-Elab-TTImp-case--15517-13801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define App-Elab-TTImp-case--15511-13568 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((UnifyState-Core-genMVName arg-21 arg-19 arg-10) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-13 arg-8 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-12 arg-11 e-9))) (let ((act-20 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-9)) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-18 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-18 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-16 (vector 2 ) arg-13 e-9 e-8 e-11) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-21 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-13 arg-9 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((fntm (vector 4 arg-12 arg-11 e-7))) (let ((act-18 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-7)) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15505-13321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-20 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-12 arg-8 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-20 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-9)) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-17 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-15 (vector 2 ) arg-12 e-9 e-8 e-11) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-20 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((UnifyState-Core-genMVName arg-20 arg-18 arg-9) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-12 arg-8 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Check-Elab-TTImp-searchVar arg-0 arg-20 arg-18 arg-11 arg-15 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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)))))))))))))))))))))))))))))))))))))))))))))))))) (vector 9 (let ((sc5 e-8)) (let ((e-2 (vector-ref sc5 2))) e-2))) arg-12 e-6 e-7 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-11 arg-10 e-9))) (let ((act-20 (((arg-7 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-12 e-9)) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 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-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))))))))))))))))))))))))))))))))))))))
(define App-Elab-TTImp-case--15073-12784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14937-12711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--15073-12784 arg-0 arg-1 arg-2 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--14847-12522-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (List-Prelude-C-43C-43 'erased (vector 0 ) 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expands to") tm eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 tm (vector 0 arg-13 (Normalise-Core-gnf arg-0 arg-3 tyenv)))) eta-0)))))))))))))))))))))))))))
(define App-Elab-TTImp-case--14937-12625 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 0 e-3))) eta-0)))))))
(define App-Elab-TTImp-case--14847-12593 (lambda (arg-0 arg-1 arg-2 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 0 e-3))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 ((Context-Core-lookupCtxtExact nC-39 (let ((sc4 e-7)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--15073-12784 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--14847-12522-useVars arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (List-Prelude-C-43C-43 'erased (vector 0 ) 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-17 ((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-17)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 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-18)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (Context-Core-logTerm arg-0 arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Expands to") tm eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (Context-Core-log arg-8 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Arg length " (Prelude-show_Show__Nat arglen))) eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 tm (vector 0 arglen (Normalise-Core-gnf arg-0 arg-3 tyenv)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))
(define App-Elab-TTImp-case--14547-12281 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--14352-12237 (lambda (arg-0 arg-1 arg-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-15 (let ((act-15 ((Context-Core-getFullName arg-7 e-6) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (App-Elab-TTImp-n--14293-12015-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-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--14547-12281 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)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) 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))))))))(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--14352-12160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (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--14293-12059 (lambda (arg-0 arg-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-15 (App-Elab-TTImp-n--14293-12015-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((binder (Env-Core-getBinder 'erased 'erased (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3112) (TT-Core-weaken_Weaken__Term n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Term vars ns arg-3116))))) arg-0 e-5 'erased arg-3))) (let ((bty (TT-Core-binderType 'erased binder))) (let ((act-16 (Metadata-Core-addNameType arg-0 arg-7 arg-6 arg-2 arg-1 arg-3 bty eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (let ((sc4 (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-6))) (cond ((equal? sc4 0) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 (IORef-Data-writeIORef 'erased 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))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 arg-2 (vector 1 (App-Elab-TTImp-n--14293-12014-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))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 ((Context-Core-getFullName arg-7 e-8) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 (App-Elab-TTImp-n--14293-12015-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-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--14547-12281 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)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) 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)))))))(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--14181-11933 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--14168-11903 (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-15 (Context-Core-isAllPublic arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-getNS arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-getNestedNS arg-4 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 0)) ((App-Elab-TTImp-case--14181-11933 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--14847-12522-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--14847-12522-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--14847-12522-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--14847-12522-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--14847-12522-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--15535-17417-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--20432-17438 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--15535-17417-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--15535-17417-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--15535-17136-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--20108-17157 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15535-17136-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--15535-17136-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--15535-16839-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--19768-16877 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15535-16839-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--15535-16839-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--21363-18277-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) ((26) (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-15 ((Context-Core-getFullName arg-14 arg-17) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) ((App-Elab-TTImp-case--21419-18649 arg-0 arg-1 arg-2 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--21363-18274-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-19) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-19) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-19) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-19) eta-0)))))))
(define App-Elab-TTImp-n--14293-12015-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-15 ((Context-Core-getFullName arg-7 arg-1) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define App-Elab-TTImp-n--15535-17716-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) ((30) 1) ((17) (let ((e-9 (vector-ref sc1 4))) (App-Elab-TTImp-n--15535-17716-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--21363-18276-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-15 ((Context-Core-getFullName arg-14 arg-1) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((App-Elab-TTImp-case--21418-18325 arg-0 arg-1 arg-2 arg-3 arg-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--21363-18274-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--15511-13558-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--15505-13311-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--21363-18274-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--21363-18274-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--14293-12014-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--15527-14218-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) ((30) 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) ((30) 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--21363-18275-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) (Prelude-fromInteger_Num__Integer 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((26) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define App-Elab-TTImp-needsDelayExpr (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (let ((e-1 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-1 (let ((sc3 e-5)) (let ((e-28 (vector-ref sc3 1))) e-28))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)) ((1) (let ((e-3 (vector-ref sc4 2))) (let ((sc5 e-3)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))))))) ((8) (let ((e-3 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-3))) ((9) (let ((e-6 (vector-ref sc1 2))) (App-Elab-TTImp-needsDelayExpr arg-0 0 e-6))) ((4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((12) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((13) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((UnifyState-Core-genMVName arg-1 arg-3 arg-12) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-7 arg-9 arg-13 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((fntm (vector 4 arg-10 arg-11 e-9))) (let ((act-20 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 e-9)) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((sc7 (let ((sc8 arg-7)) (let ((e-12 (vector-ref sc8 4))) e-12)))) (cond ((equal? sc7 0) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (IORef-Data-writeIORef 'erased arg-4 (Check-Elab-TTImp-addBindIfUnsolved arg-0 e-6 arg-6 (vector 0 ) arg-9 e-9 e-8 e-11) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--15511-13568 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--15511-13558-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--15505-13321 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--15505-13311-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--14847-12593 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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--14293-12059 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--15527-14362 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-4))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0)))))))
(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-15 (((e-4 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 (Context-Core-isVisible arg-0 e-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 (Context-Core-isAllPublic arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-getNS arg-0 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Context-Core-getNestedNS arg-0 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((bind-0 0)) ((App-Elab-TTImp-case--14181-11933 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 arg-19)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else (let ((act-17 (((arg-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-9 (vector 10 arg-10 1))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) ((App-Elab-TTImp-concrete 'erased e-5 arg-9 e-7) eta-0))))))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) ((App-Elab-TTImp-case--15529-14642 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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--16411-14039 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (let ((sc4 e-4)) (let ((e-22 (vector-ref sc4 8))) e-22)))) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15535-17752 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--15535-17716-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-15 (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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-16 (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-16)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-19 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc9 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-20 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-21 ((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-21)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc13 1))) (let ((act-23 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-23 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (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-24 (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-24)) (case (vector-ref sc15 0) ((0) (let ((e-24 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc15 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-25)) (case (vector-ref sc16 0) ((0) (let ((e-25 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((e-25 (vector-ref sc16 1))) (let ((act-26 ((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-26)) (case (vector-ref sc17 0) ((0) (let ((e-26 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((e-26 (vector-ref sc17 1))) (let ((act-27 ((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-27)) (case (vector-ref sc18 0) ((0) (let ((e-27 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-27) eta-0))) (else (let ((e-27 (vector-ref sc18 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--20989-18055 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-15 ((Normalise-Core-getNF 'erased arg-1 e-33) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--18942-16233 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--18942-16233 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--18942-16233 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--15535-17294 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--15535-17136-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--15535-17294 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--15535-17136-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--15535-17294 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--15535-17136-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-15 ((Normalise-Core-getNF 'erased arg-1 e-37) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15535-17014 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--15535-16839-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--15535-17014 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--15535-16839-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--15535-17014 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--15535-16839-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-15 ((Normalise-Core-getNF 'erased arg-1 e-41) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Normalise-Core-convert_Convert__NF arg-0 e-6 arg-8 e-26 e-14 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (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--15535-17577 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--15535-17417-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--15535-17577 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--15535-17417-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--15535-17577 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--15535-17417-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15535-17752 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--15535-17716-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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-19 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-20 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-21 ((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-21)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc12 act-22)) (case (vector-ref sc12 0) ((0) (let ((e-22 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc12 1))) (let ((act-23 ((Normalise-Core-nf arg-0 e-22 arg-8 e-16) eta-0))) (let ((sc13 act-23)) (case (vector-ref sc13 0) ((0) (let ((e-23 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (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-24 (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-24)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc14 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-25)) (case (vector-ref sc15 0) ((0) (let ((e-25 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((e-25 (vector-ref sc15 1))) (let ((act-26 ((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-26)) (case (vector-ref sc16 0) ((0) (let ((e-26 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((e-26 (vector-ref sc16 1))) (let ((act-27 ((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-27)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-27) eta-0))) (else (let ((e-27 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--20989-18055 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15535-17752 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--15535-17716-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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-19 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-15))) (let ((act-20 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-14 (vector 11 arg-9) eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc8 1))) (let ((act-21 ((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-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-19 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((e-19 (vector-ref sc11 1))) (let ((act-23 ((Normalise-Core-nf arg-0 e-19 arg-8 e-16) eta-0))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (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-24 (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-24)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-25)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc14 1))) (let ((act-26 ((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-26)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-27 ((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-27)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-18 e-4))) ((App-Elab-TTImp-case--20989-18055 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15535-17752 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--15535-17716-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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-20 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-21 ((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-21)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc12 act-22)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-23 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc13 act-23)) (case (vector-ref sc13 0) ((0) (let ((e-19 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (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-24 (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-24)) (case (vector-ref sc14 0) ((0) (let ((e-20 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc14 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-25)) (case (vector-ref sc15 0) ((0) (let ((e-21 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc15 1))) (let ((act-26 ((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-26)) (case (vector-ref sc16 0) ((0) (let ((e-22 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc16 1))) (let ((act-27 ((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-27)) (case (vector-ref sc17 0) ((0) (let ((e-23 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc17 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--20989-18055 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15535-17752 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--15535-17716-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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-20 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-21 ((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-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-23 ((Normalise-Core-nf arg-0 e-18 arg-8 e-12) eta-0))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (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-24 (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-24)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-25)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc14 1))) (let ((act-26 ((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-26)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc15 1))) (let ((act-27 ((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-27)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc16 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--20989-18055 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15535-17752 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--15535-17716-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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "argTy" eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (UnifyState-Core-genName arg-1 arg-3 "retTy" eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-9 (vector 11 arg-9) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((argTyG (Normalise-Core-gnf arg-0 arg-8 e-11))) (let ((act-20 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-10 (vector 11 arg-9) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 ((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-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-23 ((Normalise-Core-nf arg-0 e-15 arg-8 e-12) eta-0))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (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-24 (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-24)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-25 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (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-25)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-26 ((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-26)) (case (vector-ref sc14 0) ((0) (let ((e-19 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-27 ((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-27)) (case (vector-ref sc15 0) ((0) (let ((e-20 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc15 1))) (let ((_-0 (vector 0 e-14 e-4))) ((App-Elab-TTImp-case--20989-18055 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-getNF 'erased arg-1 e-9) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-17 (Context-Core-fromIntegerName arg-1 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-18 (Context-Core-fromStringName arg-1 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-19 (Context-Core-fromCharName arg-1 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-20 ((App-Elab-TTImp-n--21363-18277-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-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-21 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1)))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-22 (Normalise-Core-quote_Quote__NF arg-0 e-15 arg-8 e-10 eta-1))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-23 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-2))) (lambda () (lambda (t) (lambda (eta-2) (let ((act-23 ((Normalise-Core-getTerm 'erased t) eta-2))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 e-15 arg-8 e-17 eta-2))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-18 eta-2))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-19 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-19)) eta-2))))))))))))))))))) arg-13) eta-1))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-24 ((Context-Core-getFullName arg-1 e-8) eta-1))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-18 (vector-ref sc12 1))) (let ((act-25 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-16 eta-1))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-19 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))))))))))))))))))))))) eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--22057-18980 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-8 arg-7))))) (let ((act-22 ((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-22)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc10 1))) (App-Elab-TTImp-n--21363-18276-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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-getNF 'erased arg-1 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--17900-17538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17900-17427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17900-17336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17356-17257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-15 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-5 e-6)) eta-1))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--17900-17336 arg-0 arg-1 arg-2 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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-12 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-17 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-18 (let ((act-18 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-20 ((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-20)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((act-22 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((act-23 (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-23)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-10) eta-2))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-15 (UnifyState-Core-genName arg-12 arg-10 "altTy" eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Check-Elab-TTImp-metaVar arg-0 arg-12 arg-10 arg-4 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-5 e-5 (vector 11 arg-4) eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-5 e-6)) eta-1))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) arg-1) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--17900-17336 arg-0 arg-1 arg-2 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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-12 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-17 ((Normalise-Core-getTerm 'erased e-5) eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-18 (let ((act-18 ((Normalise-Core-getNF 'erased arg-12 expC-39) eta-1))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-20 ((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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((act-22 (Unify-Core-solveConstraints arg-12 arg-10 solvemode (vector 0 ) eta-2))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((act-23 (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-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-10) eta-2))))))))))))))))))))) e-8)) eta-1))))))))))))))))))))))) eta-0)))))))))))))
(define Ambiguity-Elab-TTImp-case--17356-17027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-15 (Context-Core-log arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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--17356-16884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--17356-16790 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--17295-16742 (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--16989-16587 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16989-16486 (lambda (arg-0 arg-1 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-15 ((Ambiguity-Elab-TTImp-filterCore 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-notOverloadable arg-6 eta-1)) arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) e-5)) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-8)) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16918-16370 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-1 arg-5)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16868-16304 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16600-16218 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 0 arg-1))) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 1 arg-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16600-16153 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 0 arg-2))) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 1 arg-2))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16600-16068 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 0 arg-5))) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 1 arg-5))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16523-15992 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-nf (vector 0 ) arg-3 (vector 0 ) e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--15918-15874 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16259-15778 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--15918-15746 (lambda (arg-0 arg-1 arg-2 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-15 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--16108-15650 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--15918-15618 (lambda (arg-0 arg-1 arg-2 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-15 ((Ambiguity-Elab-TTImp-mightMatchArgs arg-0 arg-11 arg-3 arg-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--15915-15541 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--15912-15488 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--15516-15209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) 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) (let ((act-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Ambiguity-Elab-TTImp-n--14350-14160-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)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--14350-14155-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--14350-14160-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))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--14350-14155-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--14350-14160-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))) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--15317-15101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Ambiguity-Elab-TTImp-n--14350-14160-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)) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 ((Context-Core-lookupCtxtName arg-1 (let ((sc1 arg-11)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-filterM 'erased (lambda (eta-1) (Ambiguity-Elab-TTImp-n--14350-14154-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0)))))) ((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-17 (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Ambiguity-Elab-TTImp-n--14350-14160-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)) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--14350-14155-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--14350-14160-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))) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 arg-2 (Ambiguity-Elab-TTImp-n--14350-14155-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--14350-14160-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))) eta-0))))))))))))))))))))
(define Ambiguity-Elab-TTImp-case--15317-14956 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 arg-2 (vector 1 ) arg-5)) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--15230-14923 (lambda (arg-0 arg-1 arg-2 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--15317-14956 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--14350-14161-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-fromIntegerName arg-10 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-fromStringName arg-10 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-fromCharName arg-10 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14350-14157-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--15317-15101 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--14350-14153-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--14350-14845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Ambiguity-Elab-TTImp-case--15230-14923 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--14459-14709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14459-14620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14543-14273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--14492-14225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (Context-Core-getNS arg-10 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--14543-14273 arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--14455-14189 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (Context-Core-isVisible arg-10 e-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 (Context-Core-getNS arg-10 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-getNestedNS arg-10 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((bind-0 0)) ((Ambiguity-Elab-TTImp-case--14543-14273 arg-0 arg-1 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Ambiguity-Elab-TTImp-case--14350-14095 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 arg-3 (vector 0 ) arg-6)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))
(define Ambiguity-Elab-TTImp-n--14350-14158-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--14459-14620 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--14459-14709 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--14459-14709 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--14350-14154-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--14455-14189 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--14350-14155-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) ((26) (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 26 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) ((26) (let ((e-30 (vector-ref sc10 1))) (let ((e-31 (vector-ref sc10 2))) (let ((sc11 e-31)) (case (vector-ref sc11 0) ((2) (let ((e-32 (vector-ref sc11 1))) (let ((sc12 e-21)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-30 (vector 2 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) ((26) (let ((e-13 (vector-ref sc16 1))) (let ((e-14 (vector-ref sc16 2))) (let ((sc17 e-14)) (case (vector-ref sc17 0) ((3) (let ((e-15 (vector-ref sc17 1))) (let ((sc18 e-4)) (case (vector-ref sc18 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((3) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((3) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((3) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((3) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((3) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-30 (vector-ref sc9 1))) (let ((e-31 (vector-ref sc9 2))) (let ((sc10 e-31)) (case (vector-ref sc10 0) ((2) (let ((e-32 (vector-ref sc10 1))) (let ((sc11 e-21)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 26 e-30 (vector 2 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) ((26) (let ((e-13 (vector-ref sc15 1))) (let ((e-14 (vector-ref sc15 2))) (let ((sc16 e-14)) (case (vector-ref sc16 0) ((3) (let ((e-15 (vector-ref sc16 1))) (let ((sc17 e-4)) (case (vector-ref sc17 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((3) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((3) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((3) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((3) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((3) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-30 (vector-ref sc8 1))) (let ((e-31 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((2) (let ((e-32 (vector-ref sc9 1))) (let ((sc10 e-21)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 26 e-30 (vector 2 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) ((26) (let ((e-13 (vector-ref sc14 1))) (let ((e-14 (vector-ref sc14 2))) (let ((sc15 e-14)) (case (vector-ref sc15 0) ((3) (let ((e-15 (vector-ref sc15 1))) (let ((sc16 e-4)) (case (vector-ref sc16 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((3) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((3) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((3) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((3) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((3) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-30 (vector-ref sc7 1))) (let ((e-31 (vector-ref sc7 2))) (let ((sc8 e-31)) (case (vector-ref sc8 0) ((2) (let ((e-32 (vector-ref sc8 1))) (let ((sc9 e-21)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 26 e-30 (vector 2 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) ((26) (let ((e-13 (vector-ref sc13 1))) (let ((e-14 (vector-ref sc13 2))) (let ((sc14 e-14)) (case (vector-ref sc14 0) ((3) (let ((e-15 (vector-ref sc14 1))) (let ((sc15 e-4)) (case (vector-ref sc15 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((3) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((3) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((3) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((3) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((3) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-30 (vector-ref sc6 1))) (let ((e-31 (vector-ref sc6 2))) (let ((sc7 e-31)) (case (vector-ref sc7 0) ((2) (let ((e-32 (vector-ref sc7 1))) (let ((sc8 e-21)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 26 e-30 (vector 2 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) ((26) (let ((e-13 (vector-ref sc12 1))) (let ((e-14 (vector-ref sc12 2))) (let ((sc13 e-14)) (case (vector-ref sc13 0) ((3) (let ((e-15 (vector-ref sc13 1))) (let ((sc14 e-4)) (case (vector-ref sc14 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((3) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((3) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((3) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((3) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((3) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-30 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((sc6 e-31)) (case (vector-ref sc6 0) ((2) (let ((e-32 (vector-ref sc6 1))) (let ((sc7 e-21)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 26 e-30 (vector 2 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) ((26) (let ((e-13 (vector-ref sc11 1))) (let ((e-14 (vector-ref sc11 2))) (let ((sc12 e-14)) (case (vector-ref sc12 0) ((3) (let ((e-15 (vector-ref sc12 1))) (let ((sc13 e-4)) (case (vector-ref sc13 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((3) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((3) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((3) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((3) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((3) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-30 (vector-ref sc4 1))) (let ((e-31 (vector-ref sc4 2))) (let ((sc5 e-31)) (case (vector-ref sc5 0) ((2) (let ((e-32 (vector-ref sc5 1))) (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 26 e-30 (vector 2 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) ((26) (let ((e-13 (vector-ref sc10 1))) (let ((e-14 (vector-ref sc10 2))) (let ((sc11 e-14)) (case (vector-ref sc11 0) ((3) (let ((e-15 (vector-ref sc11 1))) (let ((sc12 e-4)) (case (vector-ref sc12 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc9 1))) (let ((e-14 (vector-ref sc9 2))) (let ((sc10 e-14)) (case (vector-ref sc10 0) ((3) (let ((e-15 (vector-ref sc10 1))) (let ((sc11 e-4)) (case (vector-ref sc11 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc8 1))) (let ((e-14 (vector-ref sc8 2))) (let ((sc9 e-14)) (case (vector-ref sc9 0) ((3) (let ((e-15 (vector-ref sc9 1))) (let ((sc10 e-4)) (case (vector-ref sc10 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc7 1))) (let ((e-14 (vector-ref sc7 2))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((3) (let ((e-15 (vector-ref sc8 1))) (let ((sc9 e-4)) (case (vector-ref sc9 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc6 1))) (let ((e-14 (vector-ref sc6 2))) (let ((sc7 e-14)) (case (vector-ref sc7 0) ((3) (let ((e-15 (vector-ref sc7 1))) (let ((sc8 e-4)) (case (vector-ref sc8 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc5 1))) (let ((e-14 (vector-ref sc5 2))) (let ((sc6 e-14)) (case (vector-ref sc6 0) ((3) (let ((e-15 (vector-ref sc6 1))) (let ((sc7 e-4)) (case (vector-ref sc7 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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) ((26) (let ((e-13 (vector-ref sc4 1))) (let ((e-14 (vector-ref sc4 2))) (let ((sc5 e-14)) (case (vector-ref sc5 0) ((3) (let ((e-15 (vector-ref sc5 1))) (let ((sc6 e-4)) (case (vector-ref sc6 0) ((0) (vector 2 (vector 26 e-13 (vector 3 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--16852-16292-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-15 ((Context-Core-lookupCtxtExact e-1 (let ((sc1 arg-2)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Ambiguity-Elab-TTImp-n--14350-14161-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--14350-14159-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) (Ambiguity-Elab-TTImp-n--14350-14158-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--14350-14156-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))))
(define Ambiguity-Elab-TTImp-n--14350-14160-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--14350-14159-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--14350-14153-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--14350-14157-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--14350-14157-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--14350-14156-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--14350-14156-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--14350-14156-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((matches (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-6))) (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Ambiguity-Elab-TTImp-case--16989-16486 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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) ((Ambiguity-Elab-TTImp-case--16989-16587 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (Ambiguity-Elab-TTImp-n--16852-16292-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))) ((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-15 (Ambiguity-Elab-TTImp-mightMatchArg arg-0 arg-1 e-2 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Ambiguity-Elab-TTImp-mightMatchArg (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((Normalise-Core-evalClosure arg-0 arg-1 arg-2) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Normalise-Core-evalClosure (vector 0 ) arg-1 arg-3) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Ambiguity-Elab-TTImp-mightMatchD arg-0 arg-1 e-5 e-6) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-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-15 (((e-52 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-49 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15918-15618 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))))))))) ((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--15918-15746 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))))))))) ((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--15918-15874 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))))) ((10) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))))))))))(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--15918-15618 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))))))))) ((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--15918-15746 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))))))))) ((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--15918-15874 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))))) ((10) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Ambiguity-Elab-TTImp-filterCore 'erased arg-1 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-6)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-0))))))))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Ambiguity-Elab-TTImp-case--14350-14095 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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--14350-14845 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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--14350-14845 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))
(define Ambiguity-Elab-TTImp-couldBeName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Context-Core-lookupTyExact arg-3 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-2) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))))
(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-15 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 0 arg-3))) eta-0)) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 1 arg-3))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) ((8) (lambda (eta-0) (let ((act-15 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 0 arg-3))) eta-0)) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 1 arg-3))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) ((10) (lambda (eta-0) (let ((act-15 ((Ambiguity-Elab-TTImp-couldBeFn arg-0 arg-1 arg-2 (TTImp-TTImp-getFn arg-3)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 0 arg-3))) eta-0)) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 1 arg-3))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 1 arg-3))) eta-0)))))))
(define Ambiguity-Elab-TTImp-checkAmbigDepth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Context-Core-getAmbigLimit arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-16 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-6 (vector 11 arg-9) eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-8 e-7)) eta-1))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) arg-12) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--17356-16790 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-17 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-19 ((Normalise-Core-getTerm 'erased e-6) eta-1))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-21 (let ((act-21 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-23 (Context-Core-log arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "All failed, running default") eta-2))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-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-15 (Ambiguity-Elab-TTImp-checkAmbigDepth 'erased arg-1 arg-4 arg-9 arg-6 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (exp) (lambda (eta-1) (let ((act-16 ((Normalise-Core-getNF 'erased arg-1 exp) eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (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-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-1))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) arg-12) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--17900-17336 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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-19 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-20 (let ((act-20 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (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-21)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-22 ((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (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 (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-25)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-12) eta-2))))))))))))))))))))) e-10)) eta-1))))))))))))))))))))))) eta-0)))))))))))))(else (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-17 (UnifyState-Core-genName arg-1 arg-3 "altTy" eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Check-Elab-TTImp-metaVar arg-0 arg-1 arg-3 arg-9 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 e-7 (vector 11 arg-9) eta-1))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Normalise-Core-gnf arg-0 arg-8 e-8)) eta-1))))))))))))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) arg-12) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((solvemode (Ambiguity-Elab-TTImp-case--17900-17336 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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-19 ((Normalise-Core-getTerm 'erased e-7) eta-1))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-20 (let ((act-20 ((Normalise-Core-getNF 'erased arg-1 expC-39) eta-1))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-22 ((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-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((act-24 (Unify-Core-solveConstraints arg-1 arg-3 solvemode (vector 0 ) eta-2))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (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 (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-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-12) eta-2))))))))))))))))))))) 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--19575-17871 (lambda (arg-0 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))))))))
(define LinearCheck-Core-case--19283-17732 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define LinearCheck-Core-case--19283-17640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18882-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 arg-13 arg-14 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 (LinearCheck-Core-C-43C-43 'erased arg-21 e-7)))) eta-0))))))))))
(define LinearCheck-Core-case--18882-17303 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--12974-17234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((arg-8 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-13 e-2)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--18882-17303 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-7))))))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 0 e-12 (LinearCheck-Core-C-43C-43 'erased e-7 e-11)))) eta-0))))))))))))))))))))))))))))))))
(define LinearCheck-Core-case--18444-16895 (lambda (arg-0 arg-1 arg-2 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((tyC-39 (LinearCheck-Core-n--12966-16559-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-17 (Context-Core-updateTy arg-6 arg-8 tyC-39 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 (Context-Core-setLinearCheck arg-6 arg-8 0 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased tyC-39) eta-0))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc0 arg-9)) (let ((e-2 (vector-ref sc0 3))) e-2))) eta-0)))))))
(define LinearCheck-Core-case--18407-16840 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0))) (else (LinearCheck-Core-case--18444-16895 '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--18372-16812 (lambda (arg-0 arg-1 arg-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-15 (LinearCheck-Core-n--12966-16560-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--18407-16840 '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 54 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Name-Core-show_Show__Name arg-1))) eta-0)))))))
(define LinearCheck-Core-case--12966-16784 (lambda (arg-0 arg-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (LinearCheck-Core-n--12966-16560-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-2))) ((LinearCheck-Core-case--18407-16840 '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 54 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Name-Core-show_Show__Name arg-1))) eta-0)))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Name-Core-show_Show__Name arg-1))) eta-0)))))))
(define LinearCheck-Core-case--18125-16578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12)))))
(define LinearCheck-Core-case--12966-16510 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2))) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Name-Core-show_Show__Name arg-1))) eta-0)))))))
(define LinearCheck-Core-case--16478-16192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((args (TT-Core-getArgs 'erased arg-8))) (let ((act-16 ((LinearCheck-Core-n--12961-15084-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 ((LinearCheck-Core-n--12961-15081-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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) eta-0)))))))))))))))))))))))))))
(define LinearCheck-Core-case--16477-16002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define LinearCheck-Core-case--16477-15889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16476-15749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12961-15083-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12))))))
(define LinearCheck-Core-case--16825-15490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--16728-15371 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--16825-15490 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--16667-15294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-15 ((LinearCheck-Core-n--12961-15081-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--16728-15371 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)))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-12 ause) e-5)) eta-0))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--16474-15129-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-1 arg-4 arg-2 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))))
(define LinearCheck-Core-case--16474-15251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 ((LinearCheck-Core-n--12961-15081-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased e-4 arg-17))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((ause (let ((arg (vector 0 e-2 e-3 e-4))) (LinearCheck-Core-case--16728-15371 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)))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-12 ause) e-5)) eta-0))))))))))))))))))(else (lambda (eta-0) (LinearCheck-Core-n--16474-15129-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-1 arg-4 arg-2 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))) (else (lambda (eta-0) (LinearCheck-Core-n--16474-15129-elseCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 arg-8 arg-1 arg-4 arg-2 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 eta-0)))))))
(define LinearCheck-Core-case--16528-15147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12949-14875 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 arg-3 e-2) (vector 0 e-6 (vector 0 )))) eta-0)))))))))
(define LinearCheck-Core-case--16100-14808 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 4 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))) eta-0)))))))))
(define LinearCheck-Core-case--12949-14767 (lambda (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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 4 arg-3 e-8 e-2) (vector 0 e-6 e-9))) eta-0)))))))))))))))))))
(define LinearCheck-Core-case--12949-14708 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 3 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))) eta-0)))))))))
(define LinearCheck-Core-case--12949-14648 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 2 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))) eta-0)))))))))
(define LinearCheck-Core-case--15827-14581 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-3 e-2 arg-10) (vector 0 arg-11 e-7))) eta-0)))))))))
(define LinearCheck-Core-case--12949-14540 (lambda (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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-3 e-8 e-2) (vector 0 e-6 e-9))) eta-0)))))))))))))))))))
(define LinearCheck-Core-case--12949-14481 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 arg-4 arg-3 e-2) (vector 0 e-6 (vector 0 )))) eta-0)))))))))
(define LinearCheck-Core-case--15532-14327 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))))))(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--12945-14291 (lambda (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-15 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-3 "Not a delayed tyoe") eta-0))))))))))))))))))
(define LinearCheck-Core-case--15394-14221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))))))))
(define LinearCheck-Core-case--12945-14178 (lambda (arg-0 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-15 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 ((Normalise-Core-getTerm 'erased e-10) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))))))))))))))))))))
(define LinearCheck-Core-case--12945-14121 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 6 arg-3 arg-2 e-2) (vector 0 (Normalise-Core-gType 'erased arg-3) e-7))) eta-0)))))))))
(define LinearCheck-Core-case--15193-14059 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 arg-4 arg-3 arg-12 e-2) (vector 0 e-6 e-7))) eta-0))))))))))
(define LinearCheck-Core-case--12945-14016 (lambda (arg-0 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-15 ((LinearCheck-Core-lcheck arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 arg-4 arg-3 e-2 e-8) (vector 0 e-10 e-9))) eta-0)))))))))))))))))))
(define LinearCheck-Core-case--14838-13774 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--14770-13706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 (((arg-19 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-2)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14838-13774 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-18))))))) (let ((act-16 (Context-Core-getSession arg-8 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (let ((sc4 (let ((sc5 e-8)) (let ((e-13 (vector-ref sc5 7))) e-13)))) (cond ((equal? sc4 0) (let ((act-17 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-9 arg-17 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 (Prelude-not e-10))) (cond ((equal? sc7 0) (let ((act-19 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 arg-17 eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-20 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-9 eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))
(define LinearCheck-Core-case--14716-13653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-6 arg-6))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((fty (vector 0 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 ((e-9 (vector-ref sc3 2))) (let ((sc4 e-9)) (let ((e-12 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((act-16 (((e-4 arg-13) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-10)) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc5 1))) (let ((aerased (let ((_-0 (vector 0 e-10 (vector 0 e-12 e-11)))) (LinearCheck-Core-case--14838-13774 arg-0 arg-1 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-7 e-8 e-6 e-4 fty checkRig e-10 e-12 e-11 _-0 e-13 (Prelude-C-38C-38 arg-5 (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-6))))))) (let ((act-17 (Context-Core-getSession arg-8 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc6 1))) (let ((act-18 (let ((sc7 (let ((sc8 e-14)) (let ((e-19 (vector-ref sc8 7))) e-19)))) (cond ((equal? sc7 0) (let ((act-18 ((Normalise-Core-getNF 'erased arg-8 e-12) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-19 (Normalise-Core-convert_Convert__NF arg-0 arg-13 arg-4 e-15 e-8 eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc9 1))) (let ((sc10 (Prelude-not e-16))) (cond ((equal? sc10 0) (let ((act-20 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-8 eta-0))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-21 (Normalise-Core-quote_Quote__NF arg-0 arg-13 arg-4 e-15 eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-11)))) eta-0))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-15 ((Normalise-Core-getTerm 'erased arg-10) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12945-13610 (lambda (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-getNF 'erased arg-8 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-12 (vector-ref sc5 2))) (let ((e-11 (vector-ref sc5 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-13 arg-6))) (let ((act-17 ((LinearCheck-Core-lcheck arg-0 arg-8 arg-7 checkRig arg-5 arg-4 arg-1) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-14 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc6 1))) (let ((fty (vector 0 e-1 e-10 (vector 2 e-13 e-12 e-11) 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-18 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 e-16)) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-19 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (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--14838-13774 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-12 e-11 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-13))))))) (let ((act-19 (Context-Core-getSession arg-8 eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-20 (let ((sc11 (let ((sc12 e-20)) (let ((e-25 (vector-ref sc12 7))) e-25)))) (cond ((equal? sc11 0) (let ((act-20 ((Normalise-Core-getNF 'erased arg-8 e-18) eta-0))) (let ((sc12 act-20)) (case (vector-ref sc12 0) ((0) (let ((e-21 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc12 1))) (let ((act-21 (Normalise-Core-convert_Convert__NF arg-0 e-5 arg-4 e-21 e-11 eta-0))) (let ((sc13 act-21)) (case (vector-ref sc13 0) ((0) (let ((e-22 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((e-22 (vector-ref sc13 1))) (let ((sc14 (Prelude-not e-22))) (cond ((equal? sc14 0) (let ((act-22 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-11 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc15 1))) (let ((act-23 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-4 e-21 eta-0))) (let ((sc16 act-23)) (case (vector-ref sc16 0) ((0) (let ((e-24 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))))))))))(else (let ((act-17 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (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))))))))))))))(else (let ((act-17 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14549-13503 (lambda (arg-0 arg-1 arg-2 arg-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--12945-12753-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--14113-13470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12945-12753-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--14172-13349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--12945-12752-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define LinearCheck-Core-case--14172-13220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--14113-13146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-7))) (let ((act-16 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((LinearCheck-Core-case--14172-13349 arg-0 arg-1 arg-2 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--14172-13220 arg-0 arg-1 arg-2 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--12945-12751-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-17 (let ((sc4 (Prelude-not arg-6))) (cond ((equal? sc4 0) ((LinearCheck-Core-n--12945-12754-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--12945-12751-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--12945-13099 (lambda (arg-0 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--14113-13470 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-15 ((LinearCheck-Core-lcheck (vector 1 arg-1 arg-0) arg-9 arg-8 (LinearCheck-Core-n--12945-12751-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-9))) (let ((act-17 (let ((_-1 (vector 0 e-8 (vector 0 e-10 e-9)))) ((LinearCheck-Core-case--14172-13349 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased arg-3))))) eta-0)))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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--14172-13220 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--12945-12751-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-18 (let ((sc7 (Prelude-not arg-6))) (cond ((equal? sc7 0) ((LinearCheck-Core-n--12945-12754-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--12945-12751-rig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (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--13727-12998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--12945-12753-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--12945-12753-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--13726-12887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12945-12752-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--12945-12752-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--13731-12816 (lambda (arg-0 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define LinearCheck-Core-case--13725-12758 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--13731-12816 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-7)))))))
(define LinearCheck-Core-case--13251-12630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-show_Show__C-40TermC-32C-36varsC-41 e-1 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))))))
(define LinearCheck-Core-case--13412-12545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12945-12283-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--13251-12483 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13412-12545 arg-0 arg-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-15 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--13251-12382 (lambda (arg-0 arg-1 arg-2 arg-3 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--12945-12345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () 1) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--13251-12382 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-15 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-15 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--13251-12630 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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--13412-12545 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-16 ((Normalise-Core-nf arg-0 arg-10 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12993-12165 (lambda (arg-0 arg-1 arg-2 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--11757-11905 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(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--12614-11710 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((LinearCheck-Core-updateHoleType 'erased arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 ty arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-updateTy arg-9 arg-2 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))))))))))))))))(else (LinearCheck-Core-updateHoleUsageArgs arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-1))))))
(define LinearCheck-Core-case--11757-11683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12614-11710 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--11835-11175 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 arg-12 arg-10 (vector 2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-8 arg-7) e-5)) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 arg-12 arg-10 (vector 2 arg-9 arg-8 arg-7) e-5)) eta-0))))))))))))
(define LinearCheck-Core-case--11835-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 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define LinearCheck-Core-case--11746-10989 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 ((LinearCheck-Core-updateHoleType 'erased arg-1 arg-2 arg-18 1 arg-16 arg-15 arg-11 arg-14) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 arg-12 arg-10 (vector 2 cC-39 arg-8 arg-7) e-5)) eta-0))))))))) (else (LinearCheck-Core-case--11835-11175 '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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15))))))))
(define LinearCheck-Core-case--11686-10887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4)))
(define LinearCheck-Core-case--11636-10837 (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--12945-12049-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--12993-12165 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-11))))
(define LinearCheck-Core-n--12966-16559-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--12966-16559-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--12945-12283-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--12945-12283-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--12945-12283-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--12945-12283-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--12945-12283-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--12970-17098-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--12970-17098-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16)) 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-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--12970-17098-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16)) 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-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (SubstEnv-TT-Core-substs arg-14 arg-15 arg-18 arg-16)) 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-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--11506-10715-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--12966-16560-rigSafe (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-15 ((Context-Core-getFullName arg-6 arg-1) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define LinearCheck-Core-n--12945-12048-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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--12945-12047-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define LinearCheck-Core-n--12945-12751-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--13731-12816 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-7)))))))
(define LinearCheck-Core-n--12961-15083-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--16476-15749 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--12961-15083-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--12961-15083-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3)))))))))))
(define LinearCheck-Core-n--12945-12752-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--13726-12887 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased e-8)))))))))))))
(define LinearCheck-Core-n--12961-15085-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-15 (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 ((LinearCheck-Core-lcheck e-2 arg-5 arg-4 arg-2 1 e-6 e-11) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 (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-19)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((args (TT-Core-getArgs 'erased e-10))) (let ((act-20 ((LinearCheck-Core-n--12961-15084-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-20)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((act-21 ((LinearCheck-Core-n--12961-15081-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-21)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-22 (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-22)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-18) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))
(define LinearCheck-Core-n--12945-12047-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--12945-12047-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--12961-15081-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--12961-15081-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--16474-15251 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-6)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-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--16474-15251 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-6)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))
(define LinearCheck-Core-n--12945-12753-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--13727-12998 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased e-4))))))))))
(define LinearCheck-Core-n--16474-15129-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-15 ((LinearCheck-Core-n--12961-15081-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (LinearCheck-Core-case--16528-15147 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-11))) ext-0))))))))
(define LinearCheck-Core-n--12961-15087-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((LinearCheck-Core-n--12961-15086-combineUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((LinearCheck-Core-n--12961-15087-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-7) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-8)) eta-0)))))))))))))))(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--12961-15086-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))))))))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-22 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 (vector 3 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 4 ))) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 4 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))))))))))))))))))))))
(define LinearCheck-Core-n--12961-15088-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))(else (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-n--12961-15088-combine arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-n--12961-15087-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))))))
(define LinearCheck-Core-n--19283-17591-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define LinearCheck-Core-n--12961-15082-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define LinearCheck-Core-n--12945-12754-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define LinearCheck-Core-n--12961-15084-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((LinearCheck-Core-case--16477-16002 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--16477-15889 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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-16 ((LinearCheck-Core-n--12961-15082-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--12961-15083-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((LinearCheck-Core-n--12961-15084-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--11506-10715-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((LinearCheck-Core-updateHoleUsageArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-124C-124 e-5 (lambda () e-6))) eta-0)))))))))))))))))))
(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-15 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-34) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-124C-124 e-5 (lambda () e-6))) eta-0))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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--12614-11710 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-15 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((LinearCheck-Core-updateHoleUsage arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-124C-124 e-5 (lambda () e-10))) eta-0)))))))))))))) ((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--11757-11905 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--11746-10989 '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-15 ((LinearCheck-Core-updateHoleUsage arg-1 arg-2 arg-3 1 arg-5 arg-6 e-10) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 (vector 2 e-6 e-7 e-8) e-9)) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-updateHoleUsageArgs arg-1 arg-2 arg-3 1 arg-5 arg-6 arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))))))
(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--11686-10887 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-15 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Linearity check on ") arg-7 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-6 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-19 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0)))))))))))))))))))))))))))))
(define LinearCheck-Core-lcheckMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-11)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((e-7 (vector-ref sc1 3))) (let ((e-8 (vector-ref sc1 4))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((2) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((e-12 (vector-ref sc2 3))) (let ((checkRig (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega e-10 arg-3))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-1) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-15 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc6 1))) (let ((act-17 (((e-8 e-15) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-4)) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-16 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (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--18882-17303 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-10))))))) (let ((act-18 ((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-19 (vector 0 e-21 (LinearCheck-Core-C-43C-43 'erased e-13 e-20)))) eta-0))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-16 (Context-Core-clearDefs e-9 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-10 arg-5 arg-11 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-5 arg-11 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 )))) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-7 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc4 e-1)) (let ((e-2 (vector-ref sc4 3))) e-2))) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Linearity checking failed on " (Name-Core-show_Show__Name arg-7))) eta-0)))))))))))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((LinearCheck-Core-case--12966-16784 '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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 e-1 e-2 e-6) (vector 0 e-8 (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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-5 e-12 e-2) (vector 0 e-10 e-13))) 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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-11) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 2 e-9 e-10 e-2) (vector 0 e-6 (vector 0 )))) 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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 3 e-13 e-14 e-2) (vector 0 e-6 (vector 0 )))) eta-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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-19) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 4 e-17 e-9 e-2) (vector 0 e-6 e-10))) eta-0)))))))))))))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 e-21 e-2) (vector 0 e-6 (vector 0 )))) eta-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-3112) (TT-Core-weaken_Weaken__Term n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (TT-Core-weakenNs_Weaken__Term vars ns arg-3116))))) 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-15 (let ((sc1 (Prelude-not arg-4))) (cond ((equal? sc1 0) ((LinearCheck-Core-n--12945-12048-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 e-2 e-3 e-4) (vector 0 (Normalise-Core-gnf arg-0 arg-5 ty) (LinearCheck-Core-n--12945-12049-used e-4 'erased arg-0 'erased e-3 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 arg-3)))) eta-0))))))))))))) ((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-15 ((LinearCheck-Core-lcheckDef 'erased arg-1 arg-2 e-7 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 )))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (lambda () 1) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--13251-12382 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-17 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-17 (let ((_-0 (vector 1 e-1))) ((LinearCheck-Core-case--13251-12630 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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--13412-12545 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-18 ((Normalise-Core-nf arg-0 e-5 arg-5 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((LinearCheck-Core-lcheckBinder arg-0 arg-1 arg-2 (LinearCheck-Core-n--12945-12751-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1) arg-4 arg-5 e-18) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14113-13470 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-16 ((LinearCheck-Core-lcheck (vector 1 e-17 arg-0) arg-1 arg-2 (LinearCheck-Core-n--12945-12751-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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((used_in (LinearCheck-Core-count 'erased 0 e-10))) (let ((act-18 (let ((_-1 (vector 0 e-9 (vector 0 e-11 e-10)))) ((LinearCheck-Core-case--14172-13349 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased e-18))))) eta-0)))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (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--14172-13220 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--12945-12751-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-19 (let ((sc9 (Prelude-not arg-4))) (cond ((equal? sc9 0) ((LinearCheck-Core-n--12945-12754-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--12945-12751-rig arg-0 e-17 e-19 e-18 e-16 arg-5 arg-4 arg-3 arg-2 arg-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-22) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 checkRig arg-4 arg-5 e-23) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (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-19 (((e-4 e-8) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-17)) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-20 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (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--14838-13774 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-14))))))) (let ((act-20 (Context-Core-getSession arg-1 eta-0))) (let ((sc12 act-20)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-21 (let ((sc13 (let ((sc14 e-24)) (let ((e-29 (vector-ref sc14 7))) e-29)))) (cond ((equal? sc13 0) (let ((act-21 ((Normalise-Core-getNF 'erased arg-1 e-19) eta-0))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-25 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((e-25 (vector-ref sc14 1))) (let ((act-22 (Normalise-Core-convert_Convert__NF arg-0 e-8 arg-5 e-25 e-12 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-26 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((e-26 (vector-ref sc15 1))) (let ((sc16 (Prelude-not e-26))) (cond ((equal? sc16 0) (let ((act-23 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-12 eta-0))) (let ((sc17 act-23)) (case (vector-ref sc17 0) ((0) (let ((e-27 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-27) eta-0))) (else (let ((e-27 (vector-ref sc17 1))) (let ((act-24 (Normalise-Core-quote_Quote__NF arg-0 e-8 arg-5 e-25 eta-0))) (let ((sc18 act-24)) (case (vector-ref sc18 0) ((0) (let ((e-28 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-28) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc13 act-21)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))))))))))(else (let ((act-18 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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))))))))))))))(else (let ((act-18 ((Normalise-Core-getTerm 'erased e-6) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-27) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-28) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 e-25 e-26 e-2 e-9) (vector 0 e-11 e-10))) eta-0))))))))))))))))))))))))))) ((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-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-32) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 6 e-30 e-31 e-2) (vector 0 (Normalise-Core-gType 'erased e-30) e-7))) eta-0)))))))))))))))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 arg-5 e-36) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-37) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Normalise-Core-getTerm 'erased e-11) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))))))))))))))))))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((LinearCheck-Core-lcheck arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-41) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-getNF 'erased arg-1 e-6) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 9 e-43 e-44) (vector 0 (Normalise-Core-gErased 'erased e-43) (vector 0 )))) eta-0))))) ((10) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 10 e-46 e-47) (vector 0 (Normalise-Core-gErased 'erased e-46) (vector 0 )))) eta-0))))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 11 e-49) (vector 0 (Normalise-Core-gType 'erased e-49) (vector 0 )))) eta-0))))))))
(define LinearCheck-Core-getArgUsage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (LinearCheck-Core-n--12961-15085-getPUsage arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 eta-0)) arg-5) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((LinearCheck-Core-n--12961-15088-combine arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) e-6)) ext-0)))))))))))))
(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-15 ((LinearCheck-Core-n--12970-17098-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-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-15 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) 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-15 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 3 arg-3 arg-4 (vector 2 e-9 e-10 e-11) arg-7) (vector 0 arg-6 arg-9))) 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-15 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-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-15 ((Normalise-Core-getTerm 'erased arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 3 arg-3 arg-4 (vector 5 e-21 e-22) arg-7) (vector 0 arg-6 arg-9))) eta-0)))))))))
(define LinearCheck-Core-count (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (LinearCheck-Core-case--11636-10837 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((LinearCheck-Core-case--19283-17732 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (TT-Core-multiplicity 'erased e-8))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((used (LinearCheck-Core-case--19283-17640 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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-16 ((LinearCheck-Core-n--19283-17591-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 Utils-Elab-TTImp-case--14738-8789 (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--14653-8753 (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--14632-8705 (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))
(define Utils-Elab-TTImp-case--14616-8687 (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-15 (Utils-Elab-TTImp-findErased arg-1 (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 3))) e-2)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Utils-Elab-TTImp-case--14387-8571 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14387-8505 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (vector 1 arg-6 arg-10)) (else arg-10)))))
(define Utils-Elab-TTImp-case--14348-8475 (lambda (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-15 ((Utils-Elab-TTImp-detagSafe arg-7 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((_-0 (vector 0 e-2 e-3))) (Utils-Elab-TTImp-case--14387-8571 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-2)))) eta-0)))))))))))))
(define Utils-Elab-TTImp-case--14168-8372 (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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-5 eta-1)) arg-3) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Utils-Elab-TTImp-n--14168-8284-notErased arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 e-11 e-10)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Utils-Elab-TTImp-case--14181-8317 (lambda (arg-0 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--14168-8284-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--14168-8284-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--14168-8284-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--14181-8317 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--14181-8317 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-6 arg-7)))))))))))))))
(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--14738-8789 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-1))))
(define Utils-Elab-TTImp-updateErasable (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (Utils-Elab-TTImp-findErased arg-0 (let ((sc3 e-1)) (let ((e-2 (vector-ref sc3 3))) e-2)) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Utils-Elab-TTImp-findErasedFrom (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-15 (((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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-6)))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-17 ((Utils-Elab-TTImp-detagSafe arg-0 e-8) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((_-0 (vector 0 e-11 e-10))) (Utils-Elab-TTImp-case--14387-8571 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-6)))) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 0 ))) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 0 ))) eta-0)))))))
(define Utils-Elab-TTImp-findErased (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-5) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-17 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Utils-Elab-TTImp-n--14168-8284-notErased e-1 e-3 e-4 e-5 e-2 arg-0 0 e-16 e-17)) eta-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define BindImplicits-TTImp-case--13710-1726 (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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (Utils-TTImp-findBindableNames 0 arg-1 arg-2 arg-0)))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (BindImplicits-TTImp-doBind ns arg-0)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define BindImplicits-TTImp-case--13663-1685 (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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (Utils-TTImp-findBindableNames 0 arg-1 (vector 0 ) arg-0)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-0))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (BindImplicits-TTImp-addUsing arg-2 btm)) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define BindImplicits-TTImp-case--13418-1541 (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--13418-1475 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--13354-1399 (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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-0)))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) arg-0)) eta-0)))))))
(define BindImplicits-TTImp-case--13203-1334 (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--13203-1290 (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--12658-1188 (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) 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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-1212) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (vector 16 arg-1 arg-0) eta-0)))))))
(define BindImplicits-TTImp-case--12658-737 (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) 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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-812) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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--13601-1617-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--13601-1617-tag arg-0 arg-1 'erased (Prelude-C-43_Num__Int arg-3 1) e-3)))))))))
(define BindImplicits-TTImp-n--12658-1119-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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) arg-5 eta-0)))))))
(define BindImplicits-TTImp-n--13203-1382-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--12658-737 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (BindImplicits-TTImp-n--12658-1119-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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-2914) (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-2915) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-2915))))) func arg-2914 eta-2)))))) (lambda (a) (lambda (arg-2981) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a-0) (lambda (arg-2982) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2982))) (lambda (b) (lambda (a-0) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a-0) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a-0) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) arg-2981 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a-0) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b-0) (lambda (a-0) (lambda (arg-2983) (lambda (arg-2985) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2983 arg-2985)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a-0) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) arg-2982 arg-2984 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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) (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--12658-1188 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146)))) 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--13418-1475 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--13418-1541 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-41 (vector-ref sc1 1))) (Prelude-maybe 'erased 'erased (lambda () (vector 0 e-0 (vector 1 e-41))) (lambda () (lambda (nC-39) (vector 16 e-0 nC-39))) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-41 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))))) ((12) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (vector 12 e-38 (BindImplicits-TTImp-n--13203-1382-doBindAlt e-40 e-39 e-38 arg-0 e-39) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (BindImplicits-TTImp-doBind arg-0 eta-0)) e-40))))))(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-15 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (Utils-TTImp-findBindableNames 0 arg-2 arg-1 arg-3)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (BindImplicits-TTImp-doBind ns arg-3)) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) ext-0)))))))))))
(define BindImplicits-TTImp-bindTypeNames (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (Utils-TTImp-findBindableNames 0 arg-2 (vector 0 ) arg-3)))) (let ((btm (BindImplicits-TTImp-doBind ns arg-3))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (BindImplicits-TTImp-addUsing arg-1 btm)) ext-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) ext-0)))))))))))
(define BindImplicits-TTImp-bindNames (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Context-Core-isUnboundImplicits arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (Utils-TTImp-findBindableNames arg-1 (vector 0 ) (vector 0 ) arg-2)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) arg-2)) ext-0)))))))))))
(define BindImplicits-TTImp-addUsing (lambda (arg-0 arg-1) (let ((ns (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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--13601-1617-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--1691-837 (lambda (arg-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--1617-801 (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--1691-837 '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--1504-638 (lambda (arg-0 arg-1 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--1415-593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-4)) (let ((e-5 (vector-ref sc1 2))) ((((e-5 'erased) 'erased) (arg-6 e-3)) (lambda (_-0) (let ((sc2 _-0)) (let ((e-7 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 (let ((sc4 arg-4)) (let ((e-10 (vector-ref sc4 1))) e-10)))) (let ((e-9 (vector-ref sc3 2))) ((e-9 'erased) (vector 0 (e-2 e-7) e-6))))))))))))))))
(define State-Monad-Control-n--1346-435-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--1346-435-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-2914) (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-2914 eta-0)))))) (lambda (a) (lambda (arg-2981) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-2981 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (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-2982 arg-2984 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (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-3143 arg-3144 eta-0)))))) (lambda (a) (lambda (arg-3146) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3146 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-2914) (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-2914 eta-0)))))) (lambda (a) (lambda (arg-2981) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-2981 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (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-2982 arg-2984 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (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-3143 arg-3144 eta-0)))))) (lambda (a) (lambda (arg-3146) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3146 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-285) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-285 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-2914) (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-2914 eta-0)))))) (lambda (a) (lambda (arg-2981) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-2981 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (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-2982 arg-2984 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--1691-837 '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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984)))))) (lambda (b) (lambda (a) (lambda (arg-3143) (lambda (arg-3144) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3143 arg-3144))))) (lambda (a) (lambda (arg-3146) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3146))))))
(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-2914) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-2982 arg-2984))))))))
(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--21531-361 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Core-Core-wrapError 'erased (lambda (eta-1) (vector 58 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-16)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-17 (Metadata-Core-clearHoleLHS arg-9 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (Context-Core-logTerm e-6 arg-10 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-8 eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-1 e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform LHS") e-22 ext-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-19 (Core-Core-wrapError 'erased (lambda (eta-0) (vector 58 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-19)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-20 (Metadata-Core-clearHoleLHS arg-2 ext-0))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-21 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Transform RHS") e-13 ext-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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--27808-22674 (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--27788-22667 (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--27808-22674 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define ProcessDef-TTImp-with--22028-17829 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--22028-17756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--30916-25710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--30916-25630 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--30739-25359 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-7) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-16 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (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-18 (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-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (let ((sc11 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-6)))) (cond ((equal? sc11 0) (let ((act-24 (ProcessDef-TTImp-calcRefs arg-9 1 e-15 (vector 9 arg-17) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-26 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-17 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-26 (ProcessDef-TTImp-n--29408-24054-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 ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-27 (Context-Core-setCovering arg-9 arg-3 arg-10 e-18 eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-28 (let ((act-28 (IORef-Data-writeIORef 'erased arg-8 e-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) eta-0)))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-6)))) (cond ((equal? sc16 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-15 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-case--30739-25253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define ProcessDef-TTImp-case--30696-25207 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--30739-25253 arg-0 arg-1 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (let ((sc1 arg-12)) (let ((e-7 (vector-ref sc1 8))) e-7)))))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolveName arg-9 arg-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-checkClause arg-0 arg-9 arg-8 arg-7 mult hashit e-5 arg-6 arg-5 arg-4 eta-1)) arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 ) arg-10 ty (Either-Data-rights 'erased 'erased e-6)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-warnUnreachable arg-9 eta-1)) e-8) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (Context-Core-logC arg-9 (+ 1 (+ 1 0)) (lambda (eta-1) (let ((act-19 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-9 eta-1))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (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-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (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-21 (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-21)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (Context-Core-addToSave arg-9 arg-10 eta-0))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-25 (let ((act-25 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-26 (Context-Core-toResolvedNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) (vector 0 (vector 1 "Builtin" (vector 0 )) (vector 1 "assert_total")) eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc14 1))) (let ((act-27 (let ((sc15 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-6)))) (cond ((equal? sc15 0) (let ((act-27 (ProcessDef-TTImp-calcRefs arg-9 1 e-18 (vector 9 e-5) eta-0))) (let ((sc16 act-27)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-28 (Termination-Core-calculateSizeChange arg-9 arg-3 arg-10 eta-0))) (let ((sc17 act-28)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-20 (vector-ref sc17 1))) (let ((act-29 (Context-Core-setSizeChange arg-9 arg-3 arg-10 e-20 eta-0))) (let ((sc18 act-29)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Termination-Core-checkIfGuarded arg-9 arg-3 arg-10 eta-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-28 (let ((act-28 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) eta-0)))) (let ((sc16 act-28)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-29 (ProcessDef-TTImp-n--29408-24054-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 ((sc17 act-29)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-30 (Context-Core-setCovering arg-9 arg-3 arg-10 e-21 eta-0))) (let ((sc18 act-30)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-31 (let ((act-31 (IORef-Data-writeIORef 'erased arg-8 e-20 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-31) eta-0)))) (let ((sc19 act-31)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((sc20 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-623 arg-624)))) (vector 1 ) arg-6)))) (cond ((equal? sc20 0) (ProcessDef-TTImp-compileRunTime arg-9 arg-8 arg-7 arg-3 e-18 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-3 arg-10) eta-0)))))))
(define ProcessDef-TTImp-case--29408-25177 (lambda (arg-0 arg-1 arg-2 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--30696-25207 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--30397-24991 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Covering arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Covering arg-4574 arg-4575)))) (vector 2 arg-26) eta-0)))))))
(define ProcessDef-TTImp-case--30111-24928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-15 (Coverage-Core-getNonCoveringRefs arg-9 arg-3 (vector 9 arg-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Covering arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Covering arg-4574 arg-4575)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-25)) eta-0)))))))
(define ProcessDef-TTImp-case--30111-24819 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--29429-24667 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--30111-24819 arg-0 arg-1 arg-2 arg-3 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--29408-24051-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-1) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) eta-2 eta-3))) e-8) eta-1))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 ((Context-Core-getFullName arg-9 (vector 9 arg-13)) eta-1))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1)))))))))))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessDef-TTImp-n--29408-24052-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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 ((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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--30111-24928 arg-0 arg-1 arg-2 arg-3 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--29427-24509 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-10)) eta-0)))))))
(define ProcessDef-TTImp-case--29662-24349 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-9 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (else (lambda (eta-0) (let ((act-15 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-26) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--29427-24110-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-9 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0)))))))))))))))))))))
(define ProcessDef-TTImp-case--29577-24274 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-5 (vector 0 ) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased arg-9 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (else (let ((act-18 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-6) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) ((ProcessDef-TTImp-n--29427-24110-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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-9 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-9)) eta-0))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-case--29427-24206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (Context-Core-setUnboundImplicits arg-9 arg-16 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (let ((e-7 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-19 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-8 (vector 0 ) e-9) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((sc7 e-10)) (cond ((equal? sc7 0) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-9 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (else (let ((act-20 (Context-Core-clearDefs arg-14 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-9) eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) ((ProcessDef-TTImp-n--29427-24110-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-21)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-9 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-12)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-case--29272-23991 (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--28993-23766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--28898-23680 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "WAT") eta-0)))))))
(define ProcessDef-TTImp-case--28748-23604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-6 e-7)))) ((ProcessDef-TTImp-case--28898-23680 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--28748-23516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--28474-23231-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17)))))
(define ProcessDef-TTImp-case--28711-23482 (lambda (arg-0 arg-1 arg-2 arg-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--28474-23233-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--28474-23232-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clauses_init (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--28474-23234-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--28474-23231-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 clauses_init))(else clauses_init))))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-17 (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-8 (vector 0 e-10 e-9)))) ((ProcessDef-TTImp-case--28898-23680 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))
(define ProcessDef-TTImp-case--28474-23453 (lambda (arg-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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--28711-23482 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDef-TTImp-case--28118-23124 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--28118-23086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--28118-22948 (lambda (arg-0 arg-1 arg-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--28030-22920 (lambda (arg-0 arg-1 arg-2 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-16 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--27858-22710-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased refs_all) eta-1)))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDef-TTImp-case--28030-22872 (lambda (arg-0 arg-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--28009-22854 (lambda (arg-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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((refs_all (CaseTree-Core-addRefs 'erased arg-1 metas tree))) (let ((act-16 ((ProcessDef-TTImp-ifThenElse 'erased arg-2 (lambda () (ProcessDef-TTImp-n--27858-22710-dropErased arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased refs_all) refs_all)) (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased refs_all) eta-1)))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDef-TTImp-case--27858-22839 (lambda (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--28009-22854 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDef-TTImp-case--27888-22762 (lambda (arg-0 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--27858-22710-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--27858-22710-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6)))))))
(define ProcessDef-TTImp-case--27864-22735 (lambda (arg-0 arg-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--27888-22762 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--27858-22710-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6))))))
(define ProcessDef-TTImp-case--25737-22561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--26530-22076 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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) (vector 1 arg-60 arg-6)))
(define ProcessDef-TTImp-case--26530-21848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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) (let ((sc0 arg-54)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define ProcessDef-TTImp-case--26334-21563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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)) (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-43))))) (lambda (eta-0) (let ((act-15 (Context-Core-logTerm (vector 0 ) arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "With function type") e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (Context-Core-log arg-13 (+ 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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 (UnifyState-Core-genWithName arg-13 arg-11 arg-8 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-18 (Context-Core-addDef arg-13 e-11 (Context-Core-newDef arg-3 e-11 (ProcessDef-TTImp-case--26530-21848 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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 e-5 e-9 e-10 wargNames e-7 e-8 e-11 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-10)) arg-4 e-10 (vector 0 ) (vector 0 )) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((rhs_in (TTImp-TTImp-apply (vector 0 arg-3 e-11) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 0 arg-3 eta-1)) e-9) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (pn) (vector 0 arg-3 (Builtin-snd 'erased 'erased pn)))) eta-1)) wargNames))))) (let ((act-19 (Context-Core-log arg-13 (+ 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-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 ((Context-Core-getFullName arg-13 (vector 9 arg-8)) eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-7 (lambda (eta-1) (vector 58 arg-3 e-14 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-4 arg-15 arg-13 arg-12 arg-11 arg-8 arg-22 arg-7 arg-18 arg-17 arg-5 arg-16 rhs_in (Normalise-Core-gnf arg-15 arg-17 arg-20) eta-1))) eta-0)))))))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--24263-20563-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 (+ 1 0) e-11 wargNames arg-14 eta-1)) arg-0) eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-22 (Context-Core-log arg-13 (+ 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-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 (ProcessDef-TTImp-applyEnv arg-4 arg-13 arg-5 e-11 eta-0))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc11 1))) (let ((nestC-39C-39 (vector 1 e-17 arg-6))) (let ((wdef (vector 2 arg-3 e-11 e-15))) (let ((act-24 ((Check-Elab-TTImp-processDecl arg-4 arg-13 arg-12 arg-11 (vector 0 ) nestC-39C-39 arg-5 wdef) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-15 arg-17 arg-19 e-14))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (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--26211-21404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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))) (let ((wargn (vector 2 "warg" 0))) (let ((scenv (vector 1 (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-38) e-1))) (let ((bnr (ProcessDef-TTImp-bindNotReq 'erased arg-15 arg-3 0 arg-17 arg-34 (vector 0 ) arg-20))) (let ((notreqns (Builtin-fst 'erased 'erased bnr))) (let ((notreqty (Builtin-snd 'erased 'erased bnr))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Normalise-Core-nf (vector 1 wargn arg-33) arg-30 scenv (TT-Core-weaken_Weaken__Term wargn arg-33 arg-37)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf (vector 1 wargn arg-33) arg-30 scenv (TT-Core-weaken_Weaken__Term wargn arg-33 notreqty)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Normalise-Core-replace (vector 1 wargn arg-33) arg-30 scenv e-5 (vector 0 arg-3 (vector 1 1) 0) e-6 eta-0))))))))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bNotReq (vector 3 arg-3 wargn (vector 2 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) arg-38) e-5))) ((ProcessDef-TTImp-case--26334-21563 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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 wargn scenv bnr notreqns notreqty e-5 bNotReq (ProcessDef-TTImp-bindReq 'erased arg-15 arg-3 arg-17 arg-34 (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--26091-21319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38) (let ((sc0 arg-38)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (ProcessDef-TTImp-case--26211-21404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 e-1 (Env-Core-shrinkEnv 'erased 'erased arg-17 arg-34)))) (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--25958-21236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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))) (ProcessDef-TTImp-case--26091-21319 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 e-1 (TT-Core-shrinkTerm 'erased 'erased arg-32 arg-34)))) (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--25832-21135 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-logTerm arg-15 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value type") arg-32 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-log arg-13 (+ 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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--25958-21236 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 e-2 e-3 e-5 e-6 (TT-Core-shrinkTerm 'erased 'erased arg-31 e-3)) eta-0)))))))))))))))))
(define ProcessDef-TTImp-case--25737-21028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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))) (lambda (eta-0) (let ((act-15 (Metadata-Core-clearHoleLHS arg-12 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-logTerm arg-15 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-logTerm arg-15 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") arg-20 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Normalise-Core-normaliseHoles arg-15 e-9 arg-17 e-2 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Normalise-Core-normaliseHoles arg-15 e-9 arg-17 e-8 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ProcessDef-TTImp-case--25832-21135 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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 e-3 _-0 e-5 e-6 e-7 e-8 e-9 e-10 e-11 (ProcessDef-TTImp-n--24263-20562-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 'erased 'erased arg-15 arg-16 (let ((sc8 (Env-Core-findSubEnv arg-15 arg-17 e-10))) (let ((e-4 (vector-ref sc8 2))) e-4)))) eta-0)))))))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-case--24263-20952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((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--25737-22561 arg-0 arg-1 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-10))))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Context-Core-getFullName arg-13 (vector 9 arg-8)) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-7 (lambda (eta-1) (vector 58 arg-3 e-5 eta-1))) (Elab-TTImp-elabTermSub arg-4 e-6 arg-13 arg-12 arg-11 arg-8 wmode arg-7 e-18 e-14 arg-5 e-10 arg-1 (vector 0 ))) eta-0)))))))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Metadata-Core-clearHoleLHS arg-12 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-17 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-8 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-18 (Context-Core-logTerm e-6 arg-13 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc12 act-20)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-21 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-8 eta-0))) (let ((sc13 act-21)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc13 1))) (let ((act-22 (Normalise-Core-normaliseHoles e-6 e-17 e-14 e-16 eta-0))) (let ((sc14 act-22)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc14 1))) (let ((_-1 (vector 0 e-8 e-4))) ((ProcessDef-TTImp-case--25832-21135 arg-0 arg-1 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 wmode e-8 e-4 _-1 e-9 e-12 e-13 e-16 e-17 e-20 e-21 (ProcessDef-TTImp-n--24263-20562-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 '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--25262-20842 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (vector 1 arg-14 e-2) (vector 2 e-3)))))))
(define ProcessDef-TTImp-case--25262-20764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (vector 1 arg-15 e-2) (vector 2 e-3)))))))
(define ProcessDef-TTImp-case--25262-20686 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 (vector 1 arg-15 e-2) (vector 2 e-3)))))))
(define ProcessDef-TTImp-case--25262-20608 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 1 e-3)))))))
(define ProcessDef-TTImp-case--24827-20474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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 0 )) (else (vector 2 ))))))
(define ProcessDef-TTImp-case--24827-20336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-24)) (case (vector-ref sc0 0) ((2) (lambda (eta-0) (Metadata-Core-addLHS arg-14 arg-12 arg-11 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) arg-16 arg-18 eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDef-TTImp-case--24263-20187 (lambda (arg-0 arg-1 arg-2 arg-3 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))) (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--24827-20474 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-2 e-6 e-10 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-9))))) (lambda (eta-0) (let ((act-15 (Context-Core-log arg-12 (+ 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-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Normalise-Core-logEnv e-6 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 ((Context-Core-getFullName arg-12 (vector 9 arg-7)) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-6 (lambda (eta-1) (vector 58 arg-2 e-9 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-3 e-6 arg-12 arg-11 arg-10 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-17)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 (Metadata-Core-clearHoleLHS arg-11 eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (Context-Core-logTerm e-6 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-9 eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((sc11 arg-8)) (cond ((equal? sc11 0) (let ((act-20 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-22 eta-0))) (let ((sc12 act-20)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-9 eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc11 act-20)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (let ((sc12 e-9)) (case (vector-ref sc12 0) ((2) (Metadata-Core-addLHS e-6 arg-12 arg-11 (TTImp-TTImp-getFC arg-1) (Env-Core-length 'erased 'erased arg-4) e-14 e-22 eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-6 e-14 e-22 e-9))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-case--24631-20101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-13)) eta-0)))))))
(define ProcessDef-TTImp-case--24263-20020 (lambda (arg-0 arg-1 arg-2 arg-3 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) ((6) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-13 eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((ProcessDef-TTImp-impossibleErrOK arg-11 e-5 arg-13) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 1 arg-13)) eta-0))))))))))))))))))))
(define ProcessDef-TTImp-case--24397-19901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 arg-2 arg-3 (vector 0 arg-25)) eta-0)))))))
(define ProcessDef-TTImp-case--24308-19834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-11 e-5 arg-3 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0)) (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--24263-19757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Context-Core-setUnboundImplicits arg-11 arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (Context-Core-log arg-11 (+ 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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Normalise-Core-logEnv arg-0 arg-11 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 ((Elab-TTImp-elabTerm arg-0 arg-11 arg-10 arg-9 arg-6 (vector 1 arg-8) arg-5 arg-4 arg-3 (vector 15 arg-2 (vector 1 ) e-3) (vector 0 )) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-9 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-20 (Normalise-Core-normaliseHoles arg-0 e-10 arg-3 e-9 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-21 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-11 e-10 arg-3 e-11) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0)) (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--23845-19444 (lambda (arg-0 arg-1 arg-2 arg-3 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 ProcessDef-TTImp-case--23845-19383 (lambda (arg-0 arg-1 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 ProcessDef-TTImp-case--23273-19120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-18 (Normalise-Core-normaliseHoles arg-2 e-7 lhsenv e-2 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Normalise-Core-normaliseHoles arg-2 e-7 arg-3 e-6 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-8) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (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-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 ((ProcessDef-TTImp-combineLinear arg-1 e-10) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-24 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-26 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc12 act-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-27 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-17 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-21 e-17)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-case--23273-19035 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-18) eta-0))) (else (TTImp-TTImp-implicitsAs arg-13 arg-2 arg-18))))))
(define ProcessDef-TTImp-case--23273-18901 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--23155-18834 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Context-Core-setUnboundImplicits arg-12 arg-15 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((sc2 arg-9)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0)) (else ((TTImp-TTImp-implicitsAs arg-13 arg-2 e-3) eta-0)))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (Normalise-Core-logEnv arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-3 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((lhsMode (let ((sc5 arg-9)) (cond ((equal? sc5 0) (vector 3 )) (else (vector 1 arg-8)))))) (let ((act-19 (let ((act-19 ((Context-Core-getFullName arg-12 (vector 9 arg-6)) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-5 (lambda (eta-1) (vector 57 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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-20 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-10 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((act-21 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-3))) (let ((act-23 (Normalise-Core-normaliseHoles arg-2 e-13 lhsenv e-10 eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-24 (Normalise-Core-normaliseHoles arg-2 e-13 arg-3 e-12 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-25 ((ProcessDef-TTImp-findLinear arg-2 arg-12 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-14) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((act-26 (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-26)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((act-27 (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-27)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((act-28 ((ProcessDef-TTImp-combineLinear arg-1 e-16) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (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-29 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin eta-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((act-30 (Context-Core-logTerm arg-2 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin eta-0))) (let ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((act-31 (Metadata-Core-setHoleLHS arg-11 (Env-Core-bindEnv arg-2 arg-1 arg-3 lhstm_lin) eta-0))) (let ((sc18 act-31)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((act-32 ((ProcessDef-TTImp-extendEnv 'erased arg-2 arg-3 (vector 0 ) arg-4 lhstm_lin lhsty_lin) eta-0))) (let ((sc19 act-32)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((e-23 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 e-23)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-case--23155-18775 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0))) (else (TTImp-TTImp-lhsInCurrentNS 'erased arg-12 arg-4 arg-0))))))
(define ProcessDef-TTImp-case--22910-18678 (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-15 ((ProcessDef-TTImp-combineLinear arg-3 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 arg-1) e-5)) eta-0))))))))(else (lambda (eta-0) (let ((act-15 ((ProcessDef-TTImp-n--22910-18520-combineAll arg-0 arg-1 arg-2 arg-3 arg-1 arg-4) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((ProcessDef-TTImp-combineLinear arg-3 (List-Data-filter 'erased (lambda (eta-1) (ProcessDef-TTImp-n--22910-18517-notN arg-0 arg-1 arg-2 arg-3 eta-1)) arg-2)) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 e-5) e-6)) eta-0)))))))))))))))))
(define ProcessDef-TTImp-case--22929-18621 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Preorder-Algebra-lub 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) arg-5 arg-4)) eta-0)))))))
(define ProcessDef-TTImp-case--22928-18551 (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--22910-18518-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--22910-18518-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))))))
(define ProcessDef-TTImp-case--22769-18459 (lambda (arg-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--22769-18401 (lambda (arg-0 arg-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--22612-18309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 ((Normalise-Core-nf (vector 0 ) arg-10 (vector 0 ) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--22247-17935-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--22247-17934-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDef-TTImp-case--22247-18247 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-16 (Context-Core-lookupTyExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Normalise-Core-nf (vector 0 ) e-8 (vector 0 ) e-1) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) ((ProcessDef-TTImp-n--22247-17935-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--22247-17934-accessible arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-6 arg-2) e-10 e-3) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessDef-TTImp-case--22280-18039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 (((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-21 (ZeroOneOmega-Algebra-rigMult arg-11 arg-19)) e-6)) eta-0))))))))))))) (else (lambda (eta-0) (let ((act-15 (((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--22247-17935-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--22279-17941 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define ProcessDef-TTImp-case--21580-17412 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-not e-5)) eta-0))))))))))))
(define ProcessDef-TTImp-case--21580-17323 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))) (else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-not e-5)) eta-0))))))))))))
(define ProcessDef-TTImp-case--21180-17030 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--21180-16946 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define ProcessDef-TTImp-case--20892-16778 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--20892-16694 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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--28474-23233-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-15 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Transform-Core-applyTransforms 'erased arg-4 e-6 e-11) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 ((PartialEval-TTImp-applySpecialise e-2 arg-4 arg-3 arg-2 e-6 arg-6 e-8) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 (LinearCheck-Core-linearCheck e-2 arg-4 arg-2 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 e-6 e-9 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 (vector 0 e-5 e-12)))) eta-0)))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-n--28474-23234-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--29408-24050-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--29408-24050-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--22910-18517-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--24052-19524-notLets (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-5) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (ProcessDef-TTImp-n--24052-19524-notLets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 e-8))(else (ProcessDef-TTImp-n--24052-19524-notLets arg-0 arg-1 arg-2 arg-3 arg-4 (vector 1 e-2 arg-5) e-3 e-8))))))))))))))
(define ProcessDef-TTImp-n--28474-23228-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 2 arg-6)) (vector 0 ))))))
(define ProcessDef-TTImp-n--24263-20563-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) (let ((sc0 arg-18)) (case (vector-ref 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-15 (WithClause-TTImp-getNewLHS 'erased arg-13 e-0 arg-14 arg-6 arg-15 arg-16 arg-17 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-withRHS arg-13 e-0 arg-14 arg-15 arg-16 e-2 arg-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5 e-6)) 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))) (lambda (eta-0) (let ((act-15 (WithClause-TTImp-getNewLHS 'erased arg-13 e-3 arg-14 arg-6 arg-15 arg-16 arg-17 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-withRHS arg-13 e-3 arg-14 arg-15 arg-16 e-5 arg-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (ProcessDef-TTImp-n--24263-20563-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 (+ 1 arg-14) arg-15 arg-16 arg-17 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-3 e-7 e-8 e-9)) eta-0)))))))))))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (WithClause-TTImp-getNewLHS 'erased arg-13 e-7 arg-14 arg-6 arg-15 arg-16 arg-17 e-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-7 e-5)) eta-0))))))))))))))
(define ProcessDef-TTImp-n--28474-23229-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--28474-23229-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--28474-23230-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--28474-23229-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--28474-23228-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--22910-18518-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--22928-18551 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--24263-20562-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) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((0) (vector 0 arg-16 (vector 0 )))(else (let ((sc0 arg-18)) (case (vector-ref sc0 0) ((0) (vector 0 arg-16 (vector 0 )))(else (let ((sc0 arg-16)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-17)) (case (vector-ref sc1 0) ((1) (let ((e-6 (vector-ref sc1 1))) (let ((sc2 arg-18)) (case (vector-ref sc2 0) ((1) (let ((e-14 (vector-ref sc2 1))) (ProcessDef-TTImp-case--25262-20608 arg-0 arg-1 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-1 e-2 e-6 e-14 (ProcessDef-TTImp-n--24263-20562-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 'erased 'erased e-2 e-6 e-14)))) (else (let ((e-18 (vector-ref sc2 1))) (ProcessDef-TTImp-case--25262-20686 arg-0 arg-1 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-1 e-2 'erased e-6 e-18 (ProcessDef-TTImp-n--24263-20562-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 'erased 'erased e-2 e-6 e-18)))))))) (else (let ((e-10 (vector-ref sc1 1))) (let ((sc2 arg-18)) (case (vector-ref sc2 0) ((1) (let ((e-22 (vector-ref sc2 1))) (ProcessDef-TTImp-case--25262-20764 arg-0 arg-1 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-1 e-2 'erased e-10 e-22 (ProcessDef-TTImp-n--24263-20562-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 'erased 'erased e-2 e-10 e-22)))) (else (let ((e-26 (vector-ref sc2 1))) (ProcessDef-TTImp-case--25262-20842 arg-0 arg-1 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 'erased 'erased e-10 e-26 (ProcessDef-TTImp-n--24263-20562-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 'erased 'erased e-2 e-10 e-26)))))))))))))))))))))
(define ProcessDef-TTImp-n--28474-23232-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--28474-23232-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
(define ProcessDef-TTImp-n--29408-24053-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-15 (Impossible-TTImp-getImpossibleTerm arg-0 arg-9 arg-4 e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (vector 0 ) (vector 0 ) e-5 (vector 10 (TTImp-TTImp-getFC e-2) 0)))) eta-1))))))))))) (lambda (e) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))
(define ProcessDef-TTImp-n--22247-17935-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--22247-17935-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--22247-17935-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--22280-18039 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-17 (((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-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc7 1))) (let ((act-18 ((ProcessDef-TTImp-n--22247-17935-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-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-13 e-17)) eta-0))))))))))))))))))))))))))))(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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-9 e-13)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-9 e-10)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-5 e-6)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--22280-18039 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc5 1))) (let ((act-17 (((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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc6 1))) (let ((act-18 ((ProcessDef-TTImp-n--22247-17935-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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-13 e-17)) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-9 e-13)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-9 e-10)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-5 e-6)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((a (TT-Core-nameAt 'erased arg-6 e-20 'erased))) ((ProcessDef-TTImp-case--22280-18039 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc4 1))) (let ((act-17 (((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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc5 1))) (let ((act-18 ((ProcessDef-TTImp-n--22247-17935-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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-17 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-13 e-17)) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-9 e-13)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-9 e-10)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((ProcessDef-TTImp-findLinear arg-6 arg-5 1 arg-3 arg-7 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ProcessDef-TTImp-n--22247-17935-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-5 e-6)) eta-0))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))
(define ProcessDef-TTImp-n--27858-22710-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--27888-22762 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--27858-22710-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0))))))))))))))))))))))
(define ProcessDef-TTImp-n--22910-18520-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((ProcessDef-TTImp-n--22910-18519-combine arg-0 arg-1 arg-2 arg-3 arg-4 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((ProcessDef-TTImp-n--22910-18520-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0))))))))))))))
(define ProcessDef-TTImp-n--22910-18519-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--22929-18621 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-242 arg-243))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-245) (lambda (arg-247) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-245 arg-247))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))
(define ProcessDef-TTImp-n--29427-24110-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-15 (((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessDef-TTImp-n--29427-24110-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--29408-24052-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-15 (Unelab-TTImp-unelabNoPatvars (vector 0 ) arg-9 (vector 0 ) arg-12 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (UnifyState-Core-handleUnify 'erased arg-9 arg-7 (lambda (eta-0) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Context-Core-isUnboundImplicits arg-9 eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-setUnboundImplicits arg-9 0 eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (BindImplicits-TTImp-bindNames arg-9 1 e-5 eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (let ((e-3 (vector-ref sc6 2))) (let ((act-21 (Context-Core-setUnboundImplicits arg-9 e-8 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 ((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((sc9 e-12)) (let ((e-13 (vector-ref sc9 1))) (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-15 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc11 1))) (let ((act-25 ((ProcessDef-TTImp-hasEmptyPat (vector 0 ) arg-9 e-14 (vector 0 ) e-15) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc12 1))) (let ((sc13 e-16)) (cond ((equal? sc13 0) (let ((act-26 (let ((act-26 (IORef-Data-writeIORef 'erased arg-9 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-0)))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (else (let ((act-26 (Context-Core-clearDefs e-6 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-17 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc14 1))) (let ((act-27 (let ((act-27 ((Normalise-Core-nf (vector 0 ) e-17 (vector 0 ) e-15) eta-0))) (let ((sc15 act-27)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc15 1))) ((ProcessDef-TTImp-n--29427-24110-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-27)) (case (vector-ref sc15 0) ((0) (let ((e-18 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc15 1))) (let ((act-28 (let ((act-28 (IORef-Data-writeIORef 'erased arg-9 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) eta-0)))) (let ((sc16 act-28)) (case (vector-ref sc16 0) ((0) (let ((e-19 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-18)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((ProcessDef-TTImp-recoverableErr arg-9 e-6 err) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessDef-TTImp-case--29427-24509 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--29408-24054-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (ProcessDef-TTImp-n--29408-24053-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((covcs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5))) (let ((act-16 ((CaseBuilder-Core-getPMDef arg-9 arg-3 (vector 0 ) (vector 9 arg-10) arg-11 covcs) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 (let ((act-17 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-8 ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((_-0 (vector 0 e-2 (vector 0 e-8 e-7)))) ((ProcessDef-TTImp-case--30111-24819 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--29408-24051-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-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 0))) (lambda (eta-0) (let ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) eta-1 eta-2))) e-10) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 ((Context-Core-getFullName arg-9 (vector 9 arg-10)) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) eta-0)))))))))))) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (ProcessDef-TTImp-n--29408-24052-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-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 ((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-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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--30111-24928 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--29408-24051-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--29408-24050-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--28474-23231-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--28474-23230-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--28474-23231-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--28474-23231-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
(define ProcessDef-TTImp-n--22247-17934-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--22769-18401 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--22769-18459 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-15 (let ((act-15 (Normalise-Core-normalise e-0 arg-1 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Impossible") e-5 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 (let ((act-16 (Normalise-Core-normalise e-0 arg-1 e-2 e-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "    ...and") e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((Normalise-Core-nf e-0 arg-1 e-2 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-nf e-0 arg-1 e-2 e-4) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) ((ProcessDef-TTImp-recoverable e-0 arg-1 e-7 e-8) 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-15 (let ((act-15 (Normalise-Core-normalise e-5 arg-1 e-7 e-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc1 1))) (Context-Core-logTerm e-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Impossible") e-10 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Normalise-Core-normalise e-5 arg-1 e-7 e-9 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc2 1))) (Context-Core-logTerm e-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "    ...and") e-11 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Normalise-Core-nf e-5 arg-1 e-7 e-8) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-nf e-5 arg-1 e-7 e-9) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc4 1))) ((ProcessDef-TTImp-recoverable e-5 arg-1 e-12 e-13) eta-0))))))))))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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--21580-17323 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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))) (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--21580-17412 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-61C-61_Eq__Constant e-18 e-43)) eta-0)))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 ((Context-Core-inCurrentNS arg-1 arg-8) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Context-Core-lookupCtxtExact e-5 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--30696-25207 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-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 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--27788-22667 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-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Context-Core-lookupCtxtExact arg-4 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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--28711-23482 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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--20892-16694 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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))) (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--20892-16778 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-47C-61_Eq__Constant e-14 e-38)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((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-15 ((Normalise-Core-evalClosure arg-0 arg-1 e-23) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-1 e-47) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 ((Normalise-Core-evalClosure arg-0 arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-1 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--21180-16946 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) 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))) (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--21180-17030 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-47C-61_Eq__Constant e-14 e-32)) eta-0)))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 (let ((act-15 (Normalise-Core-normalise e-0 arg-1 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Impossible") e-5 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 (let ((act-16 (Normalise-Core-normalise e-0 arg-1 e-2 e-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Context-Core-logTerm e-0 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "    ...and") e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 ((Normalise-Core-nf e-0 arg-1 e-2 e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-nf e-0 arg-1 e-2 e-4) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) ((ProcessDef-TTImp-impossibleOK e-0 arg-1 e-7 e-8) 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-15 (let ((act-15 (Normalise-Core-normalise e-5 arg-1 e-7 e-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc1 1))) (Context-Core-logTerm e-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Impossible") e-10 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Normalise-Core-normalise e-5 arg-1 e-7 e-9 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc2 1))) (Context-Core-logTerm e-5 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "    ...and") e-11 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Normalise-Core-nf e-5 arg-1 e-7 e-8) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc3 1))) (let ((act-18 ((Normalise-Core-nf e-5 arg-1 e-7 e-9) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc4 1))) ((ProcessDef-TTImp-impossibleOK e-5 arg-1 e-12 e-13) eta-0))))))))))))))))))))))))) ((44) (let ((e-13 (vector-ref sc0 4))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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-15 ((Normalise-Core-nf arg-0 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Coverage-Core-isEmpty arg-0 arg-1 arg-2 arg-3 e-5) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-124C-124 e-9 (lambda () e-10))) eta-0)))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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--22247-18247 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--22028-17756 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))) eta-0))))))))) ((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--22028-17829 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 (vector 0 arg-3 (vector 0 arg-2 (vector 0 arg-4 (vector 0 arg-5 arg-6)))))) eta-0)))))))
(define ProcessDef-TTImp-compileRunTime (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0))))))))))))))))))))))
(define ProcessDef-TTImp-combineLinear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (ProcessDef-TTImp-case--22910-18678 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--22910-18518-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((sc1 arg-4)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-12) ext-0)) (else ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-9 arg-12) ext-0)))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (BindImplicits-TTImp-bindNames arg-1 1 e-6 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (let ((e-3 (vector-ref sc5 2))) (let ((act-20 (Context-Core-setUnboundImplicits arg-1 e-7 ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-21 (let ((sc7 arg-4)) (cond ((equal? sc7 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) ext-0)) (else ((TTImp-TTImp-implicitsAs e-5 arg-0 e-3) ext-0)))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (let ((act-22 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) ext-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-10 ext-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((lhsMode (let ((sc10 arg-4)) (cond ((equal? sc10 0) (vector 3 )) (else (vector 1 arg-5)))))) (let ((act-24 (let ((act-24 ((Context-Core-getFullName arg-1 (vector 9 arg-7)) ext-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-14 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-0) (vector 57 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-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-25 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Checked LHS term") e-15 ext-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-16 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) ext-0))) (else (let ((act-26 ((Normalise-Core-getTerm 'erased e-4) ext-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-17 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) ext-0))) (else (let ((e-17 (vector-ref sc13 1))) (let ((act-27 (let ((act-27 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) ext-0)))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-18 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) ext-0))) (else (let ((e-18 (vector-ref sc14 1))) (let ((lhsenv (Env-Core-letToLam 'erased arg-10))) (let ((act-28 (Normalise-Core-normaliseHoles arg-0 e-18 lhsenv e-15 ext-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-19 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) ext-0))) (else (let ((e-19 (vector-ref sc15 1))) (let ((act-29 (Normalise-Core-normaliseHoles arg-0 e-18 arg-10 e-17 ext-0))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-20 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) ext-0))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-30 ((ProcessDef-TTImp-findLinear arg-0 arg-1 0 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19) ext-0))) (let ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-21 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) ext-0))) (else (let ((e-21 (vector-ref sc17 1))) (let ((act-31 (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-31)) (case (vector-ref sc18 0) ((0) (let ((e-22 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) ext-0))) (else (let ((act-32 (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-32)) (case (vector-ref sc19 0) ((0) (let ((e-23 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) ext-0))) (else (let ((act-33 ((ProcessDef-TTImp-combineLinear arg-11 e-21) ext-0))) (let ((sc20 act-33)) (case (vector-ref sc20 0) ((0) (let ((e-24 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) ext-0))) (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-34 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "LHS term") lhstm_lin ext-0))) (let ((sc21 act-34)) (case (vector-ref sc21 0) ((0) (let ((e-25 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) ext-0))) (else (let ((act-35 (Context-Core-logTerm arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "LHS type") lhsty_lin ext-0))) (let ((sc22 act-35)) (case (vector-ref sc22 0) ((0) (let ((e-26 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) ext-0))) (else (let ((act-36 (Metadata-Core-setHoleLHS arg-2 (Env-Core-bindEnv arg-0 arg-11 arg-10 lhstm_lin) ext-0))) (let ((sc23 act-36)) (case (vector-ref sc23 0) ((0) (let ((e-27 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-27) ext-0))) (else (let ((act-37 ((ProcessDef-TTImp-extendEnv 'erased arg-0 arg-10 (vector 0 ) arg-9 lhstm_lin lhsty_lin) ext-0))) (let ((sc24 act-37)) (case (vector-ref sc24 0) ((0) (let ((e-28 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-28) ext-0))) (else (let ((e-28 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-11 e-28)) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(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) (let ((sc0 arg-10)) (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-15 ((TTImp-TTImp-lhsInCurrentNS 'erased arg-1 arg-8 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (UnifyState-Core-handleUnify 'erased arg-1 arg-3 (lambda (eta-1) (let ((act-16 (Context-Core-isUnboundImplicits arg-1 eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-setUnboundImplicits arg-1 0 eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (let ((e-3 (vector-ref sc5 2))) (let ((act-19 (Context-Core-setUnboundImplicits arg-1 e-6 eta-1))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-20 (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-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-21 (Normalise-Core-logEnv arg-0 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" arg-9 eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-22 ((Elab-TTImp-elabTerm arg-0 arg-1 arg-2 arg-3 arg-6 (vector 1 arg-4) arg-7 arg-8 arg-9 (vector 15 e-0 (vector 1 ) e-3) (vector 0 )) eta-1))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-12 (vector-ref sc9 1))) (let ((sc10 e-12)) (let ((e-13 (vector-ref sc10 1))) (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-1)))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-24 (Normalise-Core-normaliseHoles arg-0 e-14 arg-9 e-13 eta-1))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-15 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-1))) (else (let ((e-15 (vector-ref sc12 1))) (let ((act-25 ((ProcessDef-TTImp-hasEmptyPat arg-0 arg-1 e-14 arg-9 e-15) eta-1))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-16 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-1))) (else (let ((e-16 (vector-ref sc13 1))) (let ((sc14 e-16)) (cond ((equal? sc14 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-1)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-9 (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-1)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((ProcessDef-TTImp-impossibleErrOK arg-1 e-6 err) eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-1)) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 6 arg-0 e-0 arg-9 (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-15 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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--24827-20474 e-4 e-3 e-2 arg-0 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-4))))) (let ((act-16 (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-16)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((act-17 (Normalise-Core-logEnv e-9 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) "In env" e-14 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((act-18 (let ((act-18 ((Context-Core-getFullName arg-1 (vector 9 arg-6)) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc10 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-7 (lambda (eta-1) (vector 58 e-2 e-16 eta-1))) (lambda (eta-1) (Elab-TTImp-checkTermSub arg-0 e-9 arg-1 arg-2 arg-3 arg-6 rhsMode arg-7 e-18 e-14 arg-9 e-10 e-4 (Normalise-Core-gnf e-9 e-14 e-23) eta-1))) eta-0)))))))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-19 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((act-20 (Context-Core-logTerm e-9 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "RHS term") e-16 eta-0))) (let ((sc12 act-20)) (case (vector-ref sc12 0) ((0) (let ((e-20 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((act-21 (let ((sc13 arg-5)) (cond ((equal? sc13 0) (let ((act-21 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-22 eta-0))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-16 eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc13 act-21)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((act-22 (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-9) e-14 e-22 eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc14 act-22)) (case (vector-ref sc14 0) ((0) (let ((e-24 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-9 e-14 e-22 e-16))) 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-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (ProcessDef-TTImp-checkLHS arg-0 arg-1 arg-2 arg-3 1 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-5 e-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc1 1))) (let ((sc2 e-9)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-11 (vector-ref sc3 1))) (let ((e-10 (vector-ref sc3 2))) (let ((sc4 e-10)) (let ((e-13 (vector-ref sc4 1))) (let ((e-12 (vector-ref sc4 2))) (let ((sc5 e-12)) (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 ((wmode (let ((_-0 (vector 0 e-2 (vector 0 e-11 (vector 0 e-13 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (ProcessDef-TTImp-case--25737-22561 e-8 e-7 e-6 e-5 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-11 e-13 e-14 e-18 e-22 e-23 _-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-4))))) (let ((act-16 (let ((act-16 ((Context-Core-getFullName arg-1 (vector 9 arg-6)) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc8 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-7 (lambda (eta-1) (vector 58 e-5 e-16 eta-1))) (Elab-TTImp-elabTermSub arg-0 e-11 arg-1 arg-2 arg-3 arg-6 wmode arg-7 e-18 e-14 arg-9 e-13 e-7 (vector 0 ))) eta-0)))))))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-16 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-2 (vector 0 e-11 (vector 0 e-13 (vector 0 e-14 (vector 0 e-18 (vector 0 e-22 e-23)))))))) (let ((sc9 e-16)) (let ((e-17 (vector-ref sc9 1))) (let ((e-4 (vector-ref sc9 2))) (let ((act-17 (Metadata-Core-clearHoleLHS arg-2 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-20 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-18 (Context-Core-logTerm e-11 arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "With value") e-17 eta-0))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-21 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-19 (Context-Core-logTerm e-11 arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Required type") e-23 eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-24 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((e-24 (vector-ref sc12 1))) (let ((act-20 ((Normalise-Core-getTerm 'erased e-4) eta-0))) (let ((sc13 act-20)) (case (vector-ref sc13 0) ((0) (let ((e-25 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((e-25 (vector-ref sc13 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-26 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((e-26 (vector-ref sc14 1))) (let ((act-22 (Normalise-Core-normaliseHoles e-11 e-26 e-14 e-17 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-27 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-27) eta-0))) (else (let ((e-27 (vector-ref sc15 1))) (let ((act-23 (Normalise-Core-normaliseHoles e-11 e-26 e-14 e-25 eta-0))) (let ((sc16 act-23)) (case (vector-ref sc16 0) ((0) (let ((e-28 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-28) eta-0))) (else (let ((e-28 (vector-ref sc16 1))) (let ((_-1 (vector 0 e-17 e-4))) ((ProcessDef-TTImp-case--25832-21135 e-8 e-7 e-6 e-5 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-11 e-13 e-14 e-18 e-22 e-23 _-0 wmode e-17 e-4 _-1 e-20 e-21 e-24 e-25 e-26 e-27 e-28 (ProcessDef-TTImp-n--24263-20562-keepOldEnv e-8 e-7 e-6 e-5 arg-0 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 'erased 'erased e-11 e-13 (let ((sc17 (Env-Core-findSubEnv e-11 e-14 e-27))) (let ((e-29 (vector-ref sc17 2))) e-29)))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessDef-TTImp-calcRefs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--28009-22854 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define ProcessDef-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 (ProcessDef-TTImp-n--24052-19524-notLets arg-1 arg-6 arg-5 arg-3 arg-2 (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) (ProcessDef-TTImp-bindReq 'erased e-2 arg-2 e-7 e-11 (vector 1 (vector 0 (ProcessDef-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))) (ProcessDef-TTImp-bindReq 'erased e-2 arg-2 e-7 e-15 arg-5 arg-6))))))))))))))))
(define ProcessDef-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))) (ProcessDef-TTImp-case--23845-19383 e-2 e-3 e-10 e-9 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (ProcessDef-TTImp-bindNotReq 'erased e-3 arg-2 (Prelude-C-43_Num__Int (Prelude-fromInteger_Num__Int 1) arg-3) 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))) (ProcessDef-TTImp-case--23845-19444 e-2 e-3 'erased e-10 e-9 e-15 arg-7 arg-6 arg-3 arg-2 vs 'erased tmptm (ProcessDef-TTImp-bindNotReq 'erased e-3 arg-2 (Prelude-C-43_Num__Int (Prelude-fromInteger_Num__Int 1) arg-3) e-10 e-15 arg-6 tmptm)))))) (else (let ((e-19 (vector-ref sc2 1))) (ProcessDef-TTImp-bindNotReq 'erased e-3 arg-2 arg-3 e-10 e-19 (vector 1 (vector 0 (ProcessDef-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 ProcessDef-TTImp-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((Context-Core-resolveName arg-1 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-3 (vector 0 (vector 1 arg-3) (vector 0 (Env-Core-namesNoLet 'erased arg-0 arg-2) (lambda (fc) (lambda (nt) (UnifyState-Core-applyTo arg-0 fc (vector 1 fc nt (vector 9 e-5)) arg-2))))))) ext-0))))))))
(define WithClause-TTImp-case--13861-16248 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 ((WithClause-TTImp-getMatch 0 arg-15 arg-18) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased newlhs) eta-0)))))))))))))))))))))))(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--13804-16198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((WithClause-TTImp-case--13861-16248 '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--13755-16155 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (BindImplicits-TTImp-bindNames arg-8 1 arg-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Context-Core-setUnboundImplicits arg-8 arg-12 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-1 (vector 0 e-6 e-4))) ((WithClause-TTImp-case--13861-16248 '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--13652-16115 (lambda (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-15 (Context-Core-isUnboundImplicits arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-setUnboundImplicits arg-8 0 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (BindImplicits-TTImp-bindNames arg-8 1 arg-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 (BindImplicits-TTImp-bindNames arg-8 1 e-2 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-19 (Context-Core-setUnboundImplicits arg-8 e-5 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((_-2 (vector 0 e-11 e-10))) ((WithClause-TTImp-case--13861-16248 '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--13665-16061 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 1 arg-11 e-3))) eta-0)))))))
(define WithClause-TTImp-case--13531-15998 (lambda (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 30 arg-5 0)) (else (let ((e-2 (vector-ref sc0 1))) e-2))))))
(define WithClause-TTImp-case--13531-15943 (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--12865-15881 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 arg-1) arg-4)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((WithClause-TTImp-getMatch arg-3 arg-1 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((WithClause-TTImp-mergeMatches arg-3 arg-2) eta-0))))))))))))
(define WithClause-TTImp-case--12863-15807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-1 eta-0)))))))
(define WithClause-TTImp-case--12863-15626 (lambda (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--12863-15521 (lambda (arg-0 arg-1 arg-2 arg-3 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--12863-15448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-3 eta-0)))))))
(define WithClause-TTImp-case--12863-15406 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-4 eta-0)))))))
(define WithClause-TTImp-case--12863-15359 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased arg-5 eta-0)))))))
(define WithClause-TTImp-n--14116-16427-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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-5)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))
(define WithClause-TTImp-n--14116-16426-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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-0 e-1 e-2 e-3 e-6 e-7)) 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) (let ((act-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-11) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7 e-8 e-9 e-5 e-12)) eta-0))))))))))))))))))) ((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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-16) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-12 e-13 e-14 e-5 e-6 e-7)) eta-0)))))))))))))))))))))))) ((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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-19) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-20) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (WithClause-TTImp-n--14116-16427-wrhsC arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) e-21) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-18 e-5 e-6 e-7)) eta-0)))))))))))))))))))))) ((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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-24) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-22 e-23 e-5)) eta-0))))))))))) ((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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-27) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-25 e-26 e-5)) eta-0))))))))))) ((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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-30) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-28 e-5 e-6)) eta-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))) (lambda (eta-0) (let ((act-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-32) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-34) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-31 e-5 e-33 e-6)) eta-0))))))))))))))))) ((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--14116-16425-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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-39) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-40) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-38 e-5 e-6)) eta-0)))))))))))))))) ((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-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-43) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-41 e-42 e-5)) eta-0))))))))))) ((20) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-45) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 e-44 e-5)) eta-0)))))))))) ((21) (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((WithClause-TTImp-n--14116-16426-wrhs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-47) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 e-46 e-5)) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))
(define WithClause-TTImp-n--14116-16424-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--14116-16424-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--14116-16425-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--14116-16425-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((WithClause-TTImp-getMatch 1 arg-0 arg-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (WithClause-TTImp-n--14116-16424-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3)) eta-0))))))))))))))))))))))))))))))))))
(define WithClause-TTImp-n--12863-15480-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--13652-16039-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-10 (vector 0 ))) eta-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-15 ((WithClause-TTImp-n--13652-16039-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 1 e-3 e-4))) eta-0)))))))))))))(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--14116-16426-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 ((WithClause-TTImp-mergeMatches arg-0 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((WithClause-TTImp-case--12865-15881 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 ((WithClause-TTImp-matchAll arg-0 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((WithClause-TTImp-getMatch arg-0 e-6 e-7) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((WithClause-TTImp-n--13652-16039-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Context-Core-isUnboundImplicits arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-setUnboundImplicits arg-1 0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (BindImplicits-TTImp-bindNames arg-1 1 arg-7 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-19 (BindImplicits-TTImp-bindNames arg-1 1 e-2 ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) ext-0))) (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-20 (Context-Core-setUnboundImplicits arg-1 e-6 ext-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) ext-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((_-2 (vector 0 e-12 e-11))) ((WithClause-TTImp-case--13861-16248 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-39 arg-2) (vector 0 ))) eta-0)))) ((30) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--12863-15359 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-66 e-62)))))))(else (WithClause-TTImp-case--12863-15406 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--12863-15448 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) ((27) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((26) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc4 1))) (let ((e-2 (vector-ref sc4 2))) (let ((sc5 arg-2)) (case (vector-ref sc5 0) ((26) (let ((e-4 (vector-ref sc5 1))) (let ((e-5 (vector-ref sc5 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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--12863-15448 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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--12863-15521 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--12863-15480-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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--12863-15626 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 arg-2)) (case (vector-ref sc4 0) ((26) (let ((e-4 (vector-ref sc4 1))) (let ((e-5 (vector-ref sc4 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((26) (let ((e-4 (vector-ref sc3 1))) (let ((e-5 (vector-ref sc3 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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) ((27) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((26) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (WithClause-TTImp-case--12863-15807 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-15 ((WithClause-TTImp-getMatch arg-0 e-16 e-24) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((WithClause-TTImp-getMatch arg-0 e-16 arg-2) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((27) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((27) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (WithClause-TTImp-matchFail 'erased (TTImp-TTImp-getFC arg-1) eta-0)))))) ((26) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((26) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (WithClause-TTImp-case--12863-15807 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--13531-15943 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) 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--13531-15998 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-6 arg-3))))(else (vector 30 arg-0 0)))))))(else (vector 30 arg-0 0))))))(else (vector 30 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--13531-15998 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-6 arg-3))))(else (vector 30 arg-0 0)))))))(else (vector 30 arg-0 0))))))(else (vector 30 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--13531-15998 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-6 arg-3))))(else (vector 30 arg-0 0)))))))(else (vector 30 arg-0 0))))))(else (vector 30 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--13531-15998 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-6 arg-3))))(else (vector 30 arg-0 0)))))))(else (vector 30 arg-0 0))))))(else (vector 30 arg-0 0))))))))))))
(define PartialEval-TTImp-case--18159-22395 (lambda (arg-0 arg-1 arg-2 arg-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-15 ((Normalise-Core-evalClosure arg-1 arg-8 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-1 e-6 arg-13)) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased arg-5 (vector 8 arg-5 arg-4 e-5) arg-13)) eta-0))))))))))))
(define PartialEval-TTImp-case--19199-22066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) (else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)) eta-0))))))))))))
(define PartialEval-TTImp-case--19156-21949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (Context-Core-clearDefs arg-7 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((PartialEval-TTImp-specialise (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-11 arg-10 arg-9 arg-4 (PartialEval-TTImp-n--18159-21884-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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-8)) eta-0))))))))))))))))))))))))))))))
(define PartialEval-TTImp-case--18159-21919 (lambda (arg-0 arg-1 arg-2 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--19156-21949 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-2) e-5)) eta-0))))))))))))
(define PartialEval-TTImp-case--18135-21496 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-6 (vector 0 ) e-1)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-6 (vector 0 ) (vector 2 arg-3 arg-2))) eta-0)))))))
(define PartialEval-TTImp-case--18418-21445 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18437-21380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18418-21292 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18135-21276-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--18135-21228 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-8 arg-4 arg-14)) ext-0)))
(define PartialEval-TTImp-case--18241-21168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17814-20764 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))) eta-0)))))))
(define PartialEval-TTImp-case--17784-20732 (lambda (arg-0 arg-1 arg-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))) eta-0)))))))
(define PartialEval-TTImp-case--17581-20593 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define PartialEval-TTImp-case--17514-20527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--17581-20593 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define PartialEval-TTImp-case--17134-20468 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-8 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-2 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((PartialEval-TTImp-n--17134-20152-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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (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-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((PartialEval-TTImp-case--17581-20593 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))
(define PartialEval-TTImp-case--17253-20295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 (vector 0 arg-13 (vector 0 e-1)) arg-14))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define PartialEval-TTImp-case--17202-20239 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles arg-0 e-5 arg-4 arg-10 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((PartialEval-TTImp-eraseInferred 'erased arg-8 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((PartialEval-TTImp-case--17253-20295 arg-0 arg-1 arg-2 arg-3 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--17134-20151-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 (vector 0 arg-13 (vector 1 )) arg-14))) eta-0)))))))
(define PartialEval-TTImp-case--17150-20203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--17202-20239 arg-0 arg-1 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-13 arg-12))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define PartialEval-TTImp-case--17001-20061 (lambda (arg-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--16895-19951-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased arg-4 (vector 1 arg-4 (vector 1 ) arg-3) e-5)) eta-0)))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define PartialEval-TTImp-case--16895-20019 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-7 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--16895-19951-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-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) argsE) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 1 ) e-7) e-10)) eta-0))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-3)) eta-0)))))))))))))))))
(define PartialEval-TTImp-case--16926-19967 (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--16895-19951-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--16895-19951-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--15734-19895 (lambda (arg-0 arg-1 arg-2 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--16590-19723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))))
(define PartialEval-TTImp-case--16037-19664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (let ((act-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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))) eta-0))))))))))))
(define PartialEval-TTImp-case--16202-19421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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-15 (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--15734-18911-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0)))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))) eta-0)))))))
(define PartialEval-TTImp-case--16037-19327 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (PartialEval-TTImp-n--15734-18910-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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--15734-18911-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-1))))))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-17 (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--15734-18911-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-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-19 (Context-Core-setAllPublic arg-9 1 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-1 (vector 1 arg-6 (vector 1 ) arg-2))) eta-0)))))))
(define PartialEval-TTImp-case--15734-19171 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (Context-Core-logC arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-15 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16 (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (let ((e-0 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-9 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-0 eta-2))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6)) eta-2)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-2)))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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))) eta-2))))))))))) arg-3) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1)))))))))))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-addToSave arg-9 (vector 9 e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((specnames (PartialEval-TTImp-n--15734-18908-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-19 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 n (+ 1 0))) eta-1))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 ((PartialEval-TTImp-getReducible (vector 1 arg-2 (vector 0 )) (NameMap-Data-empty 'erased) e-10) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--16037-19327 '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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-13) eta-0)))))))))))
(define PartialEval-TTImp-case--15898-19091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--15734-19060 (lambda (arg-0 arg-1 arg-2 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--15665-18856 (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--15650-18838 (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-15 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--15170-18742 (lambda (arg-0 arg-1 arg-2 arg-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--15170-18372-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-15 ((PartialEval-TTImp-n--15170-18373-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 (vector 0 arg-8 lhs e-5) (vector 0 )))) eta-0)))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-n--15170-18377-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))))))))
(define PartialEval-TTImp-case--15097-18314 (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--14977-18202 (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--14770-18026 (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--14734-17987 (lambda (arg-0 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--14567-17826 (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--14468-17747 (lambda (arg-0 arg-1 arg-2 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--15170-18377-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-15 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((lhsC-39 (PartialEval-TTImp-n--15170-18376-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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-8 lhsC-39 e-12)) eta-0))))))))))))))))))))))))))))))))))
(define PartialEval-TTImp-n--15734-18910-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-15 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 (Normalise-Core-normaliseArgHoles e-2 e-8 e-6 e-11 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 (Unelab-TTImp-unelabNoSugar e-2 arg-9 e-6 e-9 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-6 e-5 e-12)) eta-0)))))))))))))))))))))))))))))))))
(define PartialEval-TTImp-n--15734-18911-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--15170-18375-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--15170-18375-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--15170-18375-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--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc15 act-15)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc15 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc16 act-16)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc16 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc17 act-17)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc17 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc14 act-15)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-16)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-17)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc14 act-15)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-16)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-17)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc14 act-15)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc15 act-16)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc15 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc16 act-17)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc16 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc14 act-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))(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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))(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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-35 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--15170-18373-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))(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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (((e-14 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-8 1))) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-9 (vector 0 ) e-26 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) ((PartialEval-TTImp-n--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))(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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))(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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))))))))))))))(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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))))(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--15170-18373-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-11) eta-0))))))))))
(define PartialEval-TTImp-n--15170-18372-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--15170-18372-mkDynNames 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 (Prelude-C-43_Num__Int (Prelude-fromInteger_Num__Int 1) arg-10) e-3)))(else (PartialEval-TTImp-n--15170-18372-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--15170-18372-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--17134-20152-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) 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))) (lambda (eta-0) (let ((act-15 ((PartialEval-TTImp-n--17134-20152-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--17202-20239 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-9 arg-10)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))
(define PartialEval-TTImp-n--15170-18374-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--15170-18374-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--15170-18374-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--15734-18908-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--15734-18908-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--15734-18908-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--18135-21276-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--18418-21292 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--18135-21276-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--18159-21884-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--18159-21884-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--16895-19951-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--16926-19967 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-4 arg-5)))))))))
(define PartialEval-TTImp-n--15170-18376-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--15170-18375-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--15170-18374-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--17134-20150-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--17134-20150-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--17134-20151-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--17134-20150-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--18135-21139-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--18241-21168 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--18135-21139-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--14567-17826 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--14468-17747 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) 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--17134-20468 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--14977-18202 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))))))
(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--18135-21228 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--18135-21139-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--18135-21496 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--18135-21276-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-7 e-6 e-7)) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-7 e-6 e-7)) eta-0)))))))) (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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-7 e-9 e-10 e-5)) eta-0)))))))))))))))
(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-15 (PartialEval-TTImp-bName arg-5 "qv" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 e-7 e-6)) eta-0)))))))))))))))))))))) ((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-15 ((Context-Core-lookupCtxtExact e-50 (let ((sc3 arg-6)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--19156-21949 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-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-6 (vector 1 e-6 (vector 1 ) e-50) e-9)) eta-0))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-6 e-5 e-9)) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-6 e-5 e-9)) 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))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-10 (vector 1 e-10 (vector 2 e-12 e-13) e-11) e-5)) 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-16 (vector 1 e-16 (vector 3 e-18 e-19) e-17) e-5)) eta-0))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-22 e-23 e-5 e-6)) eta-0))))))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-27 e-28 e-5)) eta-0))))))))))) ((6) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure arg-1 arg-6 e-34) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-evalClosure arg-1 arg-6 e-33) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-31 e-32 e-8 e-6)) eta-0))))))))))))))))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Normalise-Core-evalClosure arg-1 arg-6 e-4) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-1 e-7 e-5)) eta-0))))))))))))))(else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-36 (vector 8 e-36 e-37 e-6) e-5)) eta-0)))))))))))))))))))) ((8) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-41 e-42)) eta-0))))) ((9) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-44 e-45)) eta-0))))) (else (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-47)) eta-0))))))))
(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-6 e-5)) 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-8 e-9)) 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-9 e-6 e-5)) 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-13 e-6 e-5)) eta-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-17 e-5 e-6)) eta-0)))))))))))))))) (else (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-21 e-5)) eta-0))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure arg-1 arg-6 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) eta-0))))))))))))))))))))))))
(define PartialEval-TTImp-mkSubsts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (PartialEval-TTImp-mkSubsts 'erased (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-1) arg-2 e-3 arg-4) (lambda (subs) (PartialEval-TTImp-case--14734-17987 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-setAllPublic arg-1 0 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Context-Core-lookupCtxtExact arg-6 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (let ((act-18 (Context-Core-logC arg-1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-1) (let ((act-18 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-8 eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((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-19 (let ((sc6 e-3)) (case (vector-ref sc6 0) ((0) (let ((e-0 (vector-ref sc6 1))) (let ((act-19 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-0 eta-2))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-9)) eta-2)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-2)))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-2))) (else (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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))) eta-2))))))))))) arg-7) eta-1))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1)))))))))))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Context-Core-addToSave arg-1 (vector 9 e-10) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((specnames (PartialEval-TTImp-n--15734-18908-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-22 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 n (+ 1 0))) eta-1))) (NameMap-Data-keys 'erased specnames)) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-24 ((PartialEval-TTImp-getReducible (vector 1 arg-8 (vector 0 )) (NameMap-Data-empty 'erased) e-13) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((act-25 (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-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc11 1))) (let ((_-0 (vector 0 ))) ((PartialEval-TTImp-case--16037-19327 '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-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased peapp) eta-0)))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-8 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-9 (vector 1 arg-4 (vector 1 ) arg-8))) eta-0)))))))))))))))) 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--15170-18742 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (PartialEval-TTImp-case--15650-18838 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((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-17)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-8) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 (vector 1 e-1 (vector 1 ) e-3))) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 arg-6)) eta-0))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 (vector 2 e-5 e-6 e-7 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))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 (vector 3 e-10 e-11 e-5 e-6))) eta-0))))))))))))))))) ((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-15 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-17) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-21) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 (vector 6 e-19 e-20 e-5))) eta-0))))))))))) ((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-15 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-25) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-26) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 (vector 7 e-23 e-24 e-5 e-6))) eta-0))))))))))))))))) ((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-15 ((PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) e-30) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 (vector 8 e-28 e-29 e-5))) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (PartialEval-TTImp-unload 'erased arg-5 arg-6)) eta-0)))))))
(define PartialEval-TTImp-evalRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) (Prelude-fromInteger_Num__Int 0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((Binder-Core-Core-traverse 'erased 'erased (lambda (eta-1) (PartialEval-TTImp-eraseInferred 'erased arg-1 eta-1)) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((PartialEval-TTImp-eraseInferred 'erased arg-1 e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 e-5 e-6)) eta-0)))))))))))))))))(else (PartialEval-TTImp-case--16895-20019 '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--15097-18314 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-1 arg-2)))))))))
(define PartialEval-TTImp-bName (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Prelude-C-43_Num__Int e-5 1) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-1 e-5)) ext-0))))))))))))
(define PartialEval-TTImp-applySpecialise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (PartialEval-TTImp-findSpecs arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) arg-6)) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-nf arg-0 e-5 arg-4 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (PartialEval-TTImp-evalRHS arg-0 arg-1 arg-2 arg-3 arg-4 e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-8 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) eta-0))))))))))))))))))))))))))))))))))))
(define Impossible-TTImp-case--13521-16380 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (Impossible-TTImp-n--13511-16342-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)) (else (vector 1 (vector 30 arg-8 1) (Impossible-TTImp-n--13511-16342-addEnv arg-0 arg-1 arg-2 arg-3 arg-5 arg-8 arg-6)))))))
(define Impossible-TTImp-case--12640-16171 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((Normalise-Core-nf (vector 0 ) arg-7 (vector 0 ) e-11) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--12635-15957 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--12950-15860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12635-15822-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--12635-15715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (Impossible-TTImp-nextVar arg-8 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-5)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Impossible-TTImp-mkTerm arg-9 arg-8 e-5 (vector 1 arg-0) (vector 0 ) (vector 0 )) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 (((arg-2 arg-10) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--12706-15618 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12635-15597-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--12635-15597-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--12706-15618 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--12635-15597-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--12635-15597-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--12635-15822-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--12950-15860 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--12635-15822-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--12635-15822-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--12409-15324-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-C-61C-61_Eq__Name e-18 e-29)) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--12409-15324-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-61C-61_Eq__Constant e-24 e-35)) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--12409-15324-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))) ((10) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) ((Impossible-TTImp-n--12409-15324-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) ((Impossible-TTImp-n--12409-15324-sameRet arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))
(define Impossible-TTImp-n--13511-16341-isLet (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) 0)(else 1)))))
(define Impossible-TTImp-n--13511-16343-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 8 e-0 (Impossible-TTImp-n--13511-16343-applyEnv arg-0 arg-1 arg-2 arg-3 e-1) e-2))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--13511-16343-applyEnv arg-0 arg-1 arg-2 arg-3 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply arg-4 (Impossible-TTImp-n--13511-16342-addEnv arg-0 arg-1 arg-2 arg-3 arg-0 (TTImp-TTImp-getFC arg-4) arg-2)))))))
(define Impossible-TTImp-n--13511-16342-addEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-6)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-6)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--13521-16380 arg-0 arg-1 arg-2 arg-3 e-2 e-3 e-9 e-8 arg-5 (Impossible-TTImp-n--13511-16341-isLet arg-0 arg-1 arg-2 arg-3 'erased e-8))))))))))))
(define Impossible-TTImp-processArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((2) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (let ((e-10 (vector-ref sc1 3))) (let ((sc2 e-9)) (case (vector-ref sc2 0) ((1) (let ((sc3 arg-4)) (case (vector-ref sc3 0) ((1) (let ((e-15 (vector-ref sc3 1))) (let ((e-16 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Impossible-TTImp-mkTerm arg-0 arg-1 e-15 (vector 1 e-10) (vector 0 ) (vector 0 )) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-17 (((e-6 e-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) e-7)) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) 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 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--12635-15715 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--12635-15597-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((Impossible-TTImp-case--12635-15957 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--12635-15822-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) 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 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) 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 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) 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 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Prelude-C-43_Num__Int e-5 1) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-1 (vector 0 ) (vector 2 "imp" e-5))) ext-0))))))))))))
(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)))))) ((26) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-9 e-10)) eta-0)))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) ((Impossible-TTImp-n--12409-15324-sameRet e-2 e-6 e-7 arg-1 arg-0 arg-1 e-8) eta-0))))))))))))))))))))
(define Impossible-TTImp-getImpossibleTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Core.Normalise.QVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--13511-16343-applyEnv arg-0 arg-3 arg-2 arg-1 arg-3) (vector 0 ) (vector 0 ) (vector 0 )) ext-0))))))))
(define Impossible-TTImp-dropNoMatch (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-4 (vector 0 ))) eta-0)))(else (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-fromIntegerName arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-fromStringName arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-fromCharName arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((sc4 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Name-Core-C-61C-61_Eq__Name arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Name-Core-C-47C-61_Eq__Name arg-625 arg-626)))) arg-623 arg-624)))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (Context-Core-lookupTyName arg-3 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Impossible-TTImp-dropNoMatch arg-0 arg-4 e-10) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-22 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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--11311-7568 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))
(define Transform-Core-case--11038-7330 (lambda (arg-0 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-5 (Prelude-C-124C-124 e-5 (lambda () e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0))))))))))))))))
(define Transform-Core-case--11013-7279 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-3 (vector 1 arg-2 (vector 1 ) arg-1))) eta-0))) (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--11038-7330 '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--10959-7230 (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--10855-7168 (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--10836-7125 (lambda (arg-0 arg-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--10536-6881 (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--10440-6795 (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--10421-6752 (lambda (arg-0 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--10440-6795 '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--10326-6690 (lambda (arg-0 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-2914) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__Maybe 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2982 arg-2984)))))) (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--10836-7125 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))(else (let ((e-0 (- arg-2 1))) (lambda (eta-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Core.Transform.Upd" ) 1 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Transform-Core-trans 'erased arg-1 e-5 arg-3 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-0))))))))))))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Transform-Core-case--11013-7279 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-4 arg-5)) eta-0))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-4 (vector 2 e-5 e-6 e-7 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))) (let ((e-13 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Transform-Core-trans 'erased arg-1 arg-2 (vector 1 e-5 arg-3) (vector 0 ) e-13) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-4 (vector 3 e-10 e-11 e-5 e-6))) eta-0))))))))))))))))) ((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-15 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-17) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-21) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-4 (vector 6 e-19 e-20 e-5))) eta-0))))))))))) ((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-15 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-25) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-26) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-4 (vector 7 e-23 e-24 e-5 e-6))) eta-0))))))))))))))))) ((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-15 ((Transform-Core-trans 'erased arg-1 arg-2 arg-3 (vector 0 ) e-30) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-4 (vector 8 e-28 e-29 e-5))) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Transform-Core-unload 'erased arg-4 arg-5)) eta-0)))))))
(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--10536-6881 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--10536-6881 '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--10326-6690 '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--10959-7230 '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--10421-6752 '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--15653-5378 (lambda (arg-0 arg-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--15621-5353 (lambda (arg-0 arg-1 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-15 (Context-Core-lookupDefExact arg-5 (let ((sc1 arg-7)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) eta-0)))))))
(define Termination-Core-case--15606-5325 (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-15 (Context-Core-getTotality arg-2 arg-1 n eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-case--15621-5353 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--15530-5266 (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-15 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))))))
(define Termination-Core-case--15512-5245 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (Termination-Core-calcPositive arg-2 arg-1 arg-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Context-Core-setTerminating arg-2 arg-1 arg-3 e-2 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0)))))))
(define Termination-Core-case--15343-5116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 arg-11) arg-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 arg-10)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-14 arg-10)) eta-0)))))))
(define Termination-Core-case--15325-5082 (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-15 ((Termination-Core-totRefsIn 'erased arg-2 arg-3 e-6) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc3 1))) (let ((sc4 e-15)) (case (vector-ref sc4 0) ((1) (let ((act-16 ((Termination-Core-checkData arg-2 arg-3 (vector 1 arg-0 e-12) e-13) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-13)) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-15 e-13)) 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 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--15274-5040 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0)))))))
(define Termination-Core-case--15199-4987 (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-15 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-5) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))
(define Termination-Core-case--15188-4958 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Termination-Core-totRefsIn 'erased arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-16 ((Normalise-Core-nf (vector 0 ) arg-2 (vector 0 ) e-2) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) ((Termination-Core-checkPosArgs arg-2 arg-1 e-6) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0))))))))))))))))
(define Termination-Core-case--15113-4898 (lambda (arg-0 arg-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-15 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-checkPosArgs arg-7 arg-6 e-5) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) eta-0)))))))
(define Termination-Core-case--14818-4834 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 (vector 0 ))) eta-0))) (else (lambda (eta-0) (let ((act-15 (((arg-3 arg-7) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-posArg arg-7 arg-6 e-5) eta-0))))))))))))
(define Termination-Core-case--14818-4778 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 (vector 0 ))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))))
(define Termination-Core-case--14818-4712 (lambda (arg-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--14818-4639-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--14832-4656 (lambda (arg-0 arg-1 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--14818-4639-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--14818-4639-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--14666-4562 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-6 eta-1)) arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14666-4496 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (lambda (eta-0) (let ((act-15 (((arg-0 arg-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-3 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-nameIn arg-5 arg-4 e-5) eta-0))))))))))))
(define Termination-Core-case--14618-4450 (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-15 (Termination-Core-calcTerminating arg-2 arg-1 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-setTerminating arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define Termination-Core-case--14511-4384 (lambda (arg-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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Termination-Core-initArgs e-5 e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))
(define Termination-Core-case--14317-4344 (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-15 ((Termination-Core-n--14317-4176-addCases arg-0 arg-1 arg-2 arg-3 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Termination-Core-totRefs arg-2 arg-3 (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-5)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-17 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (Normalise-Core-getArity (vector 0 ) arg-3 (vector 0 ) ty eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) ((Termination-Core-initArgs e-7 e-8) eta-0)))))))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-0)))))))))))))))))))))
(define Termination-Core-case--14387-4259 (lambda (arg-0 arg-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--14317-4175-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--14317-4175-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--14339-4234 (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-15 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14317-4175-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--14317-4175-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--14317-4175-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--14322-4192 (lambda (arg-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--14317-4175-addCasesC-39 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)) (else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-2 arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--14339-4234 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--14208-4127 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Termination-Core-n--13827-3735-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--13827-4073 (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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575)))) (Termination-Core-n--13827-3729-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-15 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (Termination-Core-n--13827-3735-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--14042-3948 (lambda (arg-0 arg-1 arg-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 ((sc1 e-0)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0)))))))
(define Termination-Core-case--13840-3924 (lambda (arg-0 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 ((sc1 arg-9)) (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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0)))))))
(define Termination-Core-case--13839-3856 (lambda (arg-0 arg-1 arg-2 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--13827-3732-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--13827-3731-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--13827-3732-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))))))))
(define Termination-Core-case--13723-3645 (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--13312-3365 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))))))
(define Termination-Core-case--11586-3241 (lambda (arg-0 arg-1 arg-2 arg-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-1) (let ((act-17 (Termination-Core-getCasePats arg-0 arg-8 fn arg-5 arg-1 eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)) (else (let ((e-2 (vector-ref sc4 1))) (let ((act-18 ((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-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)) eta-1)))))))))))))))))) (vector 0 ))) (lambda (eta-1) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-7))) eta-1)))))))) 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--11581-3174 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Termination-Core-n--11581-2773-matchArgs arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-6))) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Termination-Core-case--12776-3057 (lambda (arg-0 arg-1 arg-2 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--12776-2949-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--12775-2894 (lambda (arg-0 arg-1 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--11581-2770-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9))))))
(define Termination-Core-case--12775-2806 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11581-2770-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--12578-2640 (lambda (arg-0 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--11577-2600 (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--12578-2640 '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--12477-2561 (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--12441-2516 (lambda (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--11575-2485 (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--12441-2516 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1)))))))
(define Termination-Core-case--11571-2441 (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--11927-2270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-12 arg-11 e-5 arg-13 eta-0))))))))) (else (lambda (eta-0) (Termination-Core-findSCcall arg-0 arg-6 arg-5 arg-4 (vector 1 ) arg-2 arg-12 arg-11 0 arg-13 eta-0)))))))
(define Termination-Core-case--11885-2013 (lambda (arg-0 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-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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))))))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc7 arg-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc6 arg-5)) (let ((e-0 (vector-ref sc6 1))) e-0)) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))))))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc5 arg-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))))))))))(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-15 (Context-Core-lookupTyExact e-11 (let ((sc4 arg-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (Normalise-Core-getArity (vector 0 ) arg-5 (vector 0 ) e-1 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))))))))))))))
(define Termination-Core-case--11567-1978 (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-15 ((Termination-Core-n--11567-1837-conIfGuarded arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Termination-Core-case--11885-2013 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-2 e-3 e-5 (vector 0 arg-3 (vector 0 e-5 e-3))) eta-0))))))))))))
(define Termination-Core-case--11741-1885 (lambda (arg-0 arg-1 arg-2 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-8 (vector 2 0 0) arg-7)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-8 (vector 1 ) arg-7)) eta-0)))))))
(define Termination-Core-case--11722-1857 (lambda (arg-0 arg-1 arg-2 arg-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--11741-1885 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-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-8 (vector 1 ) arg-7)) eta-0)))))))
(define Termination-Core-case--11567-1773 (lambda (arg-0 arg-1 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--11392-1617 (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--11392-1579 (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--11392-1545 (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--10663-1285 (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-15 ((Termination-Core-n--10663-896-allGuarded arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Termination-Core-case--10671-1235 (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--10663-896-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Termination-Core-case--10901-1134 (lambda (arg-0 arg-1 arg-2 arg-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--10663-894-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Termination-Core-case--10670-1108 (lambda (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-15 ((Context-Core-lookupCtxtExact arg-0 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--10663-894-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Termination-Core-case--10782-1014 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11)))))) eta-0)))))))
(define Termination-Core-case--10669-999 (lambda (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--10782-1014 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Termination-Core-case--10668-933 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (vector 8 ) (let ((sc1 e-1)) (let ((e-11 (vector-ref sc1 12))) e-11)))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Termination-Core-case--10518-815 (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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575)))) (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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575)))) (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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))
(define Termination-Core-case--10496-764 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))(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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575)))) (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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575)))) (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-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Terminating arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Terminating arg-4574 arg-4575)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))))))
(define Termination-Core-case--10474-748 (lambda (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--10496-764 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define Termination-Core-n--12776-2949-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--11581-2771-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--11581-2771-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--11581-2771-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--11581-2771-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--11581-2771-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--11581-2771-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--11581-2771-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--11581-2771-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--11581-2771-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--11581-2771-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--11581-2771-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--11581-2771-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--12776-3057 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--11581-2770-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7))))
(define Termination-Core-n--11581-2772-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--11581-2771-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))
(define Termination-Core-n--13827-3731-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--13827-3732-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--13827-3732-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--13839-3856 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--13827-3730-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9))))))))))))))))
(define Termination-Core-n--11581-2773-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--11581-2772-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--11581-2770-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--12775-2806 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--12775-2894 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--10663-893-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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-15 ((Context-Core-lookupCtxtExact e-12 (let ((sc2 arg-4)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (vector 8 ) (let ((sc4 e-1)) (let ((e-22 (vector-ref sc4 12))) e-22)))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Termination-Core-n--10663-895-guarded (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-clearDefs e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Normalise-Core-nf arg-3 e-6 arg-4 arg-5) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Termination-Core-n--10663-893-guardedNF arg-0 arg-1 arg-2 arg-3 e-5 arg-4 e-7) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (let ((act-19 ((Context-Core-lookupCtxtExact arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--10663-894-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0)))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))))))))))))))))))))))
(define Termination-Core-n--13827-3734-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--13827-3734-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--13827-3734-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2))))))))))
(define Termination-Core-n--13827-3730-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--13827-3730-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4))))))))))))
(define Termination-Core-n--11567-1735-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Termination-Core-n--14818-4639-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--14832-4656 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-7 arg-8)))))))))
(define Termination-Core-n--13827-3735-continue (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Termination-Core-n--13827-3733-checkCall arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 eta-0)) arg-6) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Termination-Core-n--13827-3734-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)) ext-0))))))))
(define Termination-Core-n--11567-1837-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-3 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--11741-1885 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-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (vector 8 ) (let ((sc5 e-4)) (let ((e-11 (vector-ref sc5 12))) e-11)))) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1 (vector 1 ) e-3)) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))
(define Termination-Core-n--10663-894-checkNotFn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--10782-1014 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0)))))))))))
(define Termination-Core-n--13827-3729-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--13827-3729-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))
(define Termination-Core-n--13827-3733-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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-15 ((Termination-Core-checkSC arg-5 arg-4 arg-3 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Termination-Core-n--13827-3732-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (let ((sc0 arg-7)) (let ((e-1 (vector-ref sc0 2))) e-1))) arg-6) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--13840-3924 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-6 inpath e-5 (Prelude-not inpath)) eta-0))))))))))
(define Termination-Core-n--10663-896-allGuarded (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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)) (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-15 (Termination-Core-n--10663-895-guarded arg-0 arg-1 arg-2 e-6 e-10 e-15 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((sc5 e-5)) (cond ((equal? sc5 0) ((Termination-Core-n--10663-896-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))))))))))
(define Termination-Core-n--14317-4175-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (NameMap-Data-keys 'erased arg-4)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Termination-Core-case--14322-4192 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--14317-4176-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--14317-4175-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 (Prelude-fromInteger_Num__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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Termination-Core-totRefs arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-2 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--10496-764 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0))))))))))))))))))))))
(define Termination-Core-smallerArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Termination-Core-case--11575-2485 '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--11571-2441 '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-15 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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--14818-4639-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-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) testargs) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-anyM 'erased (lambda (eta-1) (Termination-Core-nameIn arg-0 arg-1 eta-1)) e-7) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (cond ((equal? sc4 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 (vector 0 ))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) 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) (let ((e-14 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-15 ((Termination-Core-nameIn arg-0 arg-1 e-14) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 (vector 0 ))) eta-0)) (else (let ((act-16 (((e-10 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-7 1))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) ((Termination-Core-posArg arg-0 arg-1 e-6) eta-0)))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))))
(define Termination-Core-nextArg (lambda (arg-0) (Prelude-C-43_Num__Int arg-0 1)))
(define Termination-Core-nameIn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Termination-Core-nameIn arg-0 arg-1 (TT-Core-binderType 'erased e-3)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else (let ((act-16 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14666-4562 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-11 arg-1)))))))) ((2) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-0 eta-1)) e-20) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Termination-Core-nextArg e-5) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Termination-Core-initArgs arg-0 e-0) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 (vector 0 e-5 (vector 1 ))) e-7)) eta-0))))))))))))))))))))))
(define Termination-Core-getSC (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Termination-Core-findCalls arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Termination-Core-getCasePats (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Context-Core-lookupDefExact arg-2 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Termination-Core-n--11581-2773-matchArgs arg-0 arg-4 arg-3 arg-2 arg-1 eta-0)) e-6))) ext-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))) (vector 1 (vector 0 (lambda () (Termination-Core-caseFn fn)) (lambda () (lambda (eta-0) (let ((act-18 (Termination-Core-getCasePats arg-0 arg-2 fn arg-5 arg-9 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-2 (vector-ref sc5 1))) (let ((act-19 ((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-19)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-9)) eta-0)))))))))))))))))) (vector 0 ))) (lambda (eta-0) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8))) eta-0)))))))) 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-15 ((Termination-Core-n--11567-1735-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-5 e-6)) eta-0)))))))))))))))))(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--11567-1978 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--11567-1978 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-15 (Context-Core-logC arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-2) (lambda (eta-3) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) 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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))))))) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Normalise-Core-normaliseOpts e-2 (Value-Core-tcOnly) arg-1 e-6 e-11 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--15606-5325 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-15 (Context-Core-getTotality arg-0 arg-1 arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Termination-Core-case--14618-4450 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--13827-4073 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Name-Core-C-61C-61_Eq__Name arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__Int arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Int arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__Int arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Int arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__Int arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Int arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__Int arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Int arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Name-Core-C-47C-61_Eq__Name arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__Int arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Int arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__Int arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Int arg-627 arg-628)))) arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__Int arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Int arg-627 arg-628)))) arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-629) (lambda (arg-630) (Prelude-C-47C-61_Eq__Int arg-629 arg-630)))) arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) pos arg-5)))))
(define Termination-Core-checkPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-getTotality arg-0 arg-1 e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Termination-Core-case--15512-5245 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-15 ((Termination-Core-posArg arg-0 arg-1 e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((act-16 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) ((Termination-Core-checkPosArgs arg-0 arg-1 e-9) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))))))
(define Termination-Core-checkIfGuarded (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupDefExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 ((Termination-Core-n--10663-896-allGuarded arg-2 arg-1 arg-0 e-7) ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Termination-Core-checkCon arg-0 arg-1 arg-2 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)))))))))))))))))
(define Termination-Core-checkCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Context-Core-lookupTyExact arg-3 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (let ((act-16 ((Termination-Core-totRefsIn 'erased arg-0 arg-1 e-2) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((act-17 ((Normalise-Core-nf (vector 0 ) arg-1 (vector 0 ) e-2) ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc4 1))) ((Termination-Core-checkPosArgs arg-1 arg-2 e-7) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) ext-0))))))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 ((Termination-Core-n--14317-4176-addCases arg-2 arg-1 arg-0 e-5 (NameMap-Data-keys 'erased (Context-Core-refersTo e-2))) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Termination-Core-totRefs arg-0 e-5 (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-7)) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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-19 (Core-Core-newRef 'erased 'erased (vector "Core.Termination.APos" ) (Termination-Core-firstArg) ext-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (Normalise-Core-getArity (vector 0 ) e-5 (vector 0 ) ty ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-10 (vector-ref sc7 1))) ((Termination-Core-initArgs e-9 e-10) ext-0)))))))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-8) ext-0))))))))))))))))))))))))))))))
(define Termination-Core-calcPositive (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupDefTyExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 ((Termination-Core-totRefsIn 'erased arg-0 e-5 e-7) ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc5 1))) (let ((sc6 e-17)) (case (vector-ref sc6 0) ((1) (let ((act-18 ((Termination-Core-checkData arg-0 e-5 (vector 1 arg-2 e-12) e-13) ext-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 e-13)) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-17 e-13)) 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 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--11577-2600 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
(define Coverage-Core-case--13854-9902 (lambda (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Coverage-Core-n--13849-9867-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0)))))))))))
(define Coverage-Core-case--13587-9671 (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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-5 (vector 1 e-5 (vector 0 ) e-7) e-8)) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-7 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) (Coverage-Core-n--13587-9611-dropPos 'erased arg-1 arg-2 e-5 0 eargs e-3)) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased e-5 (vector 1 e-5 e-6 e-7) e-10)) eta-0)))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-eraseApps 'erased arg-2 eta-1)) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-apply 'erased (TT-Core-getLoc 'erased e-2) e-2 e-5)) eta-0)))))))))))))))
(define Coverage-Core-case--13592-9627 (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--13587-9611-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--13587-9611-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4)))))))
(define Coverage-Core-case--13232-9390 (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--13232-9286-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--13232-9285-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--13260-9326 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Coverage-Core-case--13238-9310 (lambda (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--13260-9326 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Coverage-Core-case--12673-8787 (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--12577-8696 (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--12239-8458 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))) eta-0)))))))
(define Coverage-Core-case--12239-8398 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))) eta-0)))))))
(define Coverage-Core-case--12239-8342 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 3 (vector 2 "Coverage check")) (vector 0 ))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--11813-8102 (lambda (arg-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--11813-7961-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-10)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--11839-7997 (lambda (arg-0 arg-1 arg-2 arg-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-15 ((Normalise-Core-nf (vector 0 ) arg-6 (vector 0 ) e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-7 (vector 0 arg-7 (vector 0 e-4 e-5))))) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--11831-7971 (lambda (arg-0 arg-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--11839-7997 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--11620-7817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Coverage-Core-case--11599-7782 (lambda (arg-0 arg-1 arg-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--11620-7817 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Coverage-Core-case--11443-7673 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Coverage-Core-conflictMatch arg-0 e-2)) eta-0))))))))
(define Coverage-Core-case--11414-7632 (lambda (arg-0 arg-1 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-15 (let ((act-15 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) ((Coverage-Core-n--10812-7099-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 arg-2 e-7) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Coverage-Core-conflictMatch arg-0 e-8)) eta-0))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Coverage-Core-case--10812-7610 (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--11414-7632 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Coverage-Core-case--10824-7537 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--10824-7449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10812-7098-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--10824-7361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10812-7098-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-16 arg-8 arg-12)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--10862-7178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (List-Prelude-C-43C-43 'erased arg-13 e-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--10823-7142 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((Coverage-Core-n--10812-7098-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-10 arg-7 arg-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-2))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Coverage-Core-case--10296-7069 (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--10318-7028 (lambda (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--10296-6656-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6))))))
(define Coverage-Core-case--10630-6961 (lambda (arg-0 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--10296-6655-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9)))))))
(define Coverage-Core-case--10601-6937 (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--10630-6961 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--10296-6653-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2)))))))
(define Coverage-Core-case--10317-6915 (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--10601-6937 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--10317-6847 (lambda (arg-0 arg-1 arg-2 arg-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--10296-6654-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--10317-6769 (lambda (arg-0 arg-1 arg-2 arg-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--10296-6654-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--10316-6705 (lambda (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--10296-6654-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--13849-9867-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-4)) eta-0))))))) (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-15 (Coverage-Core-clauseMatches e-4 arg-2 e-5 e-6 arg-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (else (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else ((Coverage-Core-n--13849-9867-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0)))))))))))))))))))))))))
(define Coverage-Core-n--12869-8944-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-15 ((Coverage-Core-getCons arg-0 arg-3 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-5 (vector 0 ))) eta-0)))))))
(define Coverage-Core-n--13232-9286-notCovering (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExact arg-4 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--13260-9326 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0)))))))))))
(define Coverage-Core-n--12239-8494-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--13232-9285-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--13765-9783-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--13765-9783-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 arg-6 (Prelude-C-43_Num__Int arg-7 1) e-9))))))))))
(define Coverage-Core-n--12239-8442-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--12239-8382-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--10296-6654-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--10316-6705 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5)))))))
(define Coverage-Core-n--12068-8182-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--12869-8945-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--12869-8945-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--12869-8945-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
(define Coverage-Core-n--13587-9611-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--13592-9627 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-4 arg-5)))))))))
(define Coverage-Core-n--10296-6655-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--10317-6769 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--10317-6847 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--10317-6915 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4))))))))))
(define Coverage-Core-n--10812-7099-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-15 (((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Coverage-Core-n--10812-7099-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Int arg-6 1) 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-15 (Context-Core-clearDefs arg-4 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-0 e-5 arg-3 arg-7 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 (vector 0 e-41 e-6) (vector 0 )))) eta-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--10824-7361 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7449 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7537 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7361 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7449 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7537 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7361 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7449 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7537 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7361 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7449 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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--10824-7537 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))))))
(define Coverage-Core-n--10812-7098-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-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-15 ((Normalise-Core-evalClosure arg-0 arg-4 e-2) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-evalClosure (vector 0 ) arg-4 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((Coverage-Core-n--10812-7099-conflictNF arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5 e-8) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 ((Coverage-Core-n--10812-7098-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 e-7) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (List-Prelude-C-43C-43 'erased e-1 e-4))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0)))))))
(define Coverage-Core-n--10296-6656-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--10318-7028 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--10296-6655-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))))))))))))))
(define Coverage-Core-n--13765-9784-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--13765-9783-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8)))
(define Coverage-Core-n--10296-6653-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--12970-9031-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Coverage-Core-n--12970-9030-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-16 ((Coverage-Core-n--12970-9031-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 (Coverage-Core-addNot 'erased arg-3 arg-0 'erased e-6 arg-11) e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-9 e-10)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Coverage-Core-n--12970-9030-buildArgAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Coverage-Core-n--12970-9031-buildArgsAlt arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-5 e-6)) eta-0))))))))))))))))))))))
(define Coverage-Core-n--12970-9030-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) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((con (vector 1 arg-10 (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-10 con (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 1 arg-10 (vector 0 ) eta-1)) e-3)) eta-0)) arg-6))) (Coverage-Core-buildArgs (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-10 arg-9 (Coverage-Core-weakenNs 'erased arg-0 e-3 (vector 1 (vector 0 arg-3 e-2) arg-8)) (Coverage-Core-weakenNs 'erased arg-0 e-3 arg-11) 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-10 (vector 2 ) (vector 1 arg-10 (vector 0 ) e-6) (vector 1 arg-10 (vector 0 ) e-7)) eta-0)) arg-6))) (Coverage-Core-buildArgs (vector 1 e-6 (vector 1 e-7 arg-0)) arg-10 arg-9 (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-8) (Coverage-Core-weakenNs 'erased arg-0 (vector 1 e-6 (vector 1 e-7 (vector 0 ))) arg-11) 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-10 e-10) eta-0)) arg-6))) (Coverage-Core-buildArgs arg-0 arg-10 arg-9 arg-8 arg-11 psC-39 e-11))))) (else (let ((e-13 (vector-ref sc0 1))) (Coverage-Core-buildArgs arg-0 arg-10 arg-9 arg-8 arg-11 arg-6 e-13)))))))
(define Coverage-Core-n--11813-7961-addTy (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExact arg-7 (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--11839-7997 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Coverage-Core-n--12869-8944-rep arg-0 arg-4 arg-3 arg-2 arg-1 eta-1)) arg-4) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Coverage-Core-n--12869-8945-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) eta-0))))))))))))
(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-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342))) (lambda (arg-2519) (lambda (arg-2520) (Prelude-div_Integral__Int arg-2519 arg-2520))) (lambda (arg-2521) (lambda (arg-2522) (Prelude-mod_Integral__Int arg-2521 arg-2522)))) (vector 0 (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342))) (lambda (arg-2392) (Prelude-negate_Neg__Int arg-2392)) (lambda (arg-2393) (lambda (arg-2394) (Prelude-C-45_Neg__Int arg-2393 arg-2394)))))) (Prelude-fromInteger_Num__Int 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-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342))) (lambda (arg-2519) (lambda (arg-2520) (Prelude-div_Integral__Int arg-2519 arg-2520))) (lambda (arg-2521) (lambda (arg-2522) (Prelude-mod_Integral__Int arg-2521 arg-2522)))) (vector 0 (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342))) (lambda (arg-2392) (Prelude-negate_Neg__Int arg-2392)) (lambda (arg-2393) (lambda (arg-2394) (Prelude-C-45_Neg__Int arg-2393 arg-2394)))))) (Prelude-fromInteger_Num__Int 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-15 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-2)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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--11620-7817 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Coverage-Core-getNonCoveringRefs (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-2 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--13232-9286-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--13232-9285-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) ((11) (Coverage-Core-case--12239-8342 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--12239-8398 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--12239-8382-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--12239-8458 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--12239-8442-isDefault arg-0 e-4 arg-4 arg-2 arg-1 eta-0))) arg-4))))(else (lambda (eta-0) (let ((act-15 ((Coverage-Core-getCons arg-0 arg-2 arg-3) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-filter 'erased (lambda (eta-1) (Coverage-Core-n--12239-8494-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))) eta-0))))))))))))
(define Coverage-Core-getMissing (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 ((Coverage-Core-buildArgs arg-0 arg-2 e-5 (vector 0 ) (vector 0 ) psIn arg-4) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) ext-0))))))))))))))
(define Coverage-Core-getCons (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((3) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Coverage-Core-n--11813-7961-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-16)) (case (vector-ref sc4 0) ((0) (let ((e-16 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-16)) eta-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--12577-8696 '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--13587-9671 '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--12068-8182-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--10296-7069 arg-0 e-6 e-7 e-3 (Coverage-Core-n--10296-6656-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-15 ((Context-Core-lookupCtxtExact arg-5 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--11414-7632 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0)))))))))))
(define Coverage-Core-clauseMatches (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 ((Coverage-Core-eraseApps 'erased arg-1 (Coverage-Core-n--13765-9784-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((lhs e-5)) (let ((act-16 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) lhs ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-toResolvedNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-4 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Coverage-Core-match 'erased e-6 e-7)) ext-0)))))))))))))))))))
(define Coverage-Core-checkMatched (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Coverage-Core-eraseApps 'erased arg-0 arg-2) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Coverage-Core-n--13849-9867-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-15 ((Normalise-Core-nf arg-0 arg-2 fenv e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((Coverage-Core-replaceDefaults arg-0 arg-1 arg-2 e-6 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-17 ((Coverage-Core-getMissingAlts arg-0 arg-1 arg-2 e-6 e-7) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--12970-9031-buildArgsAlt arg-0 e-5 e-4 e-2 e-0 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-4 altsN) eta-0)))))))))))))))))))))))))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-5 (vector 0 ))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--12673-8787 '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--14585-4860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))(else (let ((sc3 arg-13)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4037-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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))))(else (let ((sc2 arg-13)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4037-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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))(else (let ((sc1 arg-13)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4037-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))(else (let ((sc0 arg-13)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4037-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0)))))))))))))
(define CaseBuilder-Core-with--14584-4684 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))))(else (let ((sc3 arg-12)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4036-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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))))(else (let ((sc2 arg-12)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4036-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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))(else (let ((sc1 arg-12)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4036-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0)))))))))))))))(else (let ((sc0 arg-12)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4036-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0)))))))))))))
(define CaseBuilder-Core-with--14583-4361 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0)))))))(else (let ((sc3 arg-15)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4035-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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))))(else (let ((sc2 arg-15)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4035-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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))(else (let ((sc1 arg-15)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4035-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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0))))))))))))))))(else (let ((sc0 arg-15)) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-n--14559-4035-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 e-5)) eta-0)))))))))))))
(define CaseBuilder-Core-with--12779-2509 (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--12817-2526 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--12817-2656 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--12817-2592 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--12817-2656 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--12817-2656 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))
(define CaseBuilder-Core-case--19210-8532 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--19210-8340-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0)))) eta-0))))))))
(define CaseBuilder-Core-case--19302-8359 (lambda (arg-0 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--19210-8340-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Int arg-9 1) arg-8 arg-7)) (else (vector 1 arg-6 (CaseBuilder-Core-n--19210-8340-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Int arg-9 1) arg-8 arg-7)))))))
(define CaseBuilder-Core-case--18869-7975 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseTree-Core-argToPat eta-1)) arg-7) arg-1)) eta-0))) (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--18828-7938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (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--18869-7975 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--18790-7906 (lambda (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-15 ((Context-Core-getPosition arg-5 (let ((sc1 arg-8)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--18869-7975 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--18775-7874 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-16 ((Context-Core-getPosition arg-2 (let ((sc4 e-8)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Context-Core-getPosition e-7 (let ((sc6 e-8)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (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--18869-7975 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--18297-7406 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 2 ))) eta-0))) (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-15 (((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-11 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-8) (vector 0 e-9 (TT-Core-embed 'erased 'erased e-12)))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-15 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-8)))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 (Normalise-Core-quote_Quote__NF (vector 0 ) arg-15 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-5)))) eta-0))))))))))))))))
(define CaseBuilder-Core-case--17510-7019 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))(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--17499-6690 (lambda (arg-0 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 "No clauses")) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) e-5) eta-0))))))))))))))
(define CaseBuilder-Core-case--17285-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) (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (+ 1 e-3))) eta-0)))))))
(define CaseBuilder-Core-case--17209-6422 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 0)) eta-0)))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-4 (+ 1 e-3))) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (+ 1 e-3))) eta-0)))))))))))))))
(define CaseBuilder-Core-case--17033-6354 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 0)) eta-0))) (else (lambda (eta-0) (let ((act-15 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 0)) eta-0))(else (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-4 (+ 1 e-3))) eta-0))))))))))))))(else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (+ 1 e-3))) eta-0)))))))))))))))))))))))
(define CaseBuilder-Core-case--17064-6286 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 0)) eta-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--17033-6226 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 0)) eta-0))) (else (lambda (eta-0) (let ((act-15 (CaseBuilder-Core-getScore 'erased 'erased arg-1 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 0)) eta-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--16924-6130 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2)) eta-0))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-9 eta-0)))))))
(define CaseBuilder-Core-case--16352-5784 (lambda (arg-0 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--16326-5599-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1)))))
(define CaseBuilder-Core-case--16352-5705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--16326-5599-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--16352-5626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16326-5599-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--15942-5507 (lambda (arg-0 arg-1 arg-2 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-15 ((Normalise-Core-nf arg-2 arg-11 arg-5 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-n--15942-5264-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--15979-5409 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15942-5264-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--14586-4962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--14559-4035-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--14584-4520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-5 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))) 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))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Error compiling Delay pattern match") eta-0)))))))
(define CaseBuilder-Core-case--14719-4273 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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 (CaseBuilder-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-6 1)) eta-0)))))))
(define CaseBuilder-Core-case--14583-4151 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 arg-6)) eta-2)))))) eta-1)))))) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyExact arg-16 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (CaseBuilder-Core-mkEnv arg-6 arg-9) (TT-Core-embed 'erased 'erased e-1)) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-6 1)) eta-0))))))))))))))))))))
(define CaseBuilder-Core-case--14583-4065 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 arg-16 arg-15 (vector 1 clause (vector 0 ))) (vector 0 ))) eta-0)))))))))
(define CaseBuilder-Core-case--14346-3994 (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--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-4) e-6))))))))
(define CaseBuilder-Core-case--14369-3938 (lambda (arg-0 arg-1 arg-2 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--14369-3868 (lambda (arg-0 arg-1 arg-2 arg-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--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-7))) (else (let ((e-2 (vector-ref sc0 1))) (vector 0 arg-9 e-2 (CaseBuilder-Core-n--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 arg-7))))))))
(define CaseBuilder-Core-case--14222-3789 (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--13745-3539 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 2 ))) eta-0))) (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-15 (((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-8) (vector 2 ))) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-11 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-8) (vector 0 e-9 e-12))) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 e-8))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 (Normalise-Core-quote_Quote__NF arg-2 arg-9 arg-11 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 e-5))) eta-0))))))))))))))))
(define CaseBuilder-Core-case--13806-3419 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (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--13745-3358 (lambda (arg-0 arg-1 arg-2 arg-3 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--13806-3419 arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))))
(define CaseBuilder-Core-case--13358-3203 (lambda (arg-0 arg-1 arg-2 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--13391-3058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13358-2984 (lambda (arg-0 arg-1 arg-2 arg-3 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--13391-3058 '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--12817-2656 (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--12817-2592 (lambda (arg-0 arg-1 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--12817-2526 (lambda (arg-0 arg-1 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--12486-2404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12448-2222-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--12486-2305 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (vector 1 )) (else (vector 0 ))))))
(define CaseBuilder-Core-case--11432-1304 (lambda (arg-0 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-15 ((CaseBuilder-Core-substInPats arg-0 arg-1 arg-8 arg-7 arg-6 arg-5 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-5)) eta-0))))))))))))
(define CaseBuilder-Core-case--11205-1152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--11078-1077 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (Normalise-Core-quote_Quote__NF arg-1 arg-11 arg-12 e-8 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 arg-12 e-9 arg-2) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-2)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-2)) eta-0)))))))
(define CaseBuilder-Core-case--11078-1004 (lambda (arg-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--11058-969 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))) ((1) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((env (CaseBuilder-Core-mkEnv arg-7 arg-1))) (let ((act-17 ((Normalise-Core-nf arg-1 e-5 env (TT-Core-substName arg-1 arg-6 arg-5 e-4)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (Normalise-Core-quote_Quote__NF arg-1 e-6 env e-9 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-19 (((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-20 ((CaseBuilder-Core-updatePats arg-1 arg-0 arg-8 env e-13 arg-2) eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0)))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-2)) eta-0))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-2)) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-2)) eta-0)))))))
(define CaseBuilder-Core-case--10905-876 (lambda (arg-0 arg-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--10661-821 (lambda (arg-0 arg-1 arg-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-6 arg-5 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-4 arg-3)) eta-0)))))))
(define CaseBuilder-Core-case--10709-726 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--10661-648 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__NF arg-0 e-6 arg-12 arg-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((CaseBuilder-Core-updatePats arg-0 arg-5 arg-1 arg-12 e-8 arg-10) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-11 arg-10)) eta-0)))))))
(define CaseBuilder-Core-n--17519-7117-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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))) ((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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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--17519-7117-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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-6 e-4 e-5)) eta-0)))))))))))))))))))))))))
(define CaseBuilder-Core-n--14346-3858-update (lambda (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))) (CaseBuilder-Core-case--14369-3868 '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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 eta-0)) e-7)))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-11 (vector-ref sc0 4))) (vector 2 e-8 e-9 e-10 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 eta-0)) e-11))))))) ((4) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (vector 4 e-12 e-13 (CaseBuilder-Core-n--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-14) (CaseBuilder-Core-n--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-15))))))) ((5) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 5 e-16 e-17 (CaseBuilder-Core-n--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-18) (CaseBuilder-Core-n--14346-3858-update 'erased 'erased 'erased arg-3 arg-4 arg-5 e-19))))))) ((6) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (CaseBuilder-Core-case--14369-3938 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-21 arg-5)))))(else arg-6)))))
(define CaseBuilder-Core-n--14325-3819-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--19210-8344-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--19210-8343-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--19210-8343-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--11615-1461-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--11615-1461-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--11615-1461-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--11615-1461-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))))))
(define CaseBuilder-Core-n--15942-5264-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 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-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-nf arg-2 e-7 arg-5 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseBuilder-Core-case--15979-5409 '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--15942-5263-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--16326-5599-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--16352-5626 '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--16352-5705 '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--16352-5784 '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--16326-5599-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--16326-5599-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--16326-5599-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--19210-8342-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--19210-8342-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (Prelude-C-43_Num__Int arg-7 1) arg-8 e-5))))))))
(define CaseBuilder-Core-n--18615-7733-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((CaseBuilder-Core-mkPatClause arg-7 arg-6 arg-5 arg-9 arg-3 arg-8 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CaseBuilder-Core-n--18615-7733-mkPatClausesFrom arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-43_Num__Int arg-8 1) arg-9 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0)))))))))))))))))))
(define CaseBuilder-Core-n--18282-7332-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (let ((sc5 arg-11)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 2 ))) eta-0)) (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-17 (((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-17)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-13 eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-17) (vector 0 e-15 (TT-Core-embed 'erased 'erased e-18)))) eta-0))))))))))))))(else (let ((act-17 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-13)))) eta-0)))))))))))))(else (let ((act-17 (Normalise-Core-quote_Quote__NF (vector 0 ) e-6 (vector 0 ) e-4 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 (TT-Core-embed 'erased 'erased e-7)))) eta-0))))))))))))))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((CaseBuilder-Core-n--18282-7332-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-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))))))))))))))))))))))))))))))
(define CaseBuilder-Core-n--19210-8341-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--19210-8341-labelPat arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased (Prelude-C-43_Num__Int arg-7 1) e-3)))))))))
(define CaseBuilder-Core-n--15942-5263-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--19210-8340-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--19302-8359 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) arg-6 arg-7)))))))))
(define CaseBuilder-Core-n--18615-7734-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--18615-7734-getNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-43_Num__Int arg-8 1) e-3))))))))
(define CaseBuilder-Core-n--12448-2223-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 ((sc1 arg-14)) (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))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((sc2 arg-15)) (case (vector-ref sc2 0) ((0) (let ((e-12 (vector-ref sc2 1))) (let ((e-13 (vector-ref sc2 2))) (CaseBuilder-Core-case--12486-2305 'erased 'erased 'erased arg-3 arg-4 'erased arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 e-6 e-7 e-8 e-9 e-10 e-13 e-12 (Prelude-C-38C-38 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-12) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-10)))))))(else (let ((sc2 arg-14)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 3))) (CaseBuilder-Core-n--12448-2223-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--12486-2404 '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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-1)))))(else (CaseBuilder-Core-n--12448-2222-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--12448-2223-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--12486-2404 '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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-1)))))(else (CaseBuilder-Core-n--12448-2222-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--12448-2223-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--12486-2404 '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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-1)))))(else (CaseBuilder-Core-n--12448-2222-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--19210-8259-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 ((CaseBuilder-Core-n--19210-8259-getArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 "arg" arg-5) e-10)) eta-0))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseBuilder-Core-n--14559-4039-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-12) 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 ((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-15 ((CaseBuilder-Core-n--14559-4038-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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) ((CaseBuilder-Core-n--14559-4039-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--19133-8188-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--16326-5598-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--19210-8343-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--19210-8342-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--12448-2222-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--17504-6810-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (e) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 3 e) (vector 0 ))) eta-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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((CaseBuilder-Core-n--17504-6810-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-7 e-8 e-6 e-5) e-10)) eta-0))))))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((CaseBuilder-Core-n--17504-6810-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-12 e-13 e-5) e-6)) eta-0)))))))))))))))) (else (let ((e-17 (vector-ref sc1 1))) (let ((e-18 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((CaseBuilder-Core-n--17504-6810-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-17 e-5) e-6)) eta-0))))))))))))))))))))))))
(define CaseBuilder-Core-n--14559-4038-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--14559-4038-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--14586-4962 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--14559-4035-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--14559-4035-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--14559-4036-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--14559-4037-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-18) eta-0)))))))
(define CaseBuilder-Core-n--14559-4036-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 10 arg-6)) (lambda (d) (lambda (a) (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure arg-9 d a) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 arg-6 (vector 2 ) e-5)) eta-1)))))) eta-0)))))))))))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-7 e-8 (vector 1 clause (vector 0 ))) (vector 0 ))) 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 (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--14584-4684 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--14559-4037-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 arg-11 (vector 1 (vector 0 arg-4 arg-12 arg-13 arg-14) (vector 0 ))) (vector 0 ))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--14585-4860 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--14559-4035-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-15 ((CaseBuilder-Core-case--14583-4151 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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CaseBuilder-Core-nextNames arg-9 arg-8 arg-7 arg-6 "e" arg-13 (vector 1 e-5)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 arg-11 arg-12 (vector 1 clause (vector 0 ))) (vector 0 ))) eta-0)))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CaseBuilder-Core-with--14583-4361 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--11615-1461-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-3112) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3112)))) (lambda (vars) (lambda (ns) (lambda (arg-3116) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3116)))))))
(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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (CaseBuilder-Core-n--17519-7117-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--10661-648 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--10661-821 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--10661-821 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--10661-821 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--14346-3858-update 'erased 'erased 'erased e-5 e-4 arg-2 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--14325-3819-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--18775-7874 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 ((CaseBuilder-Core-substInPats arg-0 e-3 arg-2 arg-3 arg-4 arg-5 e-4) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) eta-0)))))))))))))))))))))))))
(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--11058-969 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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 1 (vector 0 e-13 e-14 e-15 e-17) e-6) e-4 e-5)) eta-0))))))))))))))))))))))
(define CaseBuilder-Core-simpleCase (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 (Context-Core-logC arg-0 (+ 1 (+ 1 0)) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (c) (lambda (eta-1) (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) (Builtin-fst 'erased 'erased c) eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) (Builtin-snd 'erased 'erased c) eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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;"))))) eta-1))))))))))))) arg-6) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) e-5)) eta-0))))))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((CaseBuilder-Core-case--15942-5507 '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--16326-5599-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--16326-5598-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--16326-5598-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--17033-6226 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--17033-6354 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 2 "No definition"))) eta-0))) (lambda () (lambda (e) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) e)) eta-0)))) arg-6)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((ns (CaseBuilder-Core-n--18615-7734-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-15 ((CaseBuilder-Core-n--18615-7733-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Core.CaseBuilder.PName" ) 0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 ns e-8)) eta-0)))))))))))))))))))))))))))))
(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--12779-2509 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 0 ))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (CaseBuilder-Core-nextName arg-1 arg-4 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((env (CaseBuilder-Core-mkEnv arg-3 arg-0))) (let ((act-18 (let ((sc4 arg-6)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 2 ))) eta-0)) (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-18 (((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-17) (vector 2 ))) eta-0)))))))(else (let ((act-18 (((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-15 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc7 1))) (let ((act-19 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-12 eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-15) (vector 0 e-14 e-16))) eta-0)))))))))))))))))(else (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 e-12))) eta-0)))))))))))))(else (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-6 env e-4 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (vector 1 e-8))) eta-0))))))))))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--13806-3419 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))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))))))))))))))))
(define CaseBuilder-Core-nextName (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Prelude-C-43_Num__Int e-5 1) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-1 e-5)) ext-0))))))))))))
(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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((CaseBuilder-Core-n--18282-7332-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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) e-7 arg-5 (TT-Core-weakenNs_Weaken__Term (vector 0 ) arg-3 e-3))) eta-0))))))))))))))))))) (LengthMatch-Data-checkLengthMatch 'erased 'erased arg-3 e-2)))))))
(define CaseBuilder-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)) (CaseBuilder-Core-mkEnv arg-0 e-3))))))))
(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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-9)) eta-0)))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0)))))))))))))(else (let ((sc1 arg-5)) (let ((sc2 arg-9)) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0))))))))))))(else (let ((sc0 arg-5)) (let ((sc1 arg-9)) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0)))))))))
(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 "No clauses")) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) e-6) eta-0)))))))))))))))))))) (else (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((0) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 "No patterns")) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-0) eta-1)))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-12 e-13)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-12 e-13)) eta-0)))))))))))))))))))
(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--14559-4039-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-15 ((CaseBuilder-Core-sameType 'erased 'erased arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (CaseBuilder-Core-mkEnv arg-5 arg-2) arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0)))))) (lambda (err) (let ((sc0 err)) (case (vector-ref sc0 0) ((42) (let ((e-2 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2)) eta-0))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((CaseBuilder-Core-n--19210-8259-getArgs arg-4 arg-3 arg-2 arg-1 arg-0 0 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 (vector 0 (vector 2 "No clauses") (vector 0 )))) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((cs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CaseBuilder-Core-n--19210-8344-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--19210-8341-labelPat arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 'erased 0 arg-5)))) (let ((act-16 (CaseBuilder-Core-simpleCase arg-0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) cs eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-3 (CaseBuilder-Core-n--19210-8340-getUnreachable arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 0 reached arg-5)))) eta-0))))))))))))))))))))))
(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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--19133-8188-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 "No constructor clauses")) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-0) eta-1)))) 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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-17 (let ((sc6 e-21)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-4) eta-0)))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 42 arg-5 arg-6 (vector 4 )) eta-0)))))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--12448-2223-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--13358-2984 '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--13358-3203 '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-15 ((CaseBuilder-Core-n--17504-6810-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 arg-1 arg-8 (TT-Core-resolveNames arg-1 arg-10) e-5)) ext-0))))))))
(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 ProcessRecord-TTImp-case--19883-19648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--19821-19459 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 ((ProcessRecord-TTImp-n--18148-17974-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((sc2 arg-19)) (cond ((equal? sc2 0) ((ProcessRecord-TTImp-n--18148-17974-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (Context-Core-getNS arg-13 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((ProcessRecord-TTImp-n--18148-17974-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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((sc4 arg-19)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--18148-17974-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))))))))))))))))))))))))))))))))
(define ProcessRecord-TTImp-case--18148-19415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Context-Core-isUndottedRecordProjections arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 arg-5)) (case (vector-ref sc2 0) ((0) (let ((act-16 ((ProcessRecord-TTImp-n--18148-17974-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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((sc4 e-5)) (cond ((equal? sc4 0) ((ProcessRecord-TTImp-n--18148-17974-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-16 (Context-Core-extendNS arg-13 (vector 1 e-2 (vector 0 )) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (Context-Core-getNS arg-13 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 ((ProcessRecord-TTImp-n--18148-17974-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-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (let ((sc6 e-5)) (cond ((equal? sc6 0) ((ProcessRecord-TTImp-n--18148-17974-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))))))))))))))))))))))))))))))))))))) (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--18537-19230 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define ProcessRecord-TTImp-case--18537-19068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--18537-18904 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--18537-18722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 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--18537-18385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18174-18306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--18148-17974-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--18537-18385 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-623 arg-624)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-15 ((Context-Core-inCurrentNS arg-13 (arg-23 fldNameStr)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Unelab-TTImp-unelab arg-14 arg-13 arg-22 arg-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tyC-39 (Utils-TTImp-substNames arg-6 arg-24 e-6))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((rname (vector 2 "rec" 0))) (let ((act-18 (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--18148-17968-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--18148-17970-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--18148-17967-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--18148-17971-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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 ((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--18537-19230 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-19)) arg-4 (vector 1 (vector 0 ) (vector 0 )) (vector 0 arg-9 e-5 e-8))) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 30 arg-9 0)) (List-Prelude-C-43C-43 'erased (ProcessRecord-TTImp-case--18537-19068 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-623 arg-624)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--18148-17973-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 30 arg-9 0))))))) (let ((lhs (vector 8 arg-9 (vector 0 arg-9 e-5) (ProcessRecord-TTImp-case--18537-18904 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-623 arg-624)))) arg-18 (vector 1 )))))) (let ((rhs (vector 0 arg-9 (vector 1 fldNameStr)))) (let ((act-21 (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-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 ((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--18148-17974-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--18537-18722 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-621) (lambda (arg-622) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-623 arg-624)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessRecord-TTImp-case--18171-18096 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18148-17971-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--18171-18053-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--18148-17967-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--18167-17975-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--18148-17970-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--18148-17970-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--18167-17975-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11))))))))))))
(define ProcessRecord-TTImp-n--18148-17968-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--18148-17969-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--18148-17974-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--18174-18306 arg-0 arg-1 arg-2 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 arg-6)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessRecord-TTImp-n--18148-17972-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--18148-17970-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--18148-17967-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--18148-17970-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--18148-17969-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--18148-17971-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-15 (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--18148-17968-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((con (vector 0 arg-9 arg-14 e-5))) (let ((act-16 (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--18148-17968-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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--18148-17973-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--18148-17973-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--18148-17973-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--18171-18053-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--18171-18053-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--18171-18053-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-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 27 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-15 ((Context-Core-inCurrentNS arg-1 arg-12) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((ProcessRecord-TTImp-n--18148-17972-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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-lookupTyExact e-5 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19 (Context-Core-isUndottedRecordProjections arg-1 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 arg-8)) (case (vector-ref sc6 0) ((0) (let ((act-20 ((ProcessRecord-TTImp-n--18148-17974-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-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((sc8 e-9)) (cond ((equal? sc8 0) ((ProcessRecord-TTImp-n--18148-17974-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-20 (Context-Core-extendNS arg-1 (vector 1 e-2 (vector 0 )) ext-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-21 (Context-Core-getNS arg-1 ext-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 ((ProcessRecord-TTImp-n--18148-17974-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-22)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-23 (let ((sc10 e-9)) (cond ((equal? sc10 0) ((ProcessRecord-TTImp-n--18148-17974-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-25 (IORef-Data-writeIORef 'erased 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)))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) ext-0))))))))))))))))))))))))))))))))))))) (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--18290-18177 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-Prelude-C-43C-43 'erased arg-19 arg-16)))
(define ProcessParams-TTImp-case--18182-18094 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((defNames (TTImp-TTImp-definedInBlock (let ((sc4 e-5)) (let ((e-32 (vector-ref sc4 3))) e-32)) arg-0))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessParams-TTImp-n--18182-17997-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 ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((nestBlock (List-Prelude-C-43C-43 'erased e-8 e-11))) (let ((act-17 ((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 ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))
(define ProcessParams-TTImp-n--18182-17996-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 27 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--18182-17996-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--18182-17997-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-15 ((Context-Core-resolveName arg-8 arg-11) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 9 e-5) (vector 0 (vector 0 ) (vector 0 (Env-Core-namesNoLet 'erased arg-9 arg-10) (lambda (fc) (lambda (nt) (UnifyState-Core-applyTo arg-9 fc (vector 1 fc nt (vector 9 e-5)) arg-10))))))) ext-0))))))))
(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--18182-17996-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-15 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (vector 15 arg-6 (vector 0 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) pty_raw) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Elab-TTImp-checkTerm arg-0 arg-1 arg-2 arg-3 (Prelude-negate_Neg__Int (Prelude-fromInteger_Num__Int 1)) (vector 0 ) (vector 0 ) arg-4 arg-5 e-5 (Normalise-Core-gType 'erased arg-6) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessParams-TTImp-case--18182-18094 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--20390-20733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-14 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-21 eta-0)))))))))))
(define ProcessData-TTImp-case--20951-20520 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32) (let ((sc0 arg-32)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-31) eta-0))) (else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))))))))))
(define ProcessData-TTImp-case--20831-20443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((6) (let ((e-5 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-15 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc1 arg-22)) (let ((e-26 (vector-ref sc1 3))) e-26)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 e-8)) (cond ((equal? sc2 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)) (else (let ((act-16 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc3 arg-22)) (let ((e-27 (vector-ref sc3 3))) e-27)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((act-17 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0))))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
(define ProcessData-TTImp-case--20390-20346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((ndefm (vector 1 e-2))) (ProcessData-TTImp-case--20831-20443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--20390-20039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--19847-19930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((Context-Core-lookupCtxtExact arg-14 (let ((sc1 arg-17)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((_-0 (vector 0 e-2 e-3))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-4 (vector-ref sc2 1))) (let ((ndefm (vector 1 e-4))) ((ProcessData-TTImp-case--20831-20443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-nf arg-7 arg-17 arg-8 e-2) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Context-Core-addDef arg-13 arg-14 (Context-Core-newDef arg-6 arg-14 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-21 (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-14 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-13 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) fullty eta-0)))))))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-3))) (ProcessData-TTImp-case--20390-20039 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-22 ((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-23 ((Context-Core-addData arg-13 arg-7 arg-5 e-10 ddef) eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((sc10 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-623 arg-624)))) (vector 4 ) arg-1)))) (cond ((equal? sc10 0) ((ProcessData-TTImp-findNewtype arg-13 e-12) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-26 (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-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-27 (Context-Core-setMutWith arg-13 arg-6 (vector 9 e-10) e-6 eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-28 ((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-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-29 (Context-Core-dropMutData arg-13 (vector 9 e-10) eta-0))) (let ((sc15 act-29)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-30 ((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-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-31 (Context-Core-setDetags arg-13 arg-6 (vector 9 e-10) e-20 eta-0))) (let ((sc17 act-31)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-32 ((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-32)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-33 (Context-Core-addToSave arg-13 arg-14 eta-0))) (let ((sc19 act-33)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-34 (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-34)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-12))) (let ((act-35 (let ((sc21 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-623 arg-624)))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc21 act-35)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--19957-19699 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-12 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-19 eta-0)))))))))))
(define ProcessData-TTImp-case--19888-19532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Context-Core-addMutData arg-11 (vector 9 e-8) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 ((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-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 ((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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (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-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 (let ((sc11 arg-3)) (case (vector-ref sc11 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-25 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-12 eta-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) fullty eta-0)))))))))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessData-TTImp-case--19847-19476 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (let ((act-15 ((Context-Core-resolveName arg-11 arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-8 (lambda (eta-1) (vector 56 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-13) (vector 1 (Normalise-Core-gType 'erased arg-2)))) eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 ((Normalise-Core-nf arg-5 arg-14 arg-6 e-2) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 (Normalise-Core-getArity (vector 0 ) arg-14 (vector 0 ) fullty eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Context-Core-addDef arg-11 arg-12 (Context-Core-newDef arg-4 arg-12 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Context-Core-addMutData arg-11 (vector 9 e-9) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 ((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-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 ((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-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (Context-Core-addToSave arg-11 arg-12 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 "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-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-26 (let ((sc13 arg-3)) (case (vector-ref sc13 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-26 (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-12 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-11 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) fullty eta-0)))))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-4 arg-12) eta-0)))))))
(define ProcessData-TTImp-case--19778-19396 (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--19744-19382 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessData-TTImp-case--19599-19250 (lambda (arg-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) ((11) (lambda () (lambda (eta-0) (let ((act-15 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))) arg-7)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (let ((act-15 (((arg-4 arg-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 arg-5 1))) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))) arg-7)))))))
(define ProcessData-TTImp-case--19018-19185 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-4)) eta-0)))))))
(define ProcessData-TTImp-case--19045-19129 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-5 arg-6)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0)))))))
(define ProcessData-TTImp-case--19044-19082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--19018-18712-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define ProcessData-TTImp-case--19043-19029 (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--19018-18712-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define ProcessData-TTImp-case--19042-18902 (lambda (arg-0 arg-1 arg-2 arg-3 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--19018-18710-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
(define ProcessData-TTImp-case--19042-18799 (lambda (arg-0 arg-1 arg-2 arg-3 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-9) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-5 eta-1)) arg-11) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((ProcessData-TTImp-n--19018-18710-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
(define ProcessData-TTImp-case--19041-18746 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (ProcessData-TTImp-n--19018-18710-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6))))))
(define ProcessData-TTImp-case--18595-18444 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-21 eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessData-TTImp-case--18518-18302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (let ((act-15 ((Context-Core-resolveName arg-12 arg-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-9 (lambda (eta-1) (vector 56 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-14) (Normalise-Core-gType 'erased arg-2) eta-1))) eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Normalise-Core-nf arg-6 arg-17 arg-7 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((fullty (Env-Core-abstractEnvType arg-6 arg-2 arg-7 e-5))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (Context-Core-addToSave arg-12 arg-13 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((sc7 arg-5)) (case (vector-ref sc7 0) ((2) (let ((act-21 (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-13 eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-12 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) fullty eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (Normalise-Core-getArity (vector 0 ) arg-17 (vector 0 ) fullty eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2 arg-13 e-12 fullty)) eta-0)))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-2 arg-13) eta-0)))))))
(define ProcessData-TTImp-case--18476-18204 (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--18309-18108 (lambda (arg-0 arg-1 arg-2 arg-3 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--18293-18056 (lambda (arg-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--18309-18108 '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--18234-18003 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 9 arg-4 arg-3) eta-0)))))))
(define ProcessData-TTImp-n--18465-18195-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--18476-18204 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--18465-18195-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--18465-18195-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3)))))
(define ProcessData-TTImp-n--18945-18619-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-15 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((ProcessData-TTImp-n--18945-18619-getRetType arg-0 arg-1 arg-2 e-5) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) eta-0)))))))
(define ProcessData-TTImp-n--18945-18620-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessData-TTImp-n--19018-18714-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((ProcessData-TTImp-n--19018-18714-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ProcessData-TTImp-n--19018-18713-allDisjoint arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 e-5)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0))))))))))))))))))))))
(define ProcessData-TTImp-n--19018-18710-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(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-15 ((ProcessData-TTImp-n--19018-18711-disjoint arg-0 arg-1 arg-2 e-1 e-4) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)) (else ((ProcessData-TTImp-n--19018-18710-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0))))))))))))))))))))))))
(define ProcessData-TTImp-n--19018-18711-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--19042-18799 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-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-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--19042-18902 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TT-Core-C-47C-61_Eq__Constant e-14 e-29)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define ProcessData-TTImp-n--19018-18712-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((ProcessData-TTImp-n--19018-18711-disjoint arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--19018-18712-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))))))))
(define ProcessData-TTImp-n--19018-18713-allDisjoint (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (lambda (eta-0) (let ((act-15 ((ProcessData-TTImp-n--19018-18713-allDisjoint arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) ((ProcessData-TTImp-n--19018-18712-allDisjointWith arg-0 arg-1 arg-2 e-2 e-3) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))))))))))
(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--18465-18195-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Context-Core-lookupCtxtExact e-5 (let ((sc4 e-7)) (let ((e-31 (vector-ref sc4 1))) e-31))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((0) (let ((act-19 (let ((act-19 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-6) (vector 1 (Normalise-Core-gType 'erased e-0)))) eta-0)))))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-20 (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-20)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((act-21 (let ((act-21 ((Normalise-Core-nf arg-0 e-7 arg-6 e-4) eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (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-21)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((act-22 (Normalise-Core-getArity (vector 0 ) e-7 (vector 0 ) fullty eta-0))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-23 (Context-Core-addDef arg-1 e-5 (Context-Core-newDef arg-7 e-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-23)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-24 (Context-Core-addMutData arg-1 (vector 9 e-13) eta-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-15 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc13 1))) (let ((act-26 ((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-26)) (case (vector-ref sc14 0) ((0) (let ((e-16 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((act-27 ((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-27)) (case (vector-ref sc15 0) ((0) (let ((e-17 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((act-28 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc16 act-28)) (case (vector-ref sc16 0) ((0) (let ((e-18 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((act-29 (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-29)) (case (vector-ref sc17 0) ((0) (let ((e-19 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((act-30 (let ((sc18 arg-8)) (case (vector-ref sc18 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-30 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-5 eta-0))) (let ((sc18 act-30)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) fullty eta-0)))))))))) (let ((sc18 act-30)) (case (vector-ref sc18 0) ((0) (let ((e-20 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-inCurrentNS arg-1 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 ((Context-Core-resolveName arg-1 e-8) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc5 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-9) (vector 1 (Normalise-Core-gType 'erased e-3)))) eta-0)))))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-20 ((Context-Core-lookupCtxtExact e-8 (let ((sc7 e-11)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc7 1))) (let ((act-21 (let ((_-0 (vector 0 e-2 e-13))) (let ((sc8 e-14)) (case (vector-ref sc8 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-15 (vector-ref sc8 1))) (let ((ndefm (vector 1 e-15))) ((ProcessData-TTImp-case--20831-20443 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-21)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-22 (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-22)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-23 (let ((act-23 ((Normalise-Core-nf arg-0 e-11 arg-6 e-2) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (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-23)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-24 (Normalise-Core-getArity (vector 0 ) e-11 (vector 0 ) fullty eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-0))) (else (let ((e-18 (vector-ref sc11 1))) (let ((act-25 (Context-Core-addDef arg-1 e-8 (Context-Core-newDef arg-7 e-8 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-25)) (case (vector-ref sc12 0) ((0) (let ((e-19 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-0))) (else (let ((e-19 (vector-ref sc12 1))) (let ((act-26 (let ((sc13 arg-8)) (case (vector-ref sc13 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-26 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-8 eta-0))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) fullty eta-0)))))))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-20 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-20) eta-0))) (else (let ((e-20 (vector-ref sc13 1))) (let ((cvis (let ((_-0 (vector 0 e-2 e-13))) (ProcessData-TTImp-case--20390-20039 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-27 ((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-27)) (case (vector-ref sc14 0) ((0) (let ((e-21 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (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-28 ((Context-Core-addData arg-1 arg-0 arg-8 e-19 ddef) eta-0))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-22 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (else (let ((act-29 (let ((sc16 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-623 arg-624)))) (vector 4 ) e-6)))) (cond ((equal? sc16 0) ((ProcessData-TTImp-findNewtype arg-1 e-21) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc16 act-29)) (case (vector-ref sc16 0) ((0) (let ((e-23 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (else (let ((act-30 (let ((act-30 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-30) eta-0)))) (let ((sc17 act-30)) (case (vector-ref sc17 0) ((0) (let ((e-24 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-24) eta-0))) (else (let ((act-31 (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-31)) (case (vector-ref sc18 0) ((0) (let ((e-25 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-25) eta-0))) (else (let ((act-32 (Context-Core-setMutWith arg-1 arg-7 (vector 9 e-19) e-15 eta-0))) (let ((sc19 act-32)) (case (vector-ref sc19 0) ((0) (let ((e-26 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-26) eta-0))) (else (let ((act-33 ((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-33)) (case (vector-ref sc20 0) ((0) (let ((e-27 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-27) eta-0))) (else (let ((act-34 (Context-Core-dropMutData arg-1 (vector 9 e-19) eta-0))) (let ((sc21 act-34)) (case (vector-ref sc21 0) ((0) (let ((e-28 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-28) eta-0))) (else (let ((act-35 ((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-35)) (case (vector-ref sc22 0) ((0) (let ((e-29 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-29) eta-0))) (else (let ((e-29 (vector-ref sc22 1))) (let ((act-36 (Context-Core-setDetags arg-1 arg-7 (vector 9 e-19) e-29 eta-0))) (let ((sc23 act-36)) (case (vector-ref sc23 0) ((0) (let ((e-30 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-30) eta-0))) (else (let ((act-37 ((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-37)) (case (vector-ref sc24 0) ((0) (let ((e-31 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-31) eta-0))) (else (let ((act-38 (Context-Core-addToSave arg-1 e-8 eta-0))) (let ((sc25 act-38)) (case (vector-ref sc25 0) ((0) (let ((e-32 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-32) eta-0))) (else (let ((act-39 (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-39)) (case (vector-ref sc26 0) ((0) (let ((e-33 (vector-ref sc26 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-33) eta-0))) (else (let ((connames (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (ProcessData-TTImp-conName eta-1)) e-21))) (let ((act-40 (let ((sc27 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-623 arg-624)))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc27 act-40)) (case (vector-ref sc27 0) ((0) (let ((e-34 (vector-ref sc27 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-34) eta-0))) (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-15 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) ((Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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) ((11) (lambda () (lambda (eta-1) (let ((act-16 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-1))) (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-16 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-1))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-2)))) arg-2)))))))(else (lambda () (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (let ((act-16 (((e-4 arg-0) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-1))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-2)))) arg-2))))) e-6) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (r) (vector 1 (vector 0 arg-3 r)))) arg-2)) eta-0)))))))
(define ProcessData-TTImp-getIndexPats (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-1) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((ProcessData-TTImp-n--18945-18619-getRetType arg-1 arg-0 e-5 e-6) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) ((ProcessData-TTImp-n--18945-18620-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ProcessData-TTImp-n--19018-18714-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((ProcessData-TTImp-n--19018-18714-getDisjointPos arg-2 arg-1 arg-0 0 (List-Data-transpose 'erased e-5)) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0))))))))))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) ((ProcessData-TTImp-getRelevantArg e-5 0 (vector 0 ) 0 e-6) eta-0)))))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--18309-18108 '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-15 ((Context-Core-inCurrentNS arg-1 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ty_raw (ProcessData-TTImp-updateNS arg-8 arg-9 e-2))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((Context-Core-lookupCtxtExact e-5 (let ((sc5 e-8)) (let ((e-32 (vector-ref sc5 1))) e-32))) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (case (vector-ref sc6 0) ((0) (let ((act-20 (let ((act-20 ((Context-Core-resolveName arg-1 e-5) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (((Utils-Elab-TTImp-wrapErrorC 'erased arg-4 (lambda (eta-1) (vector 56 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ty_raw) (Normalise-Core-gType 'erased e-0) eta-1))) eta-0)))))))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-nf arg-0 e-8 arg-6 e-10) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((fullty (Env-Core-abstractEnvType arg-0 e-0 arg-6 e-10))) (let ((act-22 (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-22)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-23 ((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-23)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-24 (Context-Core-addToSave arg-1 e-5 eta-0))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (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 "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-25)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-26 (let ((sc13 arg-7)) (case (vector-ref sc13 0) ((2) (let ((act-26 (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Name arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Name arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-5 eta-0))) (let ((sc14 act-26)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Context-Core-addHashWithNames 'erased arg-1 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-1616 arg-1617)))) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) fullty eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc13 act-26)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-27 (Normalise-Core-getArity (vector 0 ) e-8 (vector 0 ) fullty eta-0))) (let ((sc14 act-27)) (case (vector-ref sc14 0) ((0) (let ((e-3 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-17 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5 e-17 fullty)) eta-0))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 e-0 e-5) eta-0)))))))))))))))))))))))))))))))))))
(define Parser-TTImp-case--12410-19734 (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--16285-19687 (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--16317-19640 (lambda (arg-0 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--16284-19575 (lambda (arg-0 arg-1 arg-2 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--16317-19640 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--12410-19541-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7))))))))
(define Parser-TTImp-case--15500-18951 (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--15500-18909 (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--13065-16761 (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--12410-19541-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--16284-19575 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2)))))))))
(define Parser-TTImp-n--14972-18375-parseWithArg (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "|")) (lambda () (lambda (_-18393) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-1 arg-0)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
(define Parser-TTImp-n--13080-17959-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--13080-17959-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))))))
(define Parser-TTImp-n--12410-19542-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--16285-19687 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--14969-18130-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))) (Core-Parser-Text-pure 'erased 'erased e-1))) ((8) (let ((e-3 (vector-ref sc0 2))) (Parser-TTImp-n--14969-18130-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--14969-18130-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-6)))(else (Core-Parser-Text-fail 'erased 'erased 'erased "Not a function application"))))))
(define Parser-TTImp-n--15802-19009-fieldBody (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-19035) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-1 arg-0)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 (vector 0 arg-1 start end) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns)))))))))))))))))
(define Parser-TTImp-n--13070-17126-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--13070-17126-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
(define Parser-TTImp-n--13055-16066-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--13055-16066-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--13055-16066-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--14972-18374-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--14972-18374-applyArgs arg-0 arg-1 arg-2 (vector 8 e-6 arg-3 e-7) e-3)))))))))))
(define Parser-TTImp-visibility (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (Parser-TTImp-visOption) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))
(define Parser-TTImp-visOption (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "public")) (lambda () (lambda (_-15663) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "export")) (lambda () (lambda (_-15670) (Core-Parser-Text-pure 'erased 'erased (vector 2 )))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "export")) (lambda () (lambda (_-15652) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "private")) (lambda () (lambda (_-15641) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))))))))))
(define Parser-TTImp-visOpt (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-visOption)) (lambda () (lambda (vis) (Core-Parser-Text-pure 'erased 'erased (vector 0 vis))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-fnOpt)) (lambda () (lambda (tot) (Core-Parser-Text-pure 'erased 'erased (vector 1 tot))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-fnDirectOpt)) (lambda () (lambda (opt) (Core-Parser-Text-pure 'erased 'erased (vector 1 opt)))))))))))
(define Parser-TTImp-typeExpr (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-appExpr arg-0 arg-1)) (lambda () (lambda (arg) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-1)) (lambda (_-18003) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-some 'erased 'erased (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-bindSymbol)) (lambda () (lambda (exp) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-appExpr arg-0 arg-1)) (lambda () (lambda (op) (Core-Parser-Text-pure 'erased 'erased (vector 0 exp op)))))))))) (lambda () (lambda (rest) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--13080-17959-mkPi arg-1 arg-0 start end arg rest))))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased arg))))))))))
(define Parser-TTImp-tyDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-18082) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-18102) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) n ty)))))))))))))))))))
(define Parser-TTImp-totalityOpt (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "partial")) (lambda () (lambda (_-15725) (Core-Parser-Text-pure 'erased 'erased (vector 2 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "total")) (lambda () (lambda (_-15714) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "covering")) (lambda () (lambda (_-15703) (Core-Parser-Text-pure 'erased 'erased (vector 1 )))))))))))
(define Parser-TTImp-topDecl (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-TTImp-visibility)) (lambda (vis) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-dataDecl arg-0 arg-1)) (lambda () (lambda (dat) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 arg-0 start end) vis dat))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-namespaceDecl)) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0)))) (lambda () (lambda (ds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 5 (vector 0 arg-0 start end) ns ds)))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Parser-TTImp-visOpt))) (lambda (visOpts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-tyDecl arg-0 arg-1)) (lambda () (lambda (claim) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) vis opts claim)))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-recordDecl arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-as arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-atom arg-0) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-binder arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-rewrite_ arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-record_ arg-0 arg-1) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-16434) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-16448) (Core-Parser-Text-pure 'erased 'erased e))))))))))))))))))))))
(define Parser-TTImp-rewrite_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "rewrite")) (lambda () (lambda (_-17722) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (rule) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "in")) (lambda () (lambda (_-17735) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 13 (vector 0 arg-0 start end) rule tm))))))))))))))))))))
(define Parser-TTImp-record_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "record")) (lambda () (lambda (_-17569) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-17577) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17585) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-field arg-0 arg-1))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-17604) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (sc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 7 (vector 0 arg-0 start end) fs sc)))))))))))))))))))))))))
(define Parser-TTImp-recordParam (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-18866) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-pibindListName arg-0 start arg-1)) (lambda () (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-18887) (Core-Parser-Text-pure 'erased '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))) (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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-18759) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18767) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (Core-Parser-Text-C-60C-42 'erased 'erased 'erased 1 0 (Core-Parser-Text-pure 'erased 'erased (vector 2 )) (Source-Rule-Parser-keyword "auto")) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "default")) (lambda () (lambda (_-18804) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (t) (Core-Parser-Text-pure 'erased 'erased (vector 3 t)))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))) (lambda (info) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-pibindListName arg-0 start arg-1)) (lambda () (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-18842) (Core-Parser-Text-pure 'erased '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))) (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 () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 30 (vector 0 arg-0 start end) 1)))) (vector 0 ))))))))))))))))
(define Parser-TTImp-recordDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-TTImp-visibility)) (lambda (vis) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "record")) (lambda () (lambda (_-19177) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19185) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-19208) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "constructor")) (lambda () (lambda (_-19215) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (dc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-TTImp-fieldDecl arg-0 eta-0)))) (lambda (flds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) flds)))))))))))))))))))))))))))))))))))))
(define Parser-TTImp-prog (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0)))) (lambda () (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-collectDefs ds)))))))
(define Parser-TTImp-pibindListName (lambda (arg-0 arg-1 arg-2) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-TTImp-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-16690) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-0 arg-2)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-16703) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-TTImp-getMult rigc)) (lambda (rig) (Core-Parser-Text-pure 'erased 'erased (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 ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-TTImp-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-16634) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-0 arg-2)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-TTImp-getMult rigc)) (lambda (rig) (Core-Parser-Text-pure 'erased 'erased (vector 0 rig (vector 0 n ty)))))))))))))))))))))
(define Parser-TTImp-pibindList (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-pibindListName arg-0 arg-1 arg-2)) (lambda () (lambda (params) (Core-Parser-Text-pure 'erased '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))) (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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-18303) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18311) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-1 arg-2)) (lambda () (lambda (rhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-18324) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-TTImp-n--14969-18130-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4)) (lambda (bind-0) (Core-Parser-Text-pure 'erased 'erased (vector 0 bind-0 (vector 0 fc arg-4 rhs)))))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "with")) (lambda () (lambda (_-18213) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (wstart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-18228) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-1 arg-2)) (lambda () (lambda (wval) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-18242) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-TTImp-clause (+ 1 arg-0) arg-1 eta-0)))) (lambda () (lambda (ws) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-TTImp-n--14969-18130-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4)) (lambda (bind-0) (Core-Parser-Text-pure 'erased 'erased (vector 0 bind-0 (vector 1 fc arg-4 wval (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) ws)))))))))))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "impossible")) (lambda () (lambda (_-18169) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-18176) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (let ((fc (vector 0 arg-1 arg-3 end))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-TTImp-n--14969-18130-getFn arg-4 arg-3 arg-2 arg-1 arg-0 arg-4)) (lambda (bind-0) (Core-Parser-Text-pure 'erased 'erased (vector 0 bind-0 (vector 2 fc arg-4)))))))))))))))))))
(define Parser-TTImp-namespaceDecl (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "namespace")) (lambda () (lambda (_-19297) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19305) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-namespacedIdent)) (lambda () (lambda (ns) (Core-Parser-Text-pure 'erased 'erased ns)))))))))))
(define Parser-TTImp-multiplicity (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-intLit)) (lambda () (lambda (c) (Core-Parser-Text-pure 'erased 'erased (vector 1 c))))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))
(define Parser-TTImp-let_ (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-17297) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-TTImp-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-TTImp-getMult rigc)) (lambda (rig) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-17325) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17333) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (val) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-1)) (lambda (_-17346) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "in")) (lambda () (lambda (_-17353) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-typeExpr arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (let ((fc (vector 0 arg-0 start end))) (vector 3 fc rig n (vector 30 fc 1) val scope))))))))))))))))))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-17232) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-topDecl arg-0 eta-0)))) (lambda (ds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-1)) (lambda (_-17246) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "in")) (lambda () (lambda (_-17253) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-typeExpr arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 5 (vector 0 arg-0 start end) (Parser-TTImp-collectDefs ds) scope)))))))))))))))))))))))
(define Parser-TTImp-lazy (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Lazy")) (lambda () (lambda (_-17909) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 19 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Inf")) (lambda () (lambda (_-17871) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 19 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Delay")) (lambda () (lambda (_-17833) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 20 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Force")) (lambda () (lambda (_-17795) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 21 (vector 0 arg-0 start end) tm))))))))))))))))))))
(define Parser-TTImp-lam (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "\\")) (lambda () (lambda (_-17159) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-bindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-17173) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-mustContinue arg-1 (vector 0 ))) (lambda (_-17181) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--13070-17126-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
(define Parser-TTImp-implicitPi (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-17004) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-pibindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-17018) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-17026) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-typeExpr arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
(define Parser-TTImp-implicitArg (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-16259) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-16308) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16316) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-16330) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-16279) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "@{")) (lambda () (lambda (_-16206) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16214) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-16228) (Core-Parser-Text-pure 'erased 'erased (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) (Core-Parser-Text-pure 'erased 'erased (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) (Core-Parser-Text-pure 'erased 'erased e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (Core-Parser-Text-fatalError 'erased 'erased 'erased "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) (Core-Parser-Text-pure 'erased 'erased (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (Core-Parser-Text-pure 'erased 'erased (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (Core-Parser-Text-fatalError 'erased 'erased 'erased "Invalid multiplicity (must be 0 or 1)")))))) ((0) (Core-Parser-Text-pure 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Core-Parser-Text-fatalError 'erased 'erased 'erased "Invalid multiplicity (must be 0 or 1)"))))))
(define Parser-TTImp-forall_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "forall")) (lambda () (lambda (_-16888) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16896) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (nstart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 30 nfc 1)))) ns))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ".")) (lambda () (lambda (_-16932) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-typeExpr arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
(define Parser-TTImp-fnOpt (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-totalityOpt)) (lambda () (lambda (x) (Core-Parser-Text-pure 'erased 'erased (vector 7 x)))))))
(define Parser-TTImp-fnDirectOpt (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "hint")) (lambda () (lambda (_-15844) (Core-Parser-Text-pure 'erased 'erased (vector 2 0))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "chaser")) (lambda () (lambda (_-15831) (Core-Parser-Text-pure 'erased 'erased (vector 2 1))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "globalhint")) (lambda () (lambda (_-15818) (Core-Parser-Text-pure 'erased 'erased (vector 3 0))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "defaulthint")) (lambda () (lambda (_-15805) (Core-Parser-Text-pure 'erased 'erased (vector 3 1))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "inline")) (lambda () (lambda (_-15791) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "extern")) (lambda () (lambda (_-15778) (Core-Parser-Text-pure 'erased 'erased (vector 4 )))))))))))))))))
(define Parser-TTImp-fieldDecl (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-19104) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19112) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-n--15802-19009-fieldBody arg-1 arg-0 (vector 0 ))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-19128) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19135) (Core-Parser-Text-pure 'erased 'erased fs)))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-n--15802-19009-fieldBody arg-1 arg-0 (vector 1 ))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19091) (Core-Parser-Text-pure 'erased 'erased fs))))))))))
(define Parser-TTImp-field (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (path) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) 0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-17698) (Core-Parser-Text-pure 'erased 'erased (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "$=")) (lambda () (lambda (_-17685) (Core-Parser-Text-pure 'erased 'erased (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))))))))) (lambda () (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-appExpr arg-0 arg-1)) (lambda () (lambda (val) (Core-Parser-Text-pure 'erased 'erased ((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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-17074) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-pibindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-17088) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-bindSymbol)) (lambda () (lambda (exp) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-typeExpr arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
(define Parser-TTImp-directive (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "logging")) (lambda () (lambda (_-19331) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19339) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-intLit)) (lambda () (lambda (lvl) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19353) (Core-Parser-Text-pure 'erased 'erased (vector 8 lvl))))))))))))))
(define Parser-TTImp-definition (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-clause 0 arg-0 arg-1)) (lambda () (lambda (nd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "noHints")) (lambda () (lambda (_-18571) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "uniqueSearch")) (lambda () (lambda (_-18560) (Core-Parser-Text-pure 'erased 'erased (vector 2 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "search")) (lambda () (lambda (_-18537) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name))) (lambda () (lambda (ns) (Core-Parser-Text-pure 'erased 'erased (vector 0 ns))))))))))))))
(define Parser-TTImp-dataDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "data")) (lambda () (lambda (_-18591) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-18606) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-18619) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "[")) (lambda () (lambda (_-18637) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-TTImp-dataOpt))) (lambda () (lambda (dopts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-18656) (Core-Parser-Text-pure 'erased 'erased dopts)))))))))))) (lambda (opts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-tyDecl arg-0 eta-0)))) (lambda (cs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) n ty opts cs)))))))))))))))))))))))))))
(define Parser-TTImp-command (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-20058) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "t")) (lambda () (lambda (_-20065) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init))) (lambda () (lambda (tm) (Core-Parser-Text-pure 'erased 'erased (vector 1 tm))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-20028) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "s")) (lambda () (lambda (_-20035) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 2 n))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-19998) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "es")) (lambda () (lambda (_-20005) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 3 n))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-19956) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "gd")) (lambda () (lambda (_-19963) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (l) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 4 (Prelude-fromInteger_Num__Int l) n)))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-19926) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "missing")) (lambda () (lambda (_-19933) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 5 n))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-19896) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "total")) (lambda () (lambda (_-19903) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 6 n))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-19866) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "di")) (lambda () (lambda (_-19873) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 7 n))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-19845) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "q")) (lambda () (lambda (_-19852) (Core-Parser-Text-pure 'erased 'erased (vector 8 )))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr "(repl)" (Source-Rule-Parser-init))) (lambda () (lambda (tm) (Core-Parser-Text-pure 'erased 'erased (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--12410-19734 e-6 e-5 e-4 e-3 (Parser-TTImp-n--12410-19541-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--12410-19542-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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-1 arg-2)) (lambda () (lambda (lhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Parser-TTImp-n--14972-18375-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 () (Core-Parser-Text-fatalError 'erased 'erased 'erased "Wrong number of 'with' arguments")) (lambda () (Parser-TTImp-parseRHS arg-0 arg-1 arg-2 start (Parser-TTImp-n--14972-18374-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))
(define Parser-TTImp-case_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "case")) (lambda () (lambda (_-17407) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (scr) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "of")) (lambda () (lambda (_-17420) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-TTImp-caseAlt arg-0 eta-0)))) (lambda (alts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (let ((fc (vector 0 arg-0 start end))) (vector 4 fc scr (vector 30 fc 1) alts))))))))))))))))))))
(define Parser-TTImp-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-17516) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-1)) (lambda (_-17523) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-expr arg-0 arg-1)) (lambda () (lambda (rhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-17536) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 arg-2 end) arg-3 rhs)))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "impossible")) (lambda () (lambda (_-17485) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-17492) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 2 (vector 0 arg-0 arg-2 end) arg-3)))))))))))))
(define Parser-TTImp-caseAlt (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-autoImplicitPi arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-forall_ arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-implicitPi arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-explicitPi arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-lam arg-0 arg-1) (lambda () (Parser-TTImp-let_ arg-0 arg-1)))))))))))))
(define Parser-TTImp-bindSymbol (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-16000) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-15986) (Core-Parser-Text-pure 'erased 'erased (vector 2 )))))))))
(define Parser-TTImp-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-TTImp-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 30 (vector 0 arg-0 arg-1 end) 1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-16571) (Parser-TTImp-appExpr arg-0 arg-2)))))) (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-TTImp-getMult rigc)) (lambda (rig) (Core-Parser-Text-pure 'erased 'erased (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))
(define Parser-TTImp-autoImplicitPi (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-16801) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "auto")) (lambda () (lambda (_-16808) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16816) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-TTImp-pibindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-16830) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-16838) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-typeExpr arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
(define Parser-TTImp-atom (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-constant)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 26 (vector 0 arg-0 start end) x))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "Type")) (lambda () (lambda (_-15574) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 27 (vector 0 arg-0 start end)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "_")) (lambda () (lambda (_-15542) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 30 (vector 0 arg-0 start end) 0))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "?")) (lambda () (lambda (_-15509) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 30 (vector 0 arg-0 start end) 1))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "search")) (lambda () (lambda (_-15473) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 11 (vector 0 arg-0 start end) (Prelude-fromInteger_Num__Nat 1000)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) x))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "$")) (lambda () (lambda (_-15401) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 16 (vector 0 arg-0 start end) x)))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-holeName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 28 (vector 0 arg-0 start end) x)))))))))))))))))))))))))
(define Parser-TTImp-as (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "@")) (lambda () (lambda (_-16374) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (pat) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 17 (vector 0 arg-0 start end) (vector 1 ) (vector 1 x) pat)))))))))))))))))
(define Parser-TTImp-argExpr (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-1)) (lambda (_-16176) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (arg) (Core-Parser-Text-pure 'erased 'erased (vector 0 arg))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-1)) (lambda (_-16154) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-implicitArg arg-0 arg-1)) (lambda () (lambda (arg) (Core-Parser-Text-pure 'erased 'erased (vector 1 arg)))))))))))
(define Parser-TTImp-appExpr (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-TTImp-case_ arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-124C-124 1 (lambda () 0)) (Parser-TTImp-lazy arg-0 arg-1) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-TTImp-simpleExpr arg-0 arg-1)) (lambda () (lambda (f) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-many 'erased 'erased (Parser-TTImp-argExpr arg-0 arg-1))) (lambda (args) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-TTImp-n--13055-16066-applyExpImp arg-1 arg-0 start end f args)))))))))))))))))
(define GenerateDef-Interactive-TTImp-case--24779-6801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (GenerateDef-Interactive-TTImp-mkSplits arg-4 arg-3 arg-2 arg-5 e-1 arg-18 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-4 arg-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-3 arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased arg-2 arg-14 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-5 e-5))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-10) eta-0)))))))
(define GenerateDef-Interactive-TTImp-case--24764-6697 (lambda (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-15 ((Context-Core-getFullName arg-4 e-9) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-17 (Context-Core-branch arg-4 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-20 (let ((act-20 ((Normalise-Core-nf (vector 0 ) e-11 (vector 0 ) e-14) eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-20)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-16 (vector-ref sc9 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 30 e-5 0)))) (let ((act-21 (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-21)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 28 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--24779-6801 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define GenerateDef-Interactive-TTImp-case--24541-6511 (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--24275-6414 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-4 (GenerateDef-Interactive-TTImp-n--24275-6261-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--24275-6259-valid arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 eta-1)) e-1)))) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 (vector 0 ))) eta-0)))))))
(define GenerateDef-Interactive-TTImp-case--24289-6348 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--24275-6260-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
(define GenerateDef-Interactive-TTImp-case--24289-6290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--24275-6260-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
(define GenerateDef-Interactive-TTImp-case--23854-5960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-15 ((Unelab-TTImp-unelab e-2 arg-0 e-6 e-7) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Normalise-Core-logTermNF e-2 arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "        = ") e-6 e-7 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (GenerateDef-Interactive-TTImp-n--23501-5598-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 ))) eta-0)))))))))))))))))))))))
(define GenerateDef-Interactive-TTImp-case--23752-5885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1 e-2))) ((GenerateDef-Interactive-TTImp-case--23854-5960 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--23501-5599-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--23684-5802 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 arg-17) (vector 0 ) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-7 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((_-1 (vector 1 e-7 e-4))) ((GenerateDef-Interactive-TTImp-case--23854-5960 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23501-5599-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--23640-5749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-17 (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-18 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-5 arg-4 arg-3 (vector 9 e-3) (vector 0 ) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (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-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-20 (Normalise-Core-normaliseHoles (vector 0 ) e-14 (vector 0 ) e-13 eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((e-15 (vector-ref sc9 1))) (let ((_-1 (vector 1 e-13 e-12))) ((GenerateDef-Interactive-TTImp-case--23854-5960 arg-0 arg-1 arg-2 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--23501-5599-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--23609-5717 (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((clause (vector 0 e-0 e-1 e-2 e-3))) ((GenerateDef-Interactive-TTImp-case--23640-5749 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--23501-5695 (lambda (arg-0 arg-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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--23640-5749 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define GenerateDef-Interactive-TTImp-case--23433-5545 (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--23428-5532 (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--24275-6259-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--23501-5598-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))) (vector 1 e-3 e-4 e-5 e-6)))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 2 e-7 e-8))))))))
(define GenerateDef-Interactive-TTImp-n--24275-6261-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--24289-6290 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--24289-6348 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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--24275-6261-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--24275-6261-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--24275-6261-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--24275-6261-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--23462-5560-mkUniqueName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((28) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Utils-TTImp-uniqueName e-5 (vector 0 ) e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 28 e-0 e-6)) eta-0)))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define GenerateDef-Interactive-TTImp-n--24275-6260-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 30 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--24275-6260-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--24275-6260-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--24275-6260-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--24275-6260-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--23501-5599-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--23501-5599-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-15 ((GenerateDef-Interactive-TTImp-n--23462-5560-mkUniqueName e-2 e-1 e-0 arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-5)) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(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-15 ((CaseSplit-Interactive-TTImp-getSplitsLHS arg-0 arg-1 arg-2 arg-3 0 arg-5 arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (ups) (vector 0 arg-3 (GenerateDef-Interactive-TTImp-n--24275-6261-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--24275-6259-valid arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-1)))) ext-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-7 (vector 0 ))) ext-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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)) eta-1))))))) (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-15 ((GenerateDef-Interactive-TTImp-generateSplits arg-1 arg-0 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Metadata-Core-findTyDeclAt arg-1 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 ((Context-Core-getFullName arg-0 e-9) ext-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-17 (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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-18 (Context-Core-branch arg-0 ext-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc8 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc9 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-nf (vector 0 ) e-12 (vector 0 ) e-14) ext-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-21)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc10 1))) (let ((pre_env (List-Data-replicate 'erased e-13 (vector 30 e-7 0)))) (let ((act-22 (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-22)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 28 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--24779-6801 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (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-15 ((Elab-TTImp-elabTerm (vector 0 ) arg-1 arg-0 arg-2 arg-4 (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (vector 0 ) (vector 0 ) (vector 0 ) (vector 15 arg-3 (vector 1 ) e-7) (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-6 e-7 e-2 e-8 eta-1 eta-2))) (GenerateDef-Interactive-TTImp-splittableNames e-7)) 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--23428-5532 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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((GenerateDef-Interactive-TTImp-uniqueRHS arg-0 arg-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((ProcessDef-TTImp-checkClause (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) e-6) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18 (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) ext-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((clause (vector 0 e-0 e-1 e-4 e-3))) ((GenerateDef-Interactive-TTImp-case--23640-5749 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))))))))))))
(define ExprSearch-Interactive-TTImp-case--28089-24729 (lambda (arg-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-15 (let ((act-15 ((Context-Core-getFullName arg-5 (vector 9 e-9)) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Metadata-Core-findHoleLHS arg-4 e-7 eta-0)))))))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (let ((act-17 ((ExprSearch-Interactive-TTImp-getLHSData arg-6 e-7) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--28107-24664 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--28099-24605 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-7 (vector 0 e-5 e-6)))) eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((Context-Core-lookupCtxtName arg-7 (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))
(define ExprSearch-Interactive-TTImp-case--27960-24510 (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--27709-24272 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--23075-24239 (lambda (arg-0 arg-1 arg-2 arg-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--27709-24272 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0))))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-0) eta-0)))))))))))
(define ExprSearch-Interactive-TTImp-case--27537-24162 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--27529-24091 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-10 (vector 0 e-5 e-6)))) eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((Context-Core-lookupCtxtName arg-10 arg-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))
(define ExprSearch-Interactive-TTImp-case--27007-23977 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--27070-23784 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--27007-23677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (Context-Core-getSearchData arg-11 arg-8 1 arg-14 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--27070-23784 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--26845-23630 (lambda (arg-0 arg-1 arg-2 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--27007-23677 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--27007-23977 arg-0 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--27007-23977 arg-0 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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--27007-23977 arg-0 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--25992-23195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-15 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-17 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-7 arg-18 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--25958-22705-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-18 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) ((ExprSearch-Interactive-TTImp-n--25958-22705-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--26073-22956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) e-5)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--26073-22846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ExprSearch-Interactive-TTImp-mkCandidates 'erased arg-10 (arg-16 arg-17) (vector 0 ))) eta-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--26006-22770 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-15) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--26073-22846 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-13 arg-11) (Unify-Core-inTerm)) arg-10) arg-7) arg-14) arg-20) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((ExprSearch-Interactive-TTImp-case--26073-22956 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--25991-22723 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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--26006-22770 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24944-22563 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Normalise-Core-nf arg-0 arg-11 arg-4 arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--24944-21810-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)) eta-0)))))))))))))))))
(define ExprSearch-Interactive-TTImp-case--25701-22506 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24944-21809-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--24974-22466 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--25701-22506 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--24973-22283 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--24944-21808-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--24973-22152 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24944-21808-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--24973-22021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24944-21808-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--24683-21587 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-13 arg-16))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--24674-21549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24683-21587 arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--24358-21414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--24358-21338 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-3 (vector 0 ))) eta-0))))))
(define ExprSearch-Interactive-TTImp-case--24312-21271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((UnifyState-Core-newMeta arg-0 arg-12 arg-10 arg-9 arg-8 arg-5 (vector 1 e-6) arg-4 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (let ((e-3 (vector-ref sc4 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-3 (vector 0 ))) eta-0))))))))))))))))))))) (else (ExprSearch-Interactive-TTImp-case--24358-21414 arg-0 arg-1 arg-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--24274-21238 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--24312-21271 arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-14) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--23864-20915 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda (eta-1) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (t) (lambda (eta-2) (let ((act-17 (Context-Core-toFullNames 'erased arg-12 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) t eta-2))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-2))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-7) "\xa;")) eta-2)))))))) cs) eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) e-7))) eta-1))))))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased cs) eta-0)))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--23643-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 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-15 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--23864-20915 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23643-20685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23597-20648 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--23643-20685 arg-0 arg-1 arg-2 arg-3 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf arg-0 arg-13 arg-6 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((AutoSearch-Core-mkArgs arg-0 arg-12 arg-10 arg-9 arg-8 arg-6 e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (Normalise-Core-logNF arg-0 arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Target") arg-6 arg-5 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-12 arg-10) (Unify-Core-inSearch)) arg-9) arg-6) arg-5) e-3) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((_-0 (vector 0 e-2 e-3))) ((ExprSearch-Interactive-TTImp-case--23864-20915 arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--23574-20591 (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--23331-20426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--23283-20372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Core-Core-traverse 'erased 'erased (lambda (tm) (lambda (eta-1) (let ((act-16 (Normalise-Core-normaliseHoles arg-0 arg-13 arg-2 (UnifyState-Core-applyTo arg-0 arg-6 (TT-Core-embed 'erased 'erased tm) arg-2) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-1)))))))) e-5) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 (vector 0 ))) eta-0))))))))))))
(define ExprSearch-Interactive-TTImp-case--23208-20339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--23283-20372 arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ExprSearch-Interactive-TTImp-case--23190-20273 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (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--23283-20372 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))
(define ExprSearch-Interactive-TTImp-case--23079-20189 (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--24644-21538-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-15 ((Context-Core-lookupCtxtExact arg-15 arg-13) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--24683-21587 arg-0 arg-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define ExprSearch-Interactive-TTImp-n--24944-21810-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--24974-22466 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--28089-24595-lookupHoleName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExactI arg-6 (let ((sc0 arg-7)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-6 (vector 0 e-7 e-6)))) ext-0)))))) (else (let ((act-16 ((Context-Core-lookupCtxtName arg-6 (let ((sc2 arg-7)) (let ((e-0 (vector-ref sc2 1))) e-0))) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))))))))))
(define ExprSearch-Interactive-TTImp-n--23075-24081-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-15 ((Context-Core-lookupCtxtExactI arg-9 arg-10) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-9 (vector 0 e-7 e-6)))) ext-0)))))) (else (let ((act-16 ((Context-Core-lookupCtxtName arg-9 arg-10) ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))))))))))
(define ExprSearch-Interactive-TTImp-n--27949-24465-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--27949-24465-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--27949-24465-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--27960-24510 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--27960-24510 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3)))))))
(define ExprSearch-Interactive-TTImp-n--25958-22705-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--25958-22704-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-15 (let ((act-15 (Context-Core-fstName arg-13 eta-1))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-1))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-2) eta-3)))) e-6) eta-1)))))))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-1))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (Context-Core-sndName arg-13 eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-1))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-2) eta-3)))) e-9) eta-1)))))))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-1))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-17 (Context-Core-isPairType arg-13 e-2 eta-1))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-1))) (else (let ((e-12 (vector-ref sc6 1))) (let ((sc7 e-12)) (cond ((equal? sc7 0) (let ((act-18 (Context-Core-clearDefs arg-14 eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-7 eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-20 (Normalise-Core-quote_Quote__Closure arg-0 e-13 arg-7 e-10 eta-1))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-15 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-1))) (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-21 ((Normalise-Core-evalClosure arg-0 arg-14 e-7) eta-2))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-2))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--25958-22705-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-21 ((Normalise-Core-evalClosure arg-0 arg-14 e-10) eta-2))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-16 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-2))) (else (let ((e-16 (vector-ref sc11 1))) ((ExprSearch-Interactive-TTImp-n--25958-22705-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))))))))))))))))))) (vector 0 ))) eta-0)))(else (lambda (eta-0) (ExprSearch-Interactive-TTImp-n--25958-22704-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--25958-22704-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--25958-22704-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--25958-22704-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--25958-22704-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-15 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-11 arg-10 arg-9 arg-7 arg-17) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--26006-22770 arg-0 arg-1 arg-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--24944-21808-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--24944-21810-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--24944-21810-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21810-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--24944-21810-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21809-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--24973-22021 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--24973-22283 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--24944-21808-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--24944-21808-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--24973-22283 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--24944-21808-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--24944-21808-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--24973-22152 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--24973-22283 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--24944-21808-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--24944-21808-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--24973-22283 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--24944-21808-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--24944-21808-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--24973-22283 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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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--24944-21808-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-filter 'erased (lambda (eta-1) (ExprSearch-Interactive-TTImp-n--24944-21810-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)) eta-0)))))))))))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-5) e-6)) eta-1)))))))))))) (lambda (err) (lambda (eta-1) (let ((act-15 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 e-3) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 err) e-5)) eta-1)))))))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Normalise-Core-nf arg-0 e-5 arg-7 e-18) eta-1))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 e-5 e-12 arg-0 e-6 eta-1))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-18 (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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-1))))))))))))))))))))))))))))) (vector 0 ))) eta-0))))))(else (ExprSearch-Interactive-TTImp-case--26845-23630 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--26845-23630 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-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))))))))))))))(else (ExprSearch-Interactive-TTImp-case--26845-23630 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--26845-23630 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ExprSearch-Interactive-TTImp-n--24644-21538-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((act-17 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-8) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((ExprSearch-Interactive-TTImp-case--23597-20648 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Normalise-Core-nf arg-0 e-5 arg-7 arg-9) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((Normalise-Core-nf arg-0 e-5 arg-7 e-7) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--25958-22705-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--23190-20273 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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (ExprSearch-Interactive-TTImp-n--23075-24081-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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--27709-24272 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-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0)))))))))))(else (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-3 arg-8) ext-0))))))))))(else (let ((act-17 (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((ExprSearch-Interactive-TTImp-successful 'erased arg-1 arg-2 arg-3 arg-12) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((ExprSearch-Interactive-TTImp-case--24274-21238 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ExprSearch-Interactive-TTImp-n--27949-24465-getLHS e-2 arg-0 'erased e-5)) eta-0)))))))))))))
(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--23079-20189 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (ExprSearch-Interactive-TTImp-n--28089-24595-lookupHoleName arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-5 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (let ((act-17 ((Context-Core-getFullName arg-0 (vector 9 e-9)) ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc5 1))) (Metadata-Core-findHoleLHS arg-1 e-11 ext-0)))))))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-18 (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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 ((ExprSearch-Interactive-TTImp-getLHSData e-5 e-11) ext-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--23574-20591 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 arg-2 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 1 (vector 0 ) e-2 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-16 ((ExprSearch-Interactive-TTImp-dropLinearErrors arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-6)) eta-1))))))))))) (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--24808-22237 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 2 ))) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--24608-22103 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CaseSplit-Interactive-TTImp-combine e-5 (vector 0 ))) eta-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--24571-22052 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-5 (vector 0 ) arg-7 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--24608-22103 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3)) eta-0))))))))
(define CaseSplit-Interactive-TTImp-case--24332-21862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-0)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--24194-21817 (lambda (arg-0 arg-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf e-0 e-6 e-2 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-nf e-0 e-6 e-2 e-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-18 ((ProcessDef-TTImp-impossibleOK e-0 e-6 e-7 e-8) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-0)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--24194-21734 (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-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-4 arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-3 arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-4 (vector 0 ) e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (CaseSplit-Interactive-TTImp-getUpdates arg-6 arg-1 e-7 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-7 e-10)) eta-0))))))))))))))))))))))))))))))))
(define CaseSplit-Interactive-TTImp-case--23962-21559 (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--23962-21504 (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--23910-21474 (lambda (arg-0 arg-1 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-15 (IORef-Data-writeIORef 'erased 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)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (IORef-Data-writeIORef 'erased 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))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))))
(define CaseSplit-Interactive-TTImp-case--23894-21428 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--23910-21474 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))))
(define CaseSplit-Interactive-TTImp-case--23821-21385 (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--23734-21289 (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 30 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CaseSplit-Interactive-TTImp-apply e-2 (List-Prelude-C-43C-43 'erased keep e-5))) eta-0))))))))))))))
(define CaseSplit-Interactive-TTImp-case--23561-21154 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 arg-1 0)) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--23548-21134 (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--23561-21154 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-0)) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--23474-21074 (lambda (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-15 ((Normalise-Core-nf (vector 0 ) arg-4 (vector 0 ) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-3 arg-4 arg-1 (vector 0 ) e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-2 arg-0) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--23317-20959 (lambda (arg-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-15 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-10 arg-9 arg-5 arg-8 arg-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 (vector 0 ))) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--23066-20831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CaseSplit-Interactive-TTImp-defaultNames)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define CaseSplit-Interactive-TTImp-case--23065-20722 (lambda (arg-0 arg-1 arg-2 arg-3 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-8)) eta-0))) (else (CaseSplit-Interactive-TTImp-n--23055-20686-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9))))))
(define CaseSplit-Interactive-TTImp-case--22966-20627 (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--22796-20488 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-3 (vector 0 arg-5 e-8)))) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--22754-20449 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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"))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupDefExact e-2 (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-3 (vector 0 e-2 e-8)))) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))))))))))))
(define CaseSplit-Interactive-TTImp-case--22745-20409 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-1 "Can't find function name on LHS"))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CaseSplit-Interactive-TTImp-findTyName (vector 0 ) arg-2 e-5 (vector 0 ) arg-1 arg-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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"))))) eta-0)) (else (let ((e-3 (vector-ref sc3 1))) (let ((act-17 (Context-Core-lookupDefExact e-3 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 (vector 0 e-3 e-8)))) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))))))))))))))))))))))))))))
(define CaseSplit-Interactive-TTImp-case--22702-20381 (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--22527-20243 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseSplit-Interactive-TTImp-case--22499-20211 (lambda (arg-0 arg-1 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-15 ((Normalise-Core-nf arg-0 arg-10 arg-9 arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2)) eta-0)))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--22966-20612-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--23055-20686-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-5 arg-7) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-getFullName arg-5 e-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) ((CaseSplit-Interactive-TTImp-case--23065-20722 '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--23055-20688-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--23055-20687-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "f" (vector 1 "g" (vector 0 )))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CaseSplit-Interactive-TTImp-defaultNames)) eta-0))))))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((CaseSplit-Interactive-TTImp-n--23055-20686-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CaseSplit-Interactive-TTImp-defaultNames)) eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CaseSplit-Interactive-TTImp-defaultNames)) eta-0)))))))
(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--23548-21134 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-15 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-2 e-5 e-6)) eta-0)))))))))))))))) ((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-15 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc1 1))) (let ((act-16 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-9 e-7 e-10)) eta-0))))))))))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 (TTImp-TTImp-getFC arg-4) 0)) eta-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-15 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5)) 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-15 ((CaseSplit-Interactive-TTImp-updateArg arg-0 arg-1 arg-2 arg-3 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-3 e-5)) eta-0)))))))))))))))
(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 (Prelude-C-43_Num__Int arg-2 1) arg-3)) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((var (CaseSplit-Interactive-TTImp-n--22966-20612-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--22966-20627 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (IORef-Data-writeIORef 'erased 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))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))))))))
(define CaseSplit-Interactive-TTImp-newLHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (CaseSplit-Interactive-TTImp-case--23734-21289 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-15 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-branch arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (UnifyState-Core-handleUnify 'erased arg-0 arg-1 (lambda (eta-0) (let ((act-18 ((Elab-TTImp-elabTerm (vector 0 ) arg-0 e-5 arg-1 arg-2 (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((sc4 e-8)) (let ((e-2 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-0 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-1 e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-0 (vector 0 ) e-2 eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (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-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (CaseSplit-Interactive-TTImp-getUpdates e-6 arg-3 e-11 eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-11 e-14)) eta-0))))))))))))))))))))))))))))))))))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-19 ((Normalise-Core-nf e-0 e-9 e-2 e-3) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-20 ((Normalise-Core-nf e-0 e-9 e-2 e-4) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-21 ((ProcessDef-TTImp-impossibleOK e-0 e-9 e-10 e-11) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((sc8 e-12)) (cond ((equal? sc8 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-4)) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))))) ext-0))))))))))))))))))
(define CaseSplit-Interactive-TTImp-getUpdates (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "TTImp.Interactive.CaseSplit.UPD" ) (vector 0 (vector 0 ) (vector 0 )) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((CaseSplit-Interactive-TTImp-findUpdates e-5 arg-0 arg-1 arg-2) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) ext-0)))))))))))))))))
(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-15 (Context-Core-logTerm (vector 0 ) arg-1 (+ 1 (+ 1 (+ 1 0))) (lambda () "Splitting") arg-5 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((usedns (CaseSplit-Interactive-TTImp-findAllVars 'erased arg-5))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((CaseSplit-Interactive-TTImp-findCons arg-1 arg-6 lhs) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (Unelab-TTImp-unelabNoSugar (vector 0 ) arg-1 (vector 0 ) lhs eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--24608-22103 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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3)) eta-0)))))))))))))))))))))))))
(define CaseSplit-Interactive-TTImp-getSplits (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Metadata-Core-findLHSAt arg-1 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 2 ))) ext-0)))))))))))
(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-15 (((e-5 arg-1) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-2 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--22702-20381 '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-15 (let ((sc2 e-7)) (case (vector-ref sc2 0) ((1) (let ((act-15 (CaseSplit-Interactive-TTImp-getArgName 'erased arg-1 arg-2 e-2 arg-3 e-8 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 (vector 0 ))) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((e-4 arg-2) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-1 1))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-5 e-10)) eta-0))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseSplit-Interactive-TTImp-getArgName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 ((CaseSplit-Interactive-TTImp-n--23055-20687-findNames 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-5) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CaseSplit-Interactive-TTImp-n--23055-20688-getName 'erased arg-5 arg-4 arg-3 arg-2 arg-1 arg-3 e-5 arg-4)) ext-0))))))))
(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-15 (Context-Core-lookupTyExact e-22 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((bind-0 (vector 0 ))) ((CaseSplit-Interactive-TTImp-case--23910-21474 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) 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-15 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-15 e-24) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((CaseSplit-Interactive-TTImp-findUpdates arg-0 arg-1 e-18 e-27) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--22499-20211 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseSplit-Interactive-TTImp-findCons (lambda (arg-0 arg-1 arg-2) (CaseSplit-Interactive-TTImp-case--22745-20409 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-lookupTyExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-1) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((CaseSplit-Interactive-TTImp-getArgNames 'erased arg-0 e-5 arg-2 (vector 0 ) e-7) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) ext-0))))))))))))) (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--17674-5251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--12450-4825-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-24 arg-8 arg-9 arg-10 arg-11 (vector 0 ) arg-20 (let ((sc1 arg-22)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
(define AutoSearch-Core-case--17585-5144 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-8)) (cond ((equal? sc0 0) (AutoSearch-Core-n--12450-4825-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc1 arg-23)) (let ((e-1 (vector-ref sc1 2))) e-1)))) (else (lambda (eta-0) (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (let ((defaults 1)) (AutoSearch-Core-case--17674-5251 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 defaults e (AutoSearch-Core-n--12450-4824-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 defaults arg-9 arg-10 arg-11 arg-12 e)))) eta-0)))))))
(define AutoSearch-Core-case--17523-5074 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-getSearchData arg-12 arg-10 arg-8 arg-19 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 arg-8)) (cond ((equal? sc4 0) ((AutoSearch-Core-n--12450-4825-tryGroups arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 (vector 0 ) arg-21 (let ((sc5 e-6)) (let ((e-1 (vector-ref sc5 2))) e-1))) eta-0)) (else (UnifyState-Core-handleUnify 'erased arg-12 arg-11 (AutoSearch-Core-searchLocal arg-0 arg-12 arg-11 arg-10 arg-9 arg-8 arg-15 arg-6 arg-5 arg-3 arg-2 arg-21) (lambda (e) (let ((defaults 1)) (AutoSearch-Core-case--17674-5251 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-5 e-6 e-7 defaults e (AutoSearch-Core-n--12450-4824-ambig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 defaults arg-9 arg-10 arg-11 arg-12 e)))) eta-0))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-10 (vector 0 ) arg-3) eta-0)))))))
(define AutoSearch-Core-case--12450-5033 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17523-5074 arg-0 arg-1 arg-2 arg-3 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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--17303-4922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--12450-4825-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--17144-4727 (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--16928-4532 (lambda (arg-0 arg-1 arg-2 arg-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-15 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--16896-4502 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((Normalise-Core-evalClosure arg-0 arg-12 e-1) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 arg-12 e-4) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((AutoSearch-Core-checkConcreteDets arg-0 arg-11 arg-10 arg-9 arg-8 arg-7 arg-6 e-6) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Context-Core-getSearchData arg-11 arg-9 arg-8 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Context-Core-toFullNames 'erased arg-11 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--16488-4400 (lambda (arg-0 arg-1 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-evalClosure arg-0 e-5 arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((AutoSearch-Core-n--16488-4138-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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--16512-4309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))(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--16512-4206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-17)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((7) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (cond ((equal? sc2 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 arg-15 arg-14 (vector 0 ) arg-5) eta-0)))))))(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--16099-4043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (AutoSearch-Core-anyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18)) (else (AutoSearch-Core-exactlyOne arg-0 arg-14 arg-13 arg-12 arg-5 arg-6 arg-18))))))
(define AutoSearch-Core-case--16143-3872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-15 arg-18))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define AutoSearch-Core-case--16134-3831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16143-3872 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define AutoSearch-Core-case--15844-3641 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 ((AutoSearch-Core-isPairNF 'erased arg-13 arg-4 arg-19 arg-14) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased candidate) 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--15591-3581 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-3) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--15844-3641 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15591-3384 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15087-3049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-15 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-17 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Normalise-Core-quote_Quote__Closure arg-0 e-5 arg-4 arg-18 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 (vector 1 (lambda (eta-1) (let ((act-18 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--14535-2384-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-18 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) ((AutoSearch-Core-n--14535-2384-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--14562-2890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-15 (let ((act-15 (Context-Core-fstName arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) e-5) eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Context-Core-sndName arg-13 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased eta-1) eta-2)))) e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-isPairType arg-13 arg-19 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (cond ((equal? sc4 0) (let ((act-18 (Context-Core-clearDefs arg-24 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-17 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 (Normalise-Core-quote_Quote__Closure arg-0 e-8 arg-4 arg-18 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) ((AutoSearch-Core-exactlyOne arg-0 arg-13 arg-12 arg-11 arg-4 arg-5 (vector 1 (lambda (eta-1) (let ((act-21 ((Normalise-Core-evalClosure arg-0 arg-24 arg-17) eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--14535-2384-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-21 ((Normalise-Core-evalClosure arg-0 arg-24 arg-18) eta-1))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-11 (vector-ref sc8 1))) ((AutoSearch-Core-n--14535-2384-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--14746-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 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((envC-39 (AutoSearch-Core-n--14535-2382-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-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased candidate) eta-0))))))))))))) (else (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) 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--14653-2590 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 ((AutoSearch-Core-usableLocal arg-0 arg-13 arg-11 arg-9 arg-4 arg-15) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((envC-39 (AutoSearch-Core-n--14535-2382-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-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased candidate) eta-0)))))))))))) (else (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14561-2515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-14) e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--14653-2590 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14220-2126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (AutoSearch-Core-n--14154-2059-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define AutoSearch-Core-case--14204-2075 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Normalise-Core-evalClosure arg-3 e-5 arg-10) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (cond ((equal? sc3 0) ((AutoSearch-Core-n--14154-2059-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))))))) (else (AutoSearch-Core-n--14154-2059-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--14023-1915 (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--13976-1888 (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--14023-1915 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--13750-1734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-5 e-11 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-6 e-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (Context-Core-commit arg-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) eta-0)))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--13750-1708-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) arg-8) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--13750-1708-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) arg-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--13750-1708-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0))))))))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-4 (vector 0 ) arg-2) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (AutoSearch-Core-n--13750-1708-normRes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) arg-8) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 19 arg-0 arg-4 arg-3 e-5) eta-0))))))))))))
(define AutoSearch-Core-case--13750-1658 (lambda (arg-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--13644-1575 (lambda (arg-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--13175-1222 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--12978-1113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((ok 1)) ((AutoSearch-Core-case--13175-1222 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--12978-1033 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define AutoSearch-Core-case--12927-947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((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-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((act-20 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949 eta-1)))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960 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-20)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((ok 1)) ((AutoSearch-Core-case--13175-1222 arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define AutoSearch-Core-case--12881-912 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12927-947 arg-0 arg-1 arg-2 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--12838-838 (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--12667-761 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 arg-17 arg-16 arg-3 arg-18 arg-15) e-2) e-3)) eta-0)))))))
(define AutoSearch-Core-case--12606-700 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Unify-Core-setInvertible arg-1 arg-10 (vector 9 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (((arg-5 arg-12) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-8 e-3)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 e-2 arg-16 arg-3 e-3 arg-15) e-7) e-4)) eta-0)))))))))))))))))))
(define AutoSearch-Core-n--16099-3820-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-15 ((Context-Core-lookupCtxtExact arg-17 arg-15) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--16143-3872 arg-0 arg-1 arg-2 arg-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define AutoSearch-Core-n--14154-2059-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--14204-2075 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-10 arg-11)))))))))
(define AutoSearch-Core-n--12450-4825-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-15 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2))))))) eta-1))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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--17303-4922 arg-0 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--12450-4824-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-15 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2))))))) eta-1))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-16 (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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--17303-4922 arg-0 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--12450-4824-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-15 (Context-Core-logC arg-12 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda (eta-2) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-3) (Context-Core-getFullName arg-12 eta-3)) e-6) eta-2))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-2))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2))))))) eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((act-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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--17303-4922 arg-0 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--12450-4824-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--13750-1708-normRes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (Normalise-Core-normaliseHoles arg-0 e-6 arg-3 e-2 eta-0)))))))))
(define AutoSearch-Core-n--12833-830-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--12838-838 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
(define AutoSearch-Core-n--14535-2384-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--14535-2383-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--14562-2890 arg-0 arg-1 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--14535-2380-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--14535-2383-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--14535-2383-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--14535-2383-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--14535-2383-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--14535-2383-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-15 ((AutoSearch-Core-mkArgs arg-0 arg-13 arg-12 arg-11 arg-10 arg-4 arg-17) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-13 arg-12) (Unify-Core-inTerm)) arg-11) arg-4) arg-18) e-3) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 0 e-2 e-3))) ((AutoSearch-Core-case--14653-2590 arg-0 arg-1 arg-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--16488-4138-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-15 (((e-4 arg-11) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-6 (vector 10 e-1 1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--16488-4138-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-0)))))))))) ((3) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-15 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--16488-4138-concrete arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 e-5 1) eta-1)))))))) e-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((2) (let ((e-16 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (parg) (lambda (eta-1) (let ((act-15 ((Normalise-Core-evalClosure arg-0 arg-11 parg) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-n--16488-4138-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0))))))(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-15 (Context-Core-lookupDefExact e-22 (let ((sc3 arg-11)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((sc5 e-1)) (case (vector-ref sc5 0) ((7) (let ((e-3 (vector-ref sc5 2))) (let ((sc6 e-3)) (cond ((equal? sc6 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define AutoSearch-Core-n--14535-2381-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--14535-2381-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--14535-2382-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--14535-2381-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--14535-2380-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--12450-4824-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Extra-Bool-Data-allTrue e-6)) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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-15 (Context-Core-getSearchData arg-1 arg-2 (Prelude-not arg-3) e-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc1 1))) ((AutoSearch-Core-n--14154-2059-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure arg-0 e-5 eta-1)) e-15) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Extra-Bool-Data-allTrue e-6)) eta-0)))))))))))))) ((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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (((e-20 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-4 (vector 10 e-17 1))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0))))))))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-branch arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-17 (e-2 eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-2 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-1)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-2 e-5 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-1 e-6 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1)))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-22 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 (vector 0 e-7 (vector 0 e-9 e-8))) e-12)) eta-1)))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-1) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-2 e-5 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-1)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased arg-1 e-6 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((act-19 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 e-3) eta-1))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 err) e-9)) eta-1)))))))))))))))) 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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 (vector 0 e-6 e-7 e-8) e-5)) eta-0))))))))))) ((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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-1 e-2 (vector 1 e-10 e-11 e-12) e-5)) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-17 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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--17523-5074 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-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((AutoSearch-Core-abandonIfCycle arg-0 arg-1 arg-11 arg-12 arg-6) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((tryingC-39 (vector 1 arg-12 arg-6))) (let ((act-17 ((Normalise-Core-nf arg-0 e-5 arg-11 arg-12) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--17523-5074 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-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (AutoSearch-Core-n--16099-3820-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((visns (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-6))) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (AutoSearch-Core-searchName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-13 eta-1)) visns))) (let ((sc3 arg-11)) (cond ((equal? sc3 0) ((AutoSearch-Core-anyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0)) (else ((AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs) eta-0))))))))))))))))))))))))
(define AutoSearch-Core-searchName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Context-Core-getNS arg-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-getNestedNS arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--15591-3384 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-18 ((Normalise-Core-nf arg-0 e-5 arg-10 (TT-Core-embed 'erased 'erased ty)) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 ((AutoSearch-Core-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-10 e-8) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-21 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-10940) (lambda (arg-10942) (lambda (arg-10944) (lambda (arg-10945) (lambda (arg-10946) (lambda (arg-10948) (lambda (arg-10949) (Unify-Core-unifyD_Unify__NF vars arg-10940 arg-10942 arg-10944 arg-10945 arg-10946 arg-10948 arg-10949))))))))) (lambda (vars) (lambda (arg-10951) (lambda (arg-10953) (lambda (arg-10955) (lambda (arg-10956) (lambda (arg-10957) (lambda (arg-10959) (lambda (arg-10960) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-10951 arg-10953 arg-10955 arg-10956 arg-10957 arg-10959 arg-10960)))))))))) arg-0 arg-1 arg-2) (Unify-Core-inTerm)) arg-3) arg-10) arg-11) e-4) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-12 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((_-0 (vector 0 e-11 e-4))) ((AutoSearch-Core-case--15844-3641 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Normalise-Core-nf arg-0 e-5 arg-10 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((AutoSearch-Core-n--14535-2384-findPos arg-0 e-2 e-3 arg-12 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-2 (lambda (eta-1) eta-1) e-6 arg-12) eta-0)))))))))))))))))
(define AutoSearch-Core-searchLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((elabs (Prelude-map_Functor__List 'erased 'erased (lambda (t) (AutoSearch-Core-searchLocalWith arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 t arg-11)) (AutoSearch-Core-getAllEnv arg-0 arg-3 arg-4 (vector 0 ) arg-10)))) (AutoSearch-Core-exactlyOne arg-0 arg-1 arg-2 arg-3 arg-10 arg-9 elabs))))
(define AutoSearch-Core-searchIfHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-7)) (cond ((equal? sc0 0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-9) eta-0)))(else (let ((e-0 (- arg-7 1))) (let ((hole (let ((sc0 arg-11)) (let ((e-1 (vector-ref sc0 1))) e-1)))) (let ((rig (let ((sc0 arg-11)) (let ((e-2 (vector-ref sc0 2))) e-2)))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact (vector 9 hole) (let ((sc1 e-5)) (let ((e-27 (vector-ref sc1 1))) e-27))) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (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--12927-947 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-clearDefs e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 (UnifyState-Core-genName arg-1 arg-2 "sa" eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (let ((act-18 (Normalise-Core-quote_Quote__NF arg-0 e-9 arg-5 e-8 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((argRig (ZeroOneOmega-Algebra-rigMult arg-4 e-6))) (let ((act-19 ((UnifyState-Core-newMeta arg-0 arg-1 arg-2 arg-3 argRig arg-5 e-10 e-11 (vector 7 (Env-Core-length 'erased 'erased arg-5) 1) 1) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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-20 (Unify-Core-setInvertible arg-1 arg-3 (vector 9 e-14) eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-15 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((act-21 (let ((act-21 (((e-4 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-5 e-13)) eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (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-21)) (case (vector-ref sc9 0) ((0) (let ((e-16 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 e-14 argRig e-7 e-13 e-11) e-18) e-17)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) arg-6)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) arg-6)) eta-0)))))))
(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-15 (((e-10 arg-4) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) arg-2 (vector 10 e-7 1))) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(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--12833-830-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--12833-830-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--13976-1888 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) arg-2)))))))))))))))
(define AutoSearch-Core-exactlyOne (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased e-1 (lambda (err) (let ((sc2 err)) (case (vector-ref sc2 0) ((29) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased err eta-1)))(else (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-3 (vector 0 ) arg-5) eta-1)))))) eta-0)))(else (lambda (eta-0) (let ((act-15 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((AutoSearch-Core-case--13750-1734 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((AutoSearch-Core-successful arg-0 arg-1 arg-2 arg-6) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((AutoSearch-Core-case--13750-1734 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Either-Data-rights 'erased 'erased e-5)) eta-0))))))))))))
(define AutoSearch-Core-concreteDets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (AutoSearch-Core-case--16488-4400 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 (Context-Core-isPairType arg-1 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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-17 ((Normalise-Core-evalClosure arg-0 e-6 e-9) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure arg-0 e-6 e-11) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((AutoSearch-Core-checkConcreteDets arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (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-17 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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-17 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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-17 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-17 (Context-Core-getSearchData arg-1 arg-3 arg-4 e-2 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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-18)) (case (vector-ref sc5 0) ((0) (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-convert_Convert__Term arg-0 e-5 arg-2 arg-3 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--14943-10850 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--14927-10838 (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--14943-10850 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--14868-10784 (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-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-1 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Def arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Def arg-4574 arg-4575)))) (let ((sc1 e-1)) (let ((e-17 (vector-ref sc1 18))) e-17)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--14468-10609 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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--14468-10556-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--14468-10557-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3))))) eta-0)))))))
(define CompileExpr-Compiler-case--14468-10536 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0 e-2 e-3)) eta-0)))))))
(define CompileExpr-Compiler-case--14468-10480 (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-15 ((Context-Core-getFullName arg-3 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 7 (FC-Core-emptyFC) e-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (CompileExpr-Compiler-n--14468-10429-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--14468-10430-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))) eta-0))))))))))))
(define CompileExpr-Compiler-case--14133-10161 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-6)) eta-0)))))))))))))))))
(define CompileExpr-Compiler-case--13980-10090 (lambda (arg-0 arg-1 arg-2 arg-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) arg-8 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 arg-9 e-6)) eta-0)))))))))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 0 e-6) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-7)) eta-1)))))))))))))))) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-2 e-5)) eta-0)))))))))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Normalise-Core-evalClosure (vector 0 ) arg-8 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-7 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-6)) eta-0))))))))))))))))))
(define CompileExpr-Compiler-case--13872-9905 (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) ((2) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (CompileExpr-Compiler-getFieldArgs arg-3 arg-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-3 e-5)) 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)))))))(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--13745-9772 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 e-3) arg-11)) eta-0)))))))
(define CompileExpr-Compiler-case--13726-9734 (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-15 (CompileExpr-Compiler-getFieldArgs arg-1 e-7 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (CompileExpr-Compiler-getPArgs arg-1 e-4 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-10 e-3) e-6)) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CompileExpr-Compiler-case--13715-9719 (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-15 (CompileExpr-Compiler-getFieldArgs arg-1 e-11 eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc5 1))) (let ((act-16 (CompileExpr-Compiler-getPArgs arg-1 e-9 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-15 e-14) e-12)) eta-0))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--13566-9614 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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) ((2) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 arg-9)) 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)))))))(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--13546-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))) (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-15 ((Normalise-Core-evalClosure (vector 0 ) arg-1 e-4) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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) ((2) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8 e-1)) eta-0)))(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--13535-9565 (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--13546-9581 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--13484-9526 (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--12246-9372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-11)) arg-13)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 arg-11 (vector 0 arg-7 arg-11) arg-12 arg-13)) eta-0)))))))
(define CompileExpr-Compiler-case--13075-9198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Maybe-Data-fromMaybe 'erased (lambda () (vector 13 arg-13)) arg-17)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-boolHackTree 'erased (CompileExpr-Compiler-natHackTree 'erased (vector 10 arg-13 (vector 0 arg-2 arg-13) arg-16 arg-17)))) eta-0)))))))
(define CompileExpr-Compiler-case--12246-9146 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-12 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CompileExpr-Compiler-conCases arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((CompileExpr-Compiler-getDef arg-0 arg-12 arg-11 arg-8) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--13075-9198 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define CompileExpr-Compiler-case--12237-8939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12237-8813-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-15 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-9 arg-6 arg-2) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CompileExpr-Core-substs arg-0 arg-1 env e-5))) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CompileExpr-Compiler-case--12696-8839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12237-8813-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--12237-8813-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--12400-8603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-12 (vector 1 arg-3) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-12 (vector 0 ) arg-13 (CompileExpr-Core-shrinkCExp 'erased 'erased arg-14 arg-15)) arg-16)) eta-0)))))))
(define CompileExpr-Compiler-case--12323-8557 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((CompileExpr-Compiler-case--12400-8603 arg-0 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--12231-8444-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--12290-8492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((CompileExpr-Compiler-case--12323-8557 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-15 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((CompileExpr-Compiler-case--12323-8557 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--12231-8469 (lambda (arg-0 arg-1 arg-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--12290-8492 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-15 ((Context-Core-getFullName arg-7 arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-7 arg-6 arg-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((CompileExpr-Compiler-conCases arg-1 arg-7 arg-6 arg-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-5 (vector 0 ) arg-0 e-6) e-7)) eta-0))))))))))))))))))))))
(define CompileExpr-Compiler-case--12100-8335 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-natHack 'erased res)) eta-0))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-natHack 'erased res)) eta-0)))))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-natHack 'erased res)) eta-0))))))))))
(define CompileExpr-Compiler-case--11652-8293 (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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((CompileExpr-Compiler-toCExpTm arg-0 arg-3 arg-2 e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((CompileExpr-Compiler-numArgs 'erased e-6 e-2) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-natHack 'erased res)) eta-0)))) ((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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-natHack 'erased res)) eta-0))))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-natHack 'erased res)) eta-0)))))))))))))))))))))))))))))))))
(define CompileExpr-Compiler-case--11649-8229 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 arg-3 arg-2)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 arg-3 (vector 1 (TT-Core-show_Show__Constant arg-2)) (vector 0 ) (vector 0 ))) eta-0)))))))
(define CompileExpr-Compiler-case--11496-7831 (lambda (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--11420-7662 (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--11027-7310 (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--10997-7289 (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--11027-7310 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-4 arg-3)))))))
(define CompileExpr-Compiler-case--10903-7194 (lambda (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--10884-7180-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--10884-7180-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--10774-7095 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) arg-6) (else (CompileExpr-Compiler-n--10765-7073-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--10329-6685 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1 (let ((sc2 arg-5)) (let ((e-3 (vector-ref sc2 4))) e-3)))) eta-0))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-19)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 0)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 0)) eta-0)))))))) ((1) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 (List-Data-length 'erased e-4))) eta-0)))) ((2) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-8)) eta-0)))) ((3) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-9)) eta-0)))) ((4) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-11)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 0)) eta-0)))))))
(define CompileExpr-Compiler-case--10300-6670 (lambda (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--10329-6685 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 0)) eta-0)))))))
(define CompileExpr-Compiler-n--11496-7723-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--14468-10556-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--14468-10429-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--12237-8813-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--12696-8839 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--10566-6894-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4)))
(define CompileExpr-Compiler-n--10566-6895-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--10765-7074-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--10765-7074-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--10765-7073-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--10765-7073-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--10774-7095 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--14468-10557-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--14468-10557-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))
(define CompileExpr-Compiler-n--14468-10430-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--14468-10430-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))
(define CompileExpr-Compiler-n--10884-7180-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--10903-7194 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Nat arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Nat arg-623 arg-624)))) arg-6 arg-5)))))))))
(define CompileExpr-Compiler-n--12231-8444-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--10662-6992-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--10662-6992-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--10662-7014-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-15 ((CompileExpr-Compiler-getNewType arg-0 arg-1 fc (vector 0 e-2 fc) arg-2 e-5) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-18 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 alts) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((_-0 (vector 0 ))) ((CompileExpr-Compiler-case--13075-9198 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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-0)))))))))))))))))) ((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-15 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((CompileExpr-Compiler-getDef arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((alts (vector 1 (vector 2 e-26 e-27) e-14))) ((CompileExpr-Compiler-case--12246-9372 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 (TT-Core-getLoc 'erased e-4) (Strings-Prelude-C-43C-43 "Missing case tree in " (Name-Core-show_Show__Name arg-2)))) eta-0)))))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 (FC-Core-emptyFC) e-10)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Impossible case encountered in " (Name-Core-show_Show__Name arg-2)))) eta-0)))))))
(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-15 ((CompileExpr-Compiler-toCExpTree (vector 1 e-10 (vector 1 e-11 arg-0)) arg-1 arg-2 e-12) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-4 e-2)) 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 ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-7 (vector 0 e-50))) eta-0))) ((equal? sc8 "False") (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-7 (vector 0 e-50))) eta-0))) ((equal? sc8 "LT") (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-7 (vector 0 e-50))) eta-0))) ((equal? sc8 "EQ") (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-7 (vector 0 e-50))) eta-0))) ((equal? sc8 "GT") (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-7 (vector 0 e-50))) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-5 (vector 1 e-50) (vector 0 ))) eta-0))))))))))))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7 e-9 (vector 0 ) (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-1 e-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-7 (vector 1 e-7 e-5) (vector 0 ))) eta-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-11 (vector 1 e-11 e-12) e-5)) eta-0))))))))))) ((3) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((sc1 e-18)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-16 e-17 e-5)) eta-0)))))))) ((1) (let ((e-66 (vector-ref sc1 1))) (let ((e-67 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-67) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Semiring-Algebra-branchZero 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) (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)) eta-0))))))))))))))) ((2) (let ((e-72 (vector-ref sc1 3))) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-72) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((CompileExpr-Compiler-toCExp (vector 1 e-17 arg-0) arg-1 arg-2 e-19) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-16 (vector 1 "->") (vector 0 ) (vector 1 e-5 (vector 1 (vector 2 e-16 e-17 e-6) (vector 0 ))))) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-16)) 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-15 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-22) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-23) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-21 e-5 (vector 1 e-6 (vector 0 )))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-30)) eta-0)))) ((7) (let ((e-34 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-37) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-34 e-5)) eta-0)))))))))) ((8) (let ((e-39 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExp arg-0 arg-1 arg-2 e-41) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-39 e-5)) eta-0)))))))))) ((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--11649-8229 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-46)) eta-0)))) (else (let ((e-49 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-49 (vector 1 "Type") (vector 0 ) (vector 0 ))) eta-0))))))))
(define CompileExpr-Compiler-toCExp (lambda (arg-0 arg-1 arg-2 arg-3) (CompileExpr-Compiler-case--11652-8293 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-15 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered undefined name " (Name-Core-show_Show__Name e-5))))) eta-0)))))))) ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExpTree e-1 arg-0 arg-1 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-5)) eta-0)))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (CompileExpr-Compiler-case--14468-10480 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) arg-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) ((CompileExpr-Compiler-getCFTypes arg-0 (vector 0 ) e-8) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-7 e-2 e-3)) eta-0))))))))))))))))) ((4) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (CompileExpr-Compiler-case--14468-10609 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-10) e-11 nt)) eta-0))))))) ((6) (let ((e-14 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ) e-14 (vector 0 ))) eta-0)))) ((7) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered unimplemented hole " (Name-Core-show_Show__Name e-5))))) eta-0)))))))) ((9) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered constrained hole " (Name-Core-show_Show__Name e-5))))) eta-0)))))))) ((8) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 (vector 14 (FC-Core-emptyFC) (Strings-Prelude-C-43C-43 "Encountered incomplete proof search " (Name-Core-show_Show__Name e-5))))) eta-0))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-0 arg-1) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) eta-0))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-5)) eta-0))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-lookupCtxtExact e-3 (let ((sc1 arg-1)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--10329-6685 '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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 0)) eta-0)))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 0)) eta-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) ((6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0)))(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) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) 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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) eta-0)))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) eta-0))))))))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-19 ((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-19)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-18)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-19)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((8) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) eta-0)))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) eta-0))))))))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-19 ((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-19)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc10 1))) (let ((e-9 (vector-ref sc10 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc12 act-18)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc13 act-19)) (case (vector-ref sc13 0) ((0) (let ((e-18 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc10 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-10 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) 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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((8) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((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-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc9 1))) (let ((e-9 (vector-ref sc9 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc11 act-18)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc11 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc9 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((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-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc8 1))) (let ((e-9 (vector-ref sc8 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-17 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc10 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 )) eta-0))) ((11) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 )) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((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-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc7 1))) (let ((e-9 (vector-ref sc7 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-17 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc9 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-19) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (((e-15 e-5) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-12 1))) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((CompileExpr-Compiler-nfToCFType arg-0 e-12 1 e-7) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-6 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((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-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc6 1))) (let ((e-9 (vector-ref sc6 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-17 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-1))) (else (let ((e-17 (vector-ref sc8 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-17) eta-1))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-18 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-16 e-18)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((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-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc5 1))) (let ((e-9 (vector-ref sc5 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-17 ((CompileExpr-Compiler-getNArgs e-6 e-7 e-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Normalise-Core-evalClosure (vector 0 ) e-6 eta-1)) e-9) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 ((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-19)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-7 e-11)) eta-0))))))))))))) ((1) (let ((e-10 (vector-ref sc4 1))) (let ((e-9 (vector-ref sc4 2))) (let ((act-18 ((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-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-11) eta-1))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-1))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 0 e-13) eta-1))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-1))) (else (let ((e-14 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-12 e-14)) eta-1)))))))))))))))) e-9) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-10 e-11)) eta-0))))))))) ((2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) ((3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 )) eta-0)) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 ((Normalise-Core-evalClosure (vector 0 ) e-6 e-9) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 arg-2 e-10) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-11)) eta-0))))))))))))))))))))))))))))))))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "Type") (vector 0 ))) eta-0))) ((9) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 (vector 1 "__") (vector 0 ))) eta-0)))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Normalise-Core-quote_Quote__NF (vector 0 ) e-5 (vector 0 ) arg-3 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) e-6 eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--11420-7662 '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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--14943-10850 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--10997-7289 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--13484-9526 e-0 arg-0 (CompileExpr-Compiler-mkArgList (Prelude-C-43_Num__Int arg-0 1) 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-15 ((Normalise-Core-evalClosure (vector 0 ) arg-0 arg-1) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--13546-9581 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-lookupDefExact e-7 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--12237-8813-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-17 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased e-9 arg-0) arg-1 arg-4 e-10) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-16 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((e-16 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CompileExpr-Core-substs e-9 arg-0 env e-16))) eta-0)))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-4)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))) ((equal? sc2 "AnyPtr") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))) ((equal? sc2 "Unit") (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))) ((equal? sc2 "Struct") (let ((sc3 arg-2)) (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-15 ((Normalise-Core-evalClosure (vector 0 ) arg-0 e-14) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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) ((2) (let ((e-6 (vector-ref sc8 1))) (let ((act-16 (CompileExpr-Compiler-getFieldArgs arg-0 e-17 eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) 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 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-1 arg-2)) eta-0)))))))
(define CompileExpr-Compiler-getFieldArgs (lambda (arg-0 arg-1 ext-0) (let ((act-15 ((Normalise-Core-evalClosure (vector 0 ) arg-0 arg-1) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (CompileExpr-Compiler-getFieldArgs arg-0 e-12 ext-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) ext-0))) (else (let ((e-13 (vector-ref sc6 1))) (let ((act-17 (CompileExpr-Compiler-getPArgs arg-0 e-10 ext-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-16 e-15) e-13)) ext-0)))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-getDef (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) ((3) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-0))))))))) ((2) (let ((e-7 (vector-ref sc1 1))) (let ((e-8 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((5) (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-8) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))(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-15 ((CompileExpr-Compiler-nfToCFType arg-0 e-1 1 e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (let ((act-17 (((e-4 e-9) (Normalise-Core-toClosure 'erased (Value-Core-defaultOpts) (vector 0 ) (vector 10 e-1 1))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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-15 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (List-Data-reverse 'erased arg-1) e-5)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-nfToCFType arg-0 (Value-Core-getLoc 'erased arg-2) 1 arg-2) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (List-Data-reverse 'erased arg-1) e-5)) eta-0))))))))))))
(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--10662-6992-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--10662-7014-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--10566-6895-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--10566-6894-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) (Prelude-C-43_Num__Int arg-1 1) 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--10884-7180-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) ((2) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((5) (CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3))(else (lambda (eta-0) (let ((act-15 ((CompileExpr-Compiler-toCExpTree arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-16 ((CompileExpr-Compiler-constCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-5 e-7) e-8)) eta-0))))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-5 (let ((sc3 e-9)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--12290-8492 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-17 ((Context-Core-getFullName arg-1 e-5) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-18 ((CompileExpr-Compiler-toCExpTree (List-Prelude-C-43C-43 'erased e-7 arg-0) arg-1 arg-2 e-8) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-19 ((CompileExpr-Compiler-conCases arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-11 (vector 0 ) e-7 e-12) e-13)) eta-0)))))))))))))))))))))))))))))))))))(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-15 ((CompileExpr-Compiler-toCExp (vector 0 ) arg-0 (vector 1 "main") arg-1) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) ext-0))))))))
(define CompileExpr-Compiler-compileDef (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Def arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Def arg-4574 arg-4575)))) (let ((sc3 e-1)) (let ((e-17 (vector-ref sc3 18))) e-17)) ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-2914) (Prelude-map_Functor__Maybe 'erased 'erased func arg-2914))))) (lambda (a) (lambda (arg-2981) (Prelude-pure_Applicative__Maybe 'erased arg-2981))) (lambda (b) (lambda (a) (lambda (arg-2982) (lambda (arg-2984) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-2982 arg-2984)))))) (lambda (eta-0) (CompileExpr-Compiler-n--11496-7723-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--10765-7074-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39))))
(define Directory-Core-case--10317-4639 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((paths (List-Data-reverse 'erased (Directory-Core-allDirs "" (Directory-Core-splitDir e-1))))) (lambda (eta-0) (let ((act-15 ((Directory-Core-n--10317-4540-firstIpkg paths) eta-0))) (Prelude-pure_Applicative__IO 'erased act-15 eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))
(define Directory-Core-case--10344-4578 (lambda (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) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 arg-0 (vector 0 e-1 arg-1))) eta-0)))) (else (Directory-Core-n--10317-4540-firstIpkg arg-2))))))
(define Directory-Core-case--10318-4565 (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 ((_-0 (vector 1 e-2))) (Directory-Core-case--10344-4578 arg-0 arg-1 arg-2 e-2 _-0 (Directory-Core-findIpkg e-2))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))
(define Directory-Core-case--10266-4513 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 arg-0 (Options-Core-dirSep))) (else (Prelude-strCons (Options-Core-sep) arg-0))))))
(define Directory-Core-case--10241-4479 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 1 arg-0)) (else (Directory-Core-findIpkg arg-1))))))
(define Directory-Core-case--10189-4431 (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-15 (Directory-Core-getEntries e-2 eta-0))) (let ((act-16 (Directory-System-closeDir e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))))))))
(define Directory-Core-case--10146-4391 (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-15 (Directory-Core-getEntries arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 e-2 act-15) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))))))
(define Directory-Core-case--10065-4322 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-3)) e-5) eta-0))))))))
(define Directory-Core-case--9963-4290 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc0 2))) e-3))))))
(define Directory-Core-case--9963-4247 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Strings-Prelude-C-43C-43 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)) e-5) eta-0))))))))
(define Directory-Core-case--9852-4150 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (let ((act-15 (Directory-System-changeDir arg-0 eta-0))) (let ((act-16 ((Directory-Core-mkdirs arg-1) eta-0))) (let ((act-17 (Directory-System-changeDir ".." eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))))))))
(define Directory-Core-case--9824-4107 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 ((Directory-Core-mkdirs arg-1) eta-0))) (let ((act-16 (Directory-System-changeDir ".." eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0))))) (else (lambda (eta-0) (let ((act-15 (Directory-System-createDir arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((act-16 (Directory-System-changeDir arg-0 eta-0))) (let ((act-17 ((Directory-Core-mkdirs arg-1) eta-0))) (let ((act-18 (Directory-System-changeDir ".." eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0))))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))))))))))))
(define Directory-Core-case--9700-4032 (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)) (cond ((equal? sc1 "") (vector 1 (Directory-Core-dropExtension e-2) (vector 0 )))(else (List-Prelude-C-43C-43 'erased (Directory-Core-n--9695-3968-splitSep arg-0 arg-1 arg-2 (Strings-Data-strTail e-3)) (vector 1 e-2 (vector 0 )))))))))))
(define Directory-Core-case--9699-3986 (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 arg-3 (vector 0 ))) (else (vector 1 arg-3 (Directory-Core-n--9695-3967-dropDir arg-0 arg-1 arg-2 arg-6 arg-5 arg-4)))))))
(define Directory-Core-case--9601-3909 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 51 arg-1 arg-0) eta-0)))))))
(define Directory-Core-case--9526-3839 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 51 arg-1 arg-0))) eta-0)))))))
(define Directory-Core-case--9465-3784 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) (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--9374-3698 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) 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 Directory-Core-case--9354-3678 (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-15 (let ((act-15 (File-System-readFile e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-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) (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--9305-3632 (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-15 (let ((act-15 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-0)) eta-0)))))))) (else (Directory-Core-firstAvailable arg-1))))))
(define Directory-Core-case--9275-3597 (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 "") (Prelude-reverse e-2))(else (Prelude-reverse (Strings-Data-strTail e-3))))))))))
(define Directory-Core-n--9695-3968-splitSep (lambda (arg-0 arg-1 arg-2 arg-3) (Directory-Core-case--9700-4032 arg-0 arg-1 arg-2 arg-3 (Strings-Data-span (lambda (arg-4) (Prelude-C-47C-61_Eq__Char arg-4 (Options-Core-sep))) arg-3))))
(define Directory-Core-n--10317-4540-firstIpkg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 ) 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))) (lambda (eta-0) (let ((act-15 (Directory-Core-dirEntries e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-4))) ((Directory-Core-case--10344-4578 e-6 e-7 e-3 e-4 _-0 (Directory-Core-findIpkg e-4)) eta-0)))) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))))))))))))))))
(define Directory-Core-n--9695-3967-dropDir (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))) (Directory-Core-case--9699-3986 arg-0 arg-1 arg-2 e-2 e-3 arg-4 arg-3 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-3 e-3)))))))))
(define Directory-Core-splitDir (lambda (ext-0) (Strings-Data-split (lambda (eta-0) (Directory-Core-isDirSep eta-0)) ext-0)))
(define Directory-Core-readDataFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Strings-Prelude-C-43C-43 p (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-1))) (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))))) (let ((act-16 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 (let ((act-17 (File-System-readFile e-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) ext-0))) (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 ((wsplit (Directory-Core-n--9695-3968-splitSep arg-2 arg-1 arg-0 arg-0))) (let ((ssplit (Prelude-maybe 'erased 'erased (lambda () (vector 0 )) (lambda () (lambda (eta-0) (Directory-Core-n--9695-3968-splitSep arg-2 arg-1 arg-0 eta-0))) arg-1))) (let ((fsplit (Directory-Core-n--9695-3968-splitSep arg-2 arg-1 arg-0 arg-2))) (let ((wdrop (Directory-Core-n--9695-3967-dropDir arg-2 arg-1 arg-0 wsplit fsplit fsplit))) (Directory-Core-n--9695-3967-dropDir arg-2 arg-1 arg-0 ssplit wdrop wdrop)))))))
(define Directory-Core-nsToSource (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fnameOrig (Name-Core-showSep (Options-Core-dirSep) (List-Data-reverse 'erased arg-2)))) (let ((fnameBase (Prelude-maybe 'erased 'erased (lambda () fnameOrig) (lambda () (lambda (srcdir) (Strings-Prelude-C-43C-43 srcdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) fnameOrig)))) (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (ext) (Strings-Prelude-C-43C-43 fnameBase ext)) (vector 1 ".idr" (vector 1 ".lidr" (vector 1 ".yaff" (vector 1 ".org" (vector 1 ".md" (vector 0 ))))))))) (let ((act-16 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) ext-0))) (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-15 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fnameBase (Name-Core-showSep (Options-Core-dirSep) (List-Data-reverse 'erased arg-2)))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Strings-Prelude-C-43C-43 p (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 fnameBase ".ttc")))) (vector 1 (Strings-Prelude-C-43C-43 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8)))))) (let ((act-16 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-1)) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 51 arg-1 arg-2))) ext-0))))))))))))))))))
(define Directory-Core-mkdirs (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 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 ".") (Directory-Core-mkdirs e-3)) ((equal? sc1 "") (Directory-Core-mkdirs e-3))(else (lambda (eta-0) (let ((act-15 (Directory-System-changeDir e-2 eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (let ((act-16 ((Directory-Core-mkdirs e-3) eta-0))) (let ((act-17 (Directory-System-changeDir ".." eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0)))) (else (let ((act-16 (Directory-System-createDir e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((1) (let ((act-17 (Directory-System-changeDir e-2 eta-0))) (let ((act-18 ((Directory-Core-mkdirs e-3) eta-0))) (let ((act-19 (Directory-System-changeDir ".." eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 )) eta-0))))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0)))))))))))))))))))))
(define Directory-Core-makeExecDirectory (lambda (arg-0 ext-0) (let ((act-15 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((edir (Directory-Core-splitDir (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))) (let ((act-16 (let ((act-16 ((Directory-Core-mkdirs edir) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (let ((sc3 e-5)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-7) ext-0))))))))))))))))))
(define Directory-Core-makeBuildDirectory (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bdir (Directory-Core-splitDir (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))))) (let ((ndirs (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 )) (else (let ((e-3 (vector-ref sc1 2))) e-3)))))) (let ((fname (Name-Core-showSep (Options-Core-dirSep) (List-Data-reverse 'erased ndirs)))) (let ((act-16 (let ((act-16 ((Directory-Core-mkdirs (List-Prelude-C-43C-43 'erased bdir (vector 1 "ttc" (List-Data-reverse 'erased ndirs)))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-7 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 (Strings-Prelude-C-43C-43 (let ((sc3 e-5)) (let ((e-2 (vector-ref sc3 3))) e-2)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) fname)) e-7) ext-0))))))))))))))))))))
(define Directory-Core-isDirSep (lambda (arg-0) (Prelude-C-61C-61_Eq__String (Prelude-cast_Cast__Char_String arg-0) (Options-Core-dirSep))))
(define Directory-Core-getTTCFileName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Context-Core-getDirs arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((ns (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))) (let ((fname (Strings-Prelude-C-43C-43 (Name-Core-showSep (Options-Core-dirSep) (List-Data-reverse 'erased ns)) arg-2))) (let ((bdir (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 3))) e-2)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 bdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "ttc" (Strings-Prelude-C-43C-43 (Options-Core-dirSep) fname))))) ext-0)))))))))))))))
(define Directory-Core-getEntries (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-dirEntry arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (Directory-Core-getEntries arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 e-2 act-16) ext-0)))) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0)))))))
(define Directory-Core-firstAvailable (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-openFile e-2 (vector 0 ) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 (let ((act-16 (File-System-closeFile e-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2)) eta-0))))))) (else ((Directory-Core-firstAvailable e-3) eta-0)))))))))))))))))
(define Directory-Core-findLibraryFile (lambda (arg-0 arg-1 ext-0) (let ((act-15 (Context-Core-getDirs arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((fs (Prelude-map_Functor__List 'erased 'erased (lambda (p) (Strings-Prelude-C-43C-43 p (Strings-Prelude-C-43C-43 (Options-Core-dirSep) 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) (Strings-Prelude-C-43C-43 x (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "lib"))) (let ((sc1 e-5)) (let ((e-8 (vector-ref sc1 6))) e-8))))))) (let ((act-16 ((Directory-Core-firstAvailable fs) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) ext-0))) (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-15 (Directory-System-currentDir ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((paths (List-Data-reverse 'erased (Directory-Core-allDirs "" (Directory-Core-splitDir e-1))))) (let ((act-16 ((Directory-Core-n--10317-4540-firstIpkg paths) ext-0))) (Prelude-pure_Applicative__IO 'erased act-16 ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (vector 0 ) ext-0)))))))
(define Directory-Core-findIpkg (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))) (Directory-Core-case--10241-4479 e-2 e-3 (Strings-Data-isSuffixOf ".ipkg" e-2)))))))))
(define Directory-Core-dropExtension (lambda (arg-0) (Directory-Core-case--9275-3597 arg-0 (Strings-Data-span (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 #\.)) (Prelude-reverse arg-0)))))
(define Directory-Core-dirEntries (lambda (arg-0 ext-0) (let ((act-15 (Directory-System-openDir arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (Directory-Core-getEntries e-2 ext-0))) (let ((act-17 (Directory-System-closeDir e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) ext-0))))))))
(define Directory-Core-allDirs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((sc1 e-8)) (cond ((equal? sc1 "") (vector 1 (vector 0 (Options-Core-dirSep) e-9) (Directory-Core-allDirs arg-0 e-9)))(else (let ((sc1 arg-0)) (cond ((equal? sc1 "") (let ((sc2 arg-1)) (case (vector-ref sc2 0) ((1) (let ((e-4 (vector-ref sc2 1))) (let ((e-5 (vector-ref sc2 2))) (let ((dC-39 (Directory-Core-case--10266-4513 e-4 e-5 (Options-Core-isWindows)))) (vector 1 (vector 0 dC-39 e-5) (Directory-Core-allDirs dC-39 e-5))))))(else (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((dC-39 (Strings-Prelude-C-43C-43 arg-0 (Prelude-strCons (Options-Core-sep) e-1)))) (vector 1 (vector 0 dC-39 e-2) (Directory-Core-allDirs dC-39 e-2))))))))))(else (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((dC-39 (Strings-Prelude-C-43C-43 arg-0 (Prelude-strCons (Options-Core-sep) e-1)))) (vector 1 (vector 0 dC-39 e-2) (Directory-Core-allDirs dC-39 e-2)))))))))))))))(else (let ((sc0 arg-0)) (cond ((equal? sc0 "") (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((dC-39 (Directory-Core-case--10266-4513 e-4 e-5 (Options-Core-isWindows)))) (vector 1 (vector 0 dC-39 e-5) (Directory-Core-allDirs dC-39 e-5))))))(else (let ((sc1 arg-1)) (let ((e-1 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 2))) (let ((dC-39 (Strings-Prelude-C-43C-43 arg-0 (Prelude-strCons (Options-Core-sep) e-1)))) (vector 1 (vector 0 dC-39 e-2) (Directory-Core-allDirs dC-39 e-2))))))))))(else (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((dC-39 (Strings-Prelude-C-43C-43 arg-0 (Prelude-strCons (Options-Core-sep) e-1)))) (vector 1 (vector 0 dC-39 e-2) (Directory-Core-allDirs dC-39 e-2))))))))))))))
(define Version-Idris-with--1918-432 (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--1935-502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1935-458-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else "")))))
(define Version-Idris-case--1951-462 (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--1935-458-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--1918-432 (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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--1935-458-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--14988-5904 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
(define Syntax-Idris-case--14987-5867 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 arg-2 arg-3 e-4 e-5))))))))
(define Syntax-Idris-case--14639-5514 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((equal? sc0 1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((equal? sc0 2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) ((equal? sc0 3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "Fixity" eta-0)))))))
(define Syntax-Idris-case--13930-4910 (lambda (arg-0 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--13929-4858 (lambda (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--13160-4538 (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--13160-4408-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-9 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-9) " impossible")))))))
(define Syntax-Idris-n--13160-4344-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-9 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-9) " impossible;"))))))))
(define Syntax-Idris-n--14892-5793-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) 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))) (lambda (eta-0) (let ((act-15 ((Context-Core-resolved_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 2))) (((e-4 arg-3) e-7) eta-0))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--14892-5793-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--14891-5754-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) 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))) (lambda (eta-0) (let ((act-15 ((Context-Core-full_HasNames__Name arg-3 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((sc3 arg-1)) (let ((e-1 (vector-ref sc3 1))) (((e-1 arg-3) e-7) eta-0))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) ((Syntax-Idris-n--14891-5754-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--15120-5969-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 3 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Syntax-Idris-n--15120-5973-goPairedPTerms (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (lambda (eta-0) (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 (vector 0 e-6 eta-3) eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--15120-5973-goPairedPTerms arg-0 'erased e-3) eta-0))))))))))))
(define Syntax-Idris-n--15120-5983-goPTypeDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5966-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5983-goPTypeDecls arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5966-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))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 0 e-0 e-1 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-2) eta-0))))))))
(define Syntax-Idris-n--15120-5972-goPTerms (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5972-goPTerms arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5961-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-15 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (vector 1 e-2 e-3 eta-5 eta-6 eta-7 eta-8))))) eta-4)) (Syntax-Idris-n--15120-5969-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-3)) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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-15 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (vector 2 e-8 e-9 eta-5 eta-6 eta-7 eta-8))))) eta-4)) (Syntax-Idris-n--15120-5969-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-11) eta-3)) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (vector 3 e-14 e-15 eta-6 eta-7 eta-8 eta-9 eta-10)))))) eta-5)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--15120-5977-goPClauses arg-0 e-20) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 4 e-21 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--15120-5977-goPClauses arg-0 e-23) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 5 e-24 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5979-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 6 e-27 eta-2)) eta-1)) (Syntax-Idris-n--15120-5980-goPFieldUpdates arg-0 e-28) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 7 e-29 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-31) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 8 e-32 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-34) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 9 e-35 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-37) eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-38) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 10 e-39 e-40 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-41) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 11 e-42 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-43) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 12 e-44 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-45) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 e-50 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-51) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((16) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 e-52 eta-2)) eta-1)) (Syntax-Idris-n--15120-5965-goPDecl arg-0 e-53) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((17) (let ((e-54 (vector-ref sc0 1))) (let ((e-55 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 17 e-54 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-55) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 18 e-56 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-57) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((19) (arg-0 arg-1)) ((20) (arg-0 arg-1)) ((21) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 21 e-62 e-63 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-64) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((22) (let ((e-65 (vector-ref sc0 1))) (let ((e-66 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 22 e-65 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-66) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))) ((23) (arg-0 arg-1)) ((24) (arg-0 arg-1)) ((25) (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))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 25 e-69 e-70 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-71) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-72) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((26) (let ((e-73 (vector-ref sc0 1))) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 26 e-73 e-74 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-75) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((27) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (let ((e-78 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 27 e-76 e-77 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-78) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((28) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (let ((e-81 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 28 e-79 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-80) eta-1)) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-81) eta-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((29) (let ((e-82 (vector-ref sc0 1))) (let ((e-83 (vector-ref sc0 2))) (let ((e-84 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 29 e-82 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-83) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-84) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((30) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 30 e-85 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-86) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 31 e-87 eta-2)) eta-1)) (Syntax-Idris-n--15120-5976-goPDos arg-0 e-88) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 32 e-89 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-90) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 33 e-91 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-92) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 34 e-93 eta-2)) eta-1)) (Syntax-Idris-n--15120-5972-goPTerms arg-0 e-94) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (let ((e-97 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 35 e-95 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-96) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-97) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((36) (let ((e-98 (vector-ref sc0 1))) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (let ((e-101 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 36 e-98 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-99) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-100) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-101) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((37) (arg-0 arg-1)) ((38) (let ((e-103 (vector-ref sc0 1))) (let ((e-104 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 3))) (let ((e-106 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 38 e-103 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-104) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-105) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-106) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((39) (let ((e-107 (vector-ref sc0 1))) (let ((e-108 (vector-ref sc0 2))) (let ((e-109 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 39 e-107 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-108) eta-1)) (Syntax-Idris-n--15120-5976-goPDos arg-0 e-109) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 40 e-110 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-111) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-112) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((41) (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))) (lambda (eta-0) (let ((act-15 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 41 e-113 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-114) eta-2)) (Syntax-Idris-n--15120-5971-goMPTerm arg-0 e-115) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-116) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))) ((42) (let ((e-117 (vector-ref sc0 1))) (let ((e-118 (vector-ref sc0 2))) (let ((e-119 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 42 e-117 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-118) eta-1)) (Syntax-Idris-n--15120-5971-goMPTerm arg-0 e-119) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((45) (let ((e-120 (vector-ref sc0 1))) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 45 e-120 e-121 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-122) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((43) (let ((e-123 (vector-ref sc0 1))) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Core-Core-C-60C-42C-62 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-2) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 43 e-123 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-124) eta-1)) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-125) eta-1)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0))))))))))) ((44) (let ((e-126 (vector-ref sc0 1))) (let ((e-127 (vector-ref sc0 2))) (arg-0 (vector 44 e-126 e-127))))) (else (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (let ((e-130 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 46 e-128 e-129 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-130) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((arg-0 e-5) eta-0)))))))))))))))
(define Syntax-Idris-n--15120-5982-goPFnOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5970-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5982-goPFnOpts arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5970-goPFnOpt (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (Syntax-Idris-n--15120-5972-goPTerms arg-0 e-1) eta-0))))))))
(define Syntax-Idris-n--15120-5981-goPFields (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5968-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5981-goPFields arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5980-goPFieldUpdates (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5962-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5980-goPFieldUpdates arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5962-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 0 e-0 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 e-2 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5968-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 0 e-0 e-1 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5969-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-4) eta-0))))))))))
(define Syntax-Idris-n--15120-5976-goPDos (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5963-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5976-goPDos arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5963-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 0 e-0 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 e-2 e-3 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 2 e-5 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--15120-5977-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 3 e-9 e-10 e-11 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--15120-5961-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-5) (lambda (eta-6) (lambda (eta-7) (lambda (eta-8) (vector 4 e-14 eta-5 eta-6 eta-7 eta-8))))) eta-4)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--15120-5977-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 5 e-19 eta-2)) eta-1)) (Syntax-Idris-n--15120-5979-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 6 e-21 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-22) eta-0)))))))))
(define Syntax-Idris-n--15120-5979-goPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5965-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5979-goPDecls arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5965-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 0 e-0 e-1 e-2 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5982-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--15120-5966-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 e-5 eta-2)) eta-1)) (Syntax-Idris-n--15120-5977-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 2 e-7 e-8 eta-2)) eta-1)) (Syntax-Idris-n--15120-5967-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 3 e-10 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5973-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--15120-5979-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 4 e-13 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5973-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--15120-5979-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 5 e-16 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-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))) (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) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-6) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-7) (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (vector 6 e-18 e-19 eta-7 eta-8 eta-9 eta-10 eta-11 eta-12))))))) eta-6)) (Syntax-Idris-n--15120-5973-goPairedPTerms arg-0 'erased e-20) eta-5)) (lambda (eta-5) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-21) eta-5)) eta-4)) (Syntax-Idris-n--15120-5973-goPairedPTerms arg-0 'erased e-22) eta-3)) (lambda (eta-3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-23) eta-3)) eta-2)) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-24) eta-2)) eta-1)) (Syntax-Idris-n--15120-5979-goPDecls arg-0 e-25) eta-0))))))))))) ((7) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((e-30 (vector-ref sc0 5))) (let ((e-31 (vector-ref sc0 6))) (let ((e-32 (vector-ref sc0 7))) (let ((e-33 (vector-ref sc0 8))) (let ((e-34 (vector-ref sc0 9))) (let ((e-35 (vector-ref sc0 10))) (let ((e-36 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-8) (lambda (eta-9) (lambda (eta-10) (lambda (eta-11) (lambda (eta-12) (lambda (eta-13) (lambda (eta-14) (vector 7 e-26 e-27 e-28 e-29 eta-8 eta-9 eta-10 eta-11 eta-12 eta-13 eta-14)))))))) eta-7)) (Syntax-Idris-n--15120-5974-go3TupledPTerms arg-0 'erased 'erased e-30) eta-6)) (Syntax-Idris-n--15120-5973-goPairedPTerms arg-0 'erased e-31) eta-5)) (lambda (eta-5) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-32) eta-5)) eta-4)) (Syntax-Idris-n--15120-5972-goPTerms arg-0 e-33) eta-3)) (lambda (eta-3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-34) eta-3)) eta-2)) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-35) eta-2)) eta-1)) (Syntax-Idris-n--15120-5978-goMPDecls arg-0 e-36) eta-0)))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((e-40 (vector-ref sc0 4))) (let ((e-41 (vector-ref sc0 5))) (let ((e-42 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 8 e-37 e-38 e-39 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5975-go4TupledPTerms arg-0 'erased 'erased e-40) eta-2)) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-41) eta-2)) eta-1)) (Syntax-Idris-n--15120-5981-goPFields arg-0 e-42) eta-0))))))))) ((9) (let ((e-43 (vector-ref sc0 1))) (let ((e-44 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 9 e-43 eta-2)) eta-1)) (Syntax-Idris-n--15120-5979-goPDecls arg-0 e-44) eta-0))))) ((10) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0))) ((11) (let ((e-49 (vector-ref sc0 1))) (let ((e-50 (vector-ref sc0 2))) (let ((e-51 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 11 e-49 e-50 eta-2)) eta-1)) (Syntax-Idris-n--15120-5979-goPDecls arg-0 e-51) eta-0)))))) ((12) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((e-54 (vector-ref sc0 3))) (let ((e-55 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 12 e-52 e-53 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-54) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-55) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(define Syntax-Idris-n--15120-5967-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 0 e-0 e-1 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-3) eta-2)) eta-1)) (Syntax-Idris-n--15120-5983-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 e-5 e-6 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-7) eta-0))))))))))
(define Syntax-Idris-n--15120-5977-goPClauses (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 eta-3 eta-4))) eta-2)) (Syntax-Idris-n--15120-5964-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5977-goPClauses arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--15120-5964-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 0 e-0 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--15120-5979-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))) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-4) (lambda (eta-5) (lambda (eta-6) (vector 1 e-4 eta-4 eta-5 eta-6)))) eta-3)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-5) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--15120-5977-goPClauses arg-0 e-7) eta-0))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 2 e-8 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-9) eta-0)))))))))
(define Syntax-Idris-n--15120-5971-goMPTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-2) eta-0))))))))
(define Syntax-Idris-n--15120-5978-goMPDecls (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (Syntax-Idris-n--15120-5979-goPDecls arg-0 e-2) eta-0))))))))
(define Syntax-Idris-n--15120-5975-go4TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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)) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (p) (lambda (d) (lambda (ts) (vector 1 (vector 0 e-6 (vector 0 e-10 (vector 0 p d))) ts)))) eta-3)) (Syntax-Idris-n--15120-5969-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--15120-5975-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))))))
(define Syntax-Idris-n--15120-5974-go3TupledPTerms (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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)) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 1 (vector 0 e-6 (vector 0 e-10 eta-3)) eta-4))) eta-2)) (Syntax-Idris-n--15120-5961-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--15120-5974-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))
(define Syntax-Idris-n--12666-3684-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--13160-4844-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--13929-4858 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--13160-4845-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--13930-4910 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-15 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Syntax-Idris-toBuf_TTC__Fixity arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Syntax-Idris-toBuf_TTC__Fixity arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Syntax-Idris-toBuf_TTC__Fixity arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Syntax-Idris-toBuf_TTC__Fixity arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1))))) arg-1256 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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 (ANameMap-Data-toList 'erased (let ((sc2 arg-1)) (let ((e-2 (vector-ref sc2 3))) e-2))) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-3 (vector-ref sc3 4))) e-3)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 6))) e-9))) ext-0)))))))))))))))))))
(define Syntax-Idris-toBuf_TTC__IFaceInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((TTC-Core-toBuf_TTC__Name arg-0 e-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) arg-0 e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-1)))) arg-0 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((act-18 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__RigCount arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-1)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__TotalReq arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-1259 eta-1)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1261) (lambda (arg-1262) (Binary-Utils-toBuf_TTC__Bool arg-1261 arg-1262))) (lambda (arg-1261) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1261 eta-1)))) (vector 0 (lambda (arg-1261) (lambda (arg-1262) (TTImp-TTImp-toBuf_TTC__RawImp arg-1261 arg-1262))) (lambda (arg-1261) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1261 eta-1))))) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-2)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2))))) arg-1259 eta-1))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__TotalReq arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-2)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2))))) arg-1258 arg-1259))) (lambda (arg-1258) (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-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__TotalReq arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-2)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2))))) arg-1258 arg-1259))) (lambda (arg-1258) (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-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__TotalReq arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1254 arg-1258))) (lambda (arg-1258) (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-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-4)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4))))) arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__TotalReq arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-2)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-2)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-2))))) arg-1258 arg-1259))) (lambda (arg-1258) (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-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1254 arg-1257))) (lambda (arg-1257) (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-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__TotalReq arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1254 arg-1258))) (lambda (arg-1258) (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-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-4)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4))))) arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1257) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__RigCount arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-1258 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__TotalReq arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1254 arg-1258))) (lambda (arg-1258) (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-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-4)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4))))) arg-1258 eta-3))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__TotalReq arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-1259 eta-4)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-4)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-4))))) arg-1253 arg-1255))) (lambda (arg-1259) (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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1260) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-5)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1260) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-5))))) arg-1259 eta-4))))) arg-1258 eta-3))))) arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 e-3 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1257 eta-2)))) arg-1254 arg-1256 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1257 eta-2)))) arg-1256 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1257 eta-3)))) arg-1253 arg-1255 eta-2)))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1258 eta-3)))) arg-1257 eta-2))))) arg-1256 eta-1)))) arg-0 e-4 eta-0))))))))))))))))))))))))))
(define Syntax-Idris-toBuf_TTC__Fixity (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Binary-Utils-tag arg-0 0 eta-0))) ((1) (lambda (eta-0) (Binary-Utils-tag arg-0 1 eta-0))) ((2) (lambda (eta-0) (Binary-Utils-tag arg-0 2 eta-0))) (else (lambda (eta-0) (Binary-Utils-tag arg-0 3 eta-0)))))))
(define Syntax-Idris-show_Show__REPLOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showimplicits = " (Prelude-show_Show__Bool e-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "shownamespace = " (Prelude-show_Show__Bool e-1)))) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "showtypes = " (Prelude-show_Show__Bool e-2)))) ((3) (let ((e-3 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "eval = " (Syntax-Idris-show_Show__REPLEval e-3)))) ((4) (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "editor = " (Prelude-show_Show__String e-4)))) (else (let ((e-5 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "cg = " e-5)))))))
(define Syntax-Idris-show_Show__REPLEval (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "typecheck") ((1) "normalise") (else "execute")))))
(define Syntax-Idris-show_Show__PTerm (lambda (arg-0) (Syntax-Idris-showPrec_Show__PTerm (vector 0 ) arg-0)))
(define Syntax-Idris-showPrec_Show__PTerm (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-showPrec_Show__Name arg-0 e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((1) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-6) (Strings-Prelude-C-43C-43 " -> " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-7)))) (else (let ((e-138 (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-138) (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-141 (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-141) (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-144 (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-144) (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-135 (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-135) (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-147 (vector-ref sc2 1))) (Strings-Prelude-C-43C-43 "{default " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm (vector 6 ) e-135) (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-147) (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) ((23) (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) ((23) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--13160-4344-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--13160-4408-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-152 (vector-ref sc1 1))) (let ((sc2 e-38)) (case (vector-ref sc2 0) ((0) (let ((e-153 (vector-ref sc2 1))) (let ((e-154 (vector-ref sc2 2))) (Syntax-Idris-case--13160-4538 e-35 e-153 e-152 e-154 e-36 arg-0 (Name-Core-C-61C-61_Eq__Name e-152 e-154)))))(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-152) (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) "`( <<declaration>> )") ((17) (let ((e-53 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "~(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-53) ")")))) ((18) (let ((e-55 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-55)))) ((14) (let ((e-57 (vector-ref sc0 2))) (TT-Core-showPrec_Show__Constant arg-0 e-57))) ((19) (let ((e-60 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "?" e-60))) ((20) "Type") ((21) (let ((e-63 (vector-ref sc0 2))) (let ((e-64 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-63) (Strings-Prelude-C-43C-43 "@" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-64)))))) ((22) (let ((e-66 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "." (Syntax-Idris-showPrec_Show__PTerm arg-0 e-66)))) ((23) "_") ((24) "?") ((25) (let ((e-70 (vector-ref sc0 2))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-71) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-70) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-72))))))))) ((26) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-74) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-75))))) ((27) (let ((e-77 (vector-ref sc0 2))) (let ((e-78 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-77) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-78) ")"))))))) ((28) (let ((e-80 (vector-ref sc0 2))) (let ((e-81 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-80) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showPrec_Show__Name arg-0 e-81) ")"))))))) ((29) (let ((e-83 (vector-ref sc0 2))) (let ((e-84 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-83) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-84)))))) ((30) (let ((e-86 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(" (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 "do " (Name-Core-showSep " ; " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Syntax-Idris-showDo eta-0)) e-88))))) ((32) (let ((e-90 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Syntax-Idris-showPrec_Show__PTerm arg-0 e-90)))) ((33) (let ((e-92 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[|" (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 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (Syntax-Idris-showPrec_Show__PTerm arg-0 arg-2)) e-94)) "]")))) ((35) (let ((e-96 (vector-ref sc0 2))) (let ((e-97 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-96) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-97) ")"))))))) ((36) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (let ((e-101 (vector-ref sc0 4))) (let ((sc1 e-100)) (case (vector-ref sc1 0) ((23) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) ")")))))(else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-99) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-100) (Strings-Prelude-C-43C-43 " ** " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-101) ")"))))))))))))) ((37) "()") ((38) (let ((e-104 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 3))) (let ((e-106 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "if " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-104) (Strings-Prelude-C-43C-43 " then " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-105) (Strings-Prelude-C-43C-43 " else " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-106)))))))))) ((39) (let ((e-107 (vector-ref sc0 1))) (let ((e-108 (vector-ref sc0 2))) (let ((e-109 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 (Syntax-Idris-n--13160-4844-dePure e-107 e-109 e-108 arg-0 e-108)) (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--13160-4845-deGuard e-107 e-109 e-108 arg-0 eta-0))) e-109)) "]")))))))) ((40) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "rewrite " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-111) (Strings-Prelude-C-43C-43 " in " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-112))))))) ((41) (let ((e-114 (vector-ref sc0 2))) (let ((e-115 (vector-ref sc0 3))) (let ((e-116 (vector-ref sc0 4))) (let ((sc1 e-115)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) "]"))))) (else (let ((e-158 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-114) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-158) (Strings-Prelude-C-43C-43 " .. " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-116) "]")))))))))))))) ((42) (let ((e-118 (vector-ref sc0 2))) (let ((e-119 (vector-ref sc0 3))) (let ((sc1 e-119)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) " .. ]"))) (else (let ((e-161 (vector-ref sc1 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-118) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-161) " .. ]"))))))))))) ((45) (let ((e-122 (vector-ref sc0 3))) (Syntax-Idris-showPrec_Show__PTerm arg-0 e-122))) ((43) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Syntax-Idris-showPrec_Show__PTerm arg-0 e-124) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-125))))) ((44) (let ((e-127 (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Name-Core-show_Show__Name eta-0))) e-127))) (else (let ((e-129 (vector-ref sc0 2))) (let ((e-130 (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-129) (Strings-Prelude-C-43C-43 " " (Syntax-Idris-showPrec_Show__PTerm arg-0 e-130)))))))))))
(define Syntax-Idris-resolved_HasNames__SyntaxInfo (lambda (arg-0 arg-1 ext-0) (let ((act-15 ((Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4572 arg-4573 eta-0)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4574 arg-4575 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Context-Core-resolved_HasNames__Name arg-0 eta-0)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7))))))) ext-0)))))))))))))
(define Syntax-Idris-resolved_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) ext-0)))
(define Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--14892-5793-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-15 ((Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4572 arg-4573 eta-0)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4574 arg-4575 eta-0))))) arg-0 (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Context-Core-full_HasNames__Name arg-0 eta-0)) (let ((sc1 arg-1)) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 e-5 e-6 e-4 e-7))))))) ext-0)))))))))))))
(define Syntax-Idris-full_HasNames__IFaceInfo (lambda (arg-0 arg-1 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) ext-0)))
(define Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Syntax-Idris-n--14891-5754-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-15 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Syntax-Idris-toBuf_TTC__Fixity arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Nat arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Syntax-Idris-toBuf_TTC__Fixity arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Syntax-Idris-toBuf_TTC__Fixity arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Syntax-Idris-toBuf_TTC__Fixity arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__String arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__Nat arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__String arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Nat arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (TTImp-TTImp-fromBuf_TTC__RawImp arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (StringMap-Data-fromList 'erased e-5) (StringMap-Data-fromList 'erased e-6) (ANameMap-Data-fromList 'erased e-7) e-8 (vector 0 ) e-9)) ext-0))))))))))))))))))))))))))))
(define Syntax-Idris-fromBuf_TTC__IFaceInfo (lambda (arg-0 ext-0) (let ((act-15 (TTC-Core-fromBuf_TTC__Name arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__RigCount arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-0)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTC-Core-toBuf_TTC__TotalReq arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-1259 eta-0)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1261) (lambda (arg-1262) (Binary-Utils-toBuf_TTC__Bool arg-1261 arg-1262))) (lambda (arg-1261) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-1261 eta-0)))) (vector 0 (lambda (arg-1261) (lambda (arg-1262) (TTImp-TTImp-toBuf_TTC__RawImp arg-1261 arg-1262))) (lambda (arg-1261) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1261 eta-0))))) arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-1)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1))))) arg-1259 eta-0))))) arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__TotalReq arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-1)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1))))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-2)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2))))) arg-1258 eta-1))))) arg-1257 eta-0))))) arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__TotalReq arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-1)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1))))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-2)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2))))) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__TotalReq arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-2)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2))))) arg-1254 arg-1258))) (lambda (arg-1258) (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-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__RigCount arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-1257 eta-1)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1258) (lambda (arg-1259) (TTC-Core-toBuf_TTC__TotalReq arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-1)))) (vector 0 (lambda (arg-1258) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1260) (lambda (arg-1261) (Binary-Utils-toBuf_TTC__Bool arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-1)))) (vector 0 (lambda (arg-1260) (lambda (arg-1261) (TTImp-TTImp-toBuf_TTC__RawImp arg-1260 arg-1261))) (lambda (arg-1260) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-1))))) arg-1258 arg-1259))) (lambda (arg-1258) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-2)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2))))) arg-1258 eta-1))))) arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__TotalReq arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-2)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2))))) arg-1254 arg-1258))) (lambda (arg-1258) (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-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__RigCount arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-1258 eta-2)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1258) (TTC-Core-toBuf_TTC__TotalReq arg-1254 arg-1258))) (lambda (arg-1258) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-1258 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1259) (lambda (arg-1260) (Binary-Utils-toBuf_TTC__Bool arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-2)))) (vector 0 (lambda (arg-1259) (lambda (arg-1260) (TTImp-TTImp-toBuf_TTC__RawImp arg-1259 arg-1260))) (lambda (arg-1259) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-2))))) arg-1254 arg-1258))) (lambda (arg-1258) (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-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1258) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__TotalReq arg-1253 arg-1255))) (lambda (arg-1259) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-1259 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1259) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1259 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1259) (TTImp-TTImp-toBuf_TTC__RawImp arg-1254 arg-1259))) (lambda (arg-1259) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1259 eta-3))))) arg-1253 arg-1255))) (lambda (arg-1259) (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-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1260) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-1260 eta-4)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__RawImp arg-1253 arg-1255))) (lambda (arg-1260) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-1260 eta-4))))) arg-1259 eta-3))))) arg-1258 eta-2))))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1256) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1256))) (lambda (arg-1256) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-1256 eta-0)))) (vector 0 (lambda (arg-1254) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1257 eta-1)))) arg-1254 arg-1256 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1257 eta-1)))) arg-1256 eta-0))))) arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1257) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-1)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1257 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1257) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTImp-TTImp-toBuf_TTC__ImpClause arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-1258 eta-2)))) arg-1257 eta-1))))) arg-1256 eta-0)))) arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-6 e-7 e-8 e-9)) ext-0))))))))))))))))))))))))))))
(define Syntax-Idris-fromBuf_TTC__Fixity (lambda (arg-0 ext-0) (let ((act-15 (Binary-Utils-getTag arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) ((equal? sc1 1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) ext-0)) ((equal? sc1 2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) ext-0)) ((equal? sc1 3) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) ext-0))(else (Binary-Utils-corrupt 'erased "Fixity" ext-0)))))))))))
(define Syntax-Idris-__Impl_TTC_SyntaxInfo (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-1256 eta-0))))))
(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-1256 eta-0))))))
(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Syntax-Idris-toBuf_TTC__Fixity arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-1256 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-4572) (lambda (arg-4573) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-4572 arg-4573 eta-0)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-4574 arg-4575 eta-0)))))))
(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-4572 arg-4573 eta-0)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-4574 arg-4575 eta-0)))))))
(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-4574 arg-4575))))))
(define Syntax-Idris-C-61C-61_Eq__Pass (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) 0)(else 1)))) ((1) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((1) 0)(else 1)))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((2) 0)(else 1))))(else 1)))))
(define SyntaxInfo-Syntax-Idris-usingImpl (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
(define Syntax-Idris-typePass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 1 ))))))
(define SyntaxInfo-Syntax-Idris-startExpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
(define Syntax-Idris-showUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-0) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "." e-2) (Strings-Prelude-C-43C-43 " $= " (Syntax-Idris-show_Show__PTerm e-3))))))))))
(define Syntax-Idris-showDo (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Syntax-Idris-show_Show__PTerm e-1))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " <- " (Syntax-Idris-show_Show__PTerm e-4)))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-6) (Strings-Prelude-C-43C-43 " <- " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-7) ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) "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-9 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 " | " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-9) " impossible;"))))))))
(define Import-Syntax-Idris-reexport (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define SyntaxInfo-Syntax-Idris-prefixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(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-2 (vector-ref sc0 3))) e-2))))
(define IFaceInfo-Syntax-Idris-params (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(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-3 (vector-ref sc0 4))) e-3))))
(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--15120-5961-goPTerm arg-0 ext-0)))
(define Import-Syntax-Idris-loc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define Syntax-Idris-initSyntax (lambda () (vector 0 (StringMap-Data-insert 'erased "=" (vector 0 (vector 2 ) 0) (StringMap-Data-empty 'erased)) (StringMap-Data-insert 'erased "-" (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (StringMap-Data-empty 'erased)) (ANameMap-Data-empty 'erased) (vector 0 ) (vector 0 ) (vector 0 (vector 0 "(default)" (vector 0 0 0) (vector 0 0 0)) (vector 1 "main")))))
(define SyntaxInfo-Syntax-Idris-infixes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define Module-Syntax-Idris-imports (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(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-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--12666-3684-getName e-0 e-2 e-3 e-4 e-1 eta-0)) e-4)))))))) (else (let ((e-6 (vector-ref sc0 2))) (vector 1 e-6 (vector 0 ))))))))
(define Syntax-Idris-definedIn (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 5))) (let ((sc2 e-8)) (case (vector-ref sc2 0) ((0) (let ((e-22 (vector-ref sc2 2))) (vector 1 e-22 (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))) ((2) (let ((e-11 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedInData e-11) (Syntax-Idris-definedIn e-3)))) ((3) (let ((e-14 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-14) (Syntax-Idris-definedIn e-3)))) ((4) (let ((e-17 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-17) (Syntax-Idris-definedIn e-3)))) ((11) (let ((e-20 (vector-ref sc1 3))) (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-20) (Syntax-Idris-definedIn e-3))))(else (Syntax-Idris-definedIn e-3)))))))))))
(define IFaceInfo-Syntax-Idris-defaults (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
(define Syntax-Idris-defPass (lambda (arg-0) (Prelude-C-124C-124 (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 0 )) (lambda () (Syntax-Idris-C-61C-61_Eq__Pass arg-0 (vector 2 ))))))
(define Module-Syntax-Idris-decls (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define SyntaxInfo-Syntax-Idris-bracketholes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define ANameMap-Data-case--2772-3231 (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--2683-3127-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1)))))))
(define ANameMap-Data-case--2683-3201 (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--2772-3231 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2))))))))
(define ANameMap-Data-case--2692-3151 (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--2683-3127-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5)))))))
(define ANameMap-Data-case--2593-3095 (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--2557-3009-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2)))))))
(define ANameMap-Data-case--2593-3053 (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--2557-3040 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2593-3053 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2593-3095 '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--2683-3127-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--2692-3151 '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--2557-3009-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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0)))))
(define ANameMap-Data-n--2931-3346-insertFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((0) arg-7) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (ANameMap-Data-n--2931-3346-insertFrom 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-7))))))))))))
(define ANameMap-Data-n--2881-3298-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--2881-3298-fromListC-39 'erased (ANameMap-Data-addName 'erased e-6 e-7 arg-1) e-3)))))))))))
(define ANameMap-Data-toList (lambda (arg-0 arg-1) (NameMap-Data-toList 'erased (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1)))))
(define ANameMap-Data-mergeAs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (ANameMap-Data-n--2931-3346-insertFrom 'erased e-2 e-1 arg-3 arg-2 arg-1 (NameMap-Data-toList 'erased e-1) arg-3))))))
(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2557-3040 '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--2881-3298-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--2683-3201 '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--30023-12637 (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--30023-12596 (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--30023-12555 (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--30023-12514 (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--30023-12477 (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--30023-12436 (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--30023-12293 (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-15 (Context-Core-setCG arg-3 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((SetOptions-Idris-preOptions arg-3 arg-2 arg-1) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "No such code generator" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Code generators available: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (Options-Core-availableCGs)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))))))))
(define SetOptions-Idris-case--30023-12280 (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--30023-12232 (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--30023-12195 (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--30023-12156 (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--30023-12115 (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--30023-12076 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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) ((8) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((1) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((2) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((15) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((9) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((4) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((3) (let ((e-6 (vector-ref sc1 1))) (SetOptions-Idris-case--30023-12293 e-6 e-3 arg-1 arg-0 (Options-Core-getCG e-6)))) ((11) (let ((e-7 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (SetOptions-Idris-addPkgDir arg-0 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((13) (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((SetOptions-Idris-dirOption (let ((sc3 (let ((sc4 e-5)) (let ((e-4 (vector-ref sc4 5))) e-4)))) (let ((e-0 (vector-ref sc3 1))) e-0)) e-8) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))))))) ((25) (lambda (eta-0) (let ((act-15 (Context-Core-setLogTimings arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((26) (lambda (eta-0) (let ((act-15 (Context-Core-setDebugElabCheck arg-0 0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((23) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setOutput arg-1 (vector 1 0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (Context-Core-getSession arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Context-Core-setSession arg-0 (let ((sc4 e-6)) (let ((e-0 (vector-ref sc4 1))) (let ((e-15 (vector-ref sc4 3))) (let ((e-14 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-13 (vector-ref sc4 6))) (let ((e-12 (vector-ref sc4 7))) (let ((e-7 (vector-ref sc4 8))) (let ((e-8 (vector-ref sc4 9))) (let ((e-11 (vector-ref sc4 10))) (let ((e-10 (vector-ref sc4 11))) (vector 0 e-0 0 e-15 e-14 e-4 e-13 e-12 e-7 e-8 e-11 e-10)))))))))))) eta-0)))))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))))))) ((24) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0))))))) ((19) (let ((e-10 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-11 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 (vector 1 e-10) e-8 e-9 e-11)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((20) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-12 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-12 e-6 e-7 (vector 1 e-11) e-9 e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((21) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-13 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-14 e-13 e-4 e-11 e-6 e-7 e-8 (vector 1 e-12) e-10)))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((SetOptions-Idris-preOptions arg-0 arg-1 e-3) eta-0)))))))) ((22) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Context-Core-getSession arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Context-Core-setSession arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-14 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (vector 0 e-0 e-1 e-14 e-12 e-4 e-11 e-6 e-7 e-8 e-9 (vector 1 e-13))))))))))))) eta-0)))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) 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) ((1) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((act-16 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 (vector 0 (vector 0 "(script)" (vector 0 0 0) (vector 0 0 0)) (vector 1 e-5)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))))))) ((0) (lambda (eta-0) (let ((act-15 ((SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))) ((23) (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-replCmd arg-0 arg-1 arg-2 arg-3 arg-4 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0))))))))(else (SetOptions-Idris-postOptions arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
(define SetOptions-Idris-ideModeSocket (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) 0)(else (SetOptions-Idris-ideModeSocket e-3)))))))))))
(define SetOptions-Idris-ideMode (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) 1) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((15) 0)(else (SetOptions-Idris-ideMode e-3)))))))))))
(define SetOptions-Idris-dirOption (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (let ((sc1 arg-0)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Options-Core-dirSep))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))
(define SetOptions-Idris-addPkgDir (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Context-Core-addExtraDir arg-0 (Strings-Prelude-C-43C-43 (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)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Strings-Prelude-C-43C-43 (Version-Idris-showVersion 1 (Version-Idris-version)) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-1))))) ext-0))))))))
(define REPL-Idris-case--37016-8003 (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--37009-7877 (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--37003-7807 (lambda (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-15 (let ((act-15 (PrimIO-putStrLn "" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPLCommon-Idris-iputStrLn arg-0 "Bye for now!" eta-0))))))) (else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-4 arg-3 arg-2 arg-1 arg-0 arg-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--36908-7658 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (lambda (eta-0) (REPL-Idris-processCatch arg-5 arg-4 arg-3 arg-2 arg-1 e-8 eta-0))))))))))))
(define REPL-Idris-case--36804-7625 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (Source-Parser-runParser 'erased 1 (vector 0 ) arg-0 (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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--36807-7569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--36804-7543-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--36804-7544-fnameCmd arg-0 arg-3 arg-4))))))
(define REPL-Idris-case--35305-7370 (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--35305-7202 (lambda (arg-0 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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Termination-Core-checkTotal arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-16 (let ((act-16 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-toFullNames 'erased arg-5 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Totality arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Totality arg-4574 arg-4575)))) e-6 eta-1)))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-6)) 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--36278-7089 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-9 e-5)) eta-0))))))))) ((2) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-5 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-9 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-9)) eta-0)))))))
(define REPL-Idris-case--35305-7033 (lambda (arg-0 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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-15 (Context-Core-getTotality arg-5 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc0 1))) (let ((bind-0 arg-7)) ((REPL-Idris-case--36278-7089 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--35305-6909 (lambda (arg-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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) arg-6 (vector 0 ) e-5 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-8)) 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))))))))(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--35305-6820 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (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 (Prelude-C-43_Num__Int i (Prelude-fromInteger_Num__Int 1)))))) (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (System-system (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-4 (vector-ref sc1 5))) e-4)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-2 line))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (REPL-Idris-loadMainFile arg-4 arg-3 arg-2 arg-1 arg-0 e-2 eta-0)))))))))))))
(define REPL-Idris-case--35305-6776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6))))))))))
(define REPL-Idris-case--35305-6704 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 )) eta-0))) (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--35305-6647 (lambda (arg-0 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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0))))))))))))
(define REPL-Idris-case--35305-6563 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-normaliseScope (vector 0 ) e-5 (vector 0 ) e-7) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-6 e-8)) eta-0)))))))))))))))))))))))))))
(define REPL-Idris-case--35305-6481 (lambda (arg-0 arg-1 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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0))))))))))))
(define REPL-Idris-case--35431-6331 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((Normalise-Core-getTerm 'erased arg-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((((arg-16 arg-14) (vector 0 )) e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 1 e-6))) eta-0))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-18 (vector 0 ))) eta-0)))))))
(define REPL-Idris-case--35343-6258 (lambda (arg-0 arg-1 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((norm (REPL-Idris-n--35305-6138-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-17 ((((norm e-5) (vector 0 )) e-2) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-7 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35431-6331 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--35305-6173 (lambda (arg-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-15 (REPL-Idris-execExp arg-5 arg-4 arg-3 arg-2 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0)))))))(else (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-3 arg-5 arg-2 arg-4 (vector 1 ) (vector 0 ) arg-0 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-5 (vector 1 "[input]")) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-17 (Context-Core-hide arg-5 (REPLOpts-Idris-replFC) (vector 0 (vector 1 "PrimIO" (vector 0 )) (vector 1 "::")) eta-1))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Elab-TTImp-elabTerm (vector 0 ) arg-5 arg-2 arg-4 e-6 (REPL-Idris-n--35305-6137-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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((norm (REPL-Idris-n--35305-6138-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-21 ((((norm e-9) (vector 0 )) e-2) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Resugar-Idris-resugar (vector 0 ) arg-5 arg-3 (vector 0 ) e-11 eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (Normalise-Core-logTermNF (vector 0 ) arg-5 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () "Normalised") (vector 0 ) e-11 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((_-0 (vector 0 e-2 e-3))) ((REPL-Idris-case--35431-6331 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--35170-6054 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 arg-9)) eta-0)))))))
(define REPL-Idris-case--35144-6012 (lambda (arg-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((REPLCommon-Idris-updateErrorLine arg-1 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (REPLOpts-Idris-setSource arg-1 e-2 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc4 e-5)) (case (vector-ref sc4 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-0)) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-0 e-5)) eta-0)))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 "" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-0 e-5)) eta-0))))))))))))
(define REPL-Idris-case--35037-5931 (lambda (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-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-6 arg-5 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-compile arg-6 e-6 e-5 arg-0 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-1))) (lambda () (lambda (eta-1) (lambda (eta-2) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-1)) eta-2)))) e-6) eta-0))))))))))))))))
(define REPL-Idris-case--34947-5850 (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-15 (LinearCheck-Core-linearCheck (vector 0 ) arg-4 arg-3 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (REPL-Idris-findCG arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Common-Compiler-execute arg-4 e-6 e-5 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-0)) eta-0)))))))))))))))
(define REPL-Idris-case--31381-5740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith arg-0 e-1) (vector 0 )))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0)))))))
(define REPL-Idris-case--34523-5515 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeLemma arg-27 arg-0 (Syntax-Idris-show_Show__PTerm arg-20) arg-23 (Prelude-max_Ord__Nat (Prelude-fromInteger_Num__Nat 0) (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1))) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-27 arg-0 arg-20 arg-23)) eta-0)))))))
(define REPL-Idris-case--34444-5452 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-2 arg-0 arg-20 arg-23)) eta-0)))))))))
(define REPL-Idris-case--34240-5398 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--34444-5452 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))
(define REPL-Idris-case--34240-5294 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--34175-5234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Resugar-Idris-pterm arg-7 arg-5 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--34444-5452 arg-0 arg-1 arg-2 arg-3 arg-4 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))))))))))))))))))))))))))))
(define REPL-Idris-case--31381-5183 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (MakeLemma-Interactive-TTImp-makeLemma arg-4 arg-7 (REPLOpts-Idris-replFC) arg-0 e-15 e-14 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (Resugar-Idris-pterm arg-7 arg-5 e-4 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (let ((act-17 (Resugar-Idris-pterm arg-7 arg-5 e-3 eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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-19 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc11 act-19)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (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--34444-5452 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))
(define REPL-Idris-case--33761-4872 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-23)) eta-0)))))))
(define REPL-Idris-case--33700-4810 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))))))))))
(define REPL-Idris-case--33638-4768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--33700-4810 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))
(define REPL-Idris-case--33563-4722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--33700-4810 arg-0 arg-1 arg-2 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0)))))))))))))))) (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--33508-4658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) arg-12 eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-16 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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--33700-4810 arg-0 arg-1 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0)))))))
(define REPL-Idris-case--31381-4612 (lambda (arg-0 arg-1 arg-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-15 (Context-Core-lookupDefExact e-9 (let ((sc4 arg-8)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (GenerateDef-Interactive-TTImp-makeDef arg-7 arg-4 arg-6 (lambda (p) (lambda (n) (FC-Core-onLine arg-1 p))) e-9 eta-1))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-17 (REPLOpts-Idris-getSourceLine arg-3 arg-1 eta-1))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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--33700-4810 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name arg-0)))) eta-0)))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) eta-0)))))))
(define REPL-Idris-case--33058-4404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-26 (vector 0 )))) eta-0)))))))
(define REPL-Idris-case--33058-4301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--32941-4232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 (Resugar-Idris-resugar e-2 arg-9 arg-7 e-6 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))))))))))
(define REPL-Idris-case--32213-4136 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (REPL-Idris-case--32941-4232 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--31381-3453-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--32213-4027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--32425-3906 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-24 (vector 0 )))) eta-0)))))))
(define REPL-Idris-case--32425-3811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--32307-3714 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-20)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))
(define REPL-Idris-case--32213-3616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-22) (Syntax-Idris-show_Show__PTerm arg-22)) arg-21))) eta-0))) (else (let ((sc1 arg-21)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))))))
(define REPL-Idris-case--31381-3535 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (ExprSearch-Interactive-TTImp-exprSearch arg-9 arg-6 arg-8 (REPLOpts-Idris-replFC) arg-2 (vector 0 ) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-9 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-17 ((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-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (let ((act-18 ((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--32213-4027 arg-0 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--31381-3453-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-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((sc9 arg-0)) (cond ((equal? sc9 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-14) (Syntax-Idris-show_Show__PTerm arg-14)) e-14))) eta-0)) (else (let ((sc10 e-14)) (case (vector-ref sc10 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((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--32213-4136 arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name arg-2)))) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))
(define REPL-Idris-case--32019-3380 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-8 (vector 0 )))) eta-0)))))))
(define REPL-Idris-case--31381-3359 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " not defined here"))) eta-0)))))))
(define REPL-Idris-case--31856-3256 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-12)) eta-0)))))))
(define REPL-Idris-case--31381-3213 (lambda (arg-0 arg-1 arg-2 arg-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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) eta-0)))))))))))) (else (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-3))) eta-0))))))))
(define REPL-Idris-case--31381-3137 (lambda (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--31381-3076 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\xa;" e-5)) eta-0))))))))))))
(define REPL-Idris-case--31436-2993 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-10 (vector 0 )))) eta-0)))))))
(define REPL-Idris-case--31436-2884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (REPL-Idris-displayTerm arg-7 arg-5 arg-8 arg-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-11) (Strings-Prelude-C-43C-43 " : " e-5)) (vector 0 )))) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0)))))))
(define REPL-Idris-case--31381-2845 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--31436-2884 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--31436-2993 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--31269-2717 (lambda (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--31262-2692-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7)))))))
(define REPL-Idris-case--31196-2634 (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--31187-2627-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--31056-2514 (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-15 (let ((act-15 (File-System-writeFile (Strings-Prelude-C-43C-43 arg-3 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-writeFile arg-3 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-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--31042-2494 (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-15 (let ((act-15 (File-System-readFile e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (File-System-writeFile (Strings-Prelude-C-43C-43 e-1 "~") e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (File-System-writeFile e-1 (Strings-Data-unlines (arg-0 (Strings-Data-lines e-2))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ))) eta-0)))))))
(define REPL-Idris-case--30886-2336 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Chez-Scheme-Compiler-codegenChez)) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-codegenRacket)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Gambit-Scheme-Compiler-codegenGambit)) eta-0)))))))
(define REPL-Idris-case--30667-2270 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Context-Core-setCG arg-2 e-1 eta-0)))) (else (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-1 "No such code generator available" eta-0)))))))
(define REPL-Idris-case--30667-2259 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6))))))))))
(define REPL-Idris-case--30667-2227 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6))))))))))
(define REPL-Idris-case--30667-2195 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6))))))))))
(define REPL-Idris-case--30667-2163 (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--30667-2143 (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--30575-2060 (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-15 ((REPL-Idris-displayType arg-5 arg-4 arg-3 (vector 0 arg-0 (vector 0 arg-1 arg-2))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Name-Core-showSep "\xa;" e-6)))) eta-0))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-0) " is not a pattern matching definition")) eta-0)))))))
(define REPL-Idris-case--30193-1734 (lambda (arg-0 arg-1 arg-2 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) arg-8) (else (REPL-Idris-n--30062-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8))))))
(define REPL-Idris-case--30062-1706 (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-15 (Context-Core-getPPrint arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30193-1734 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 _-0 e-5 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) envsC-39)) e-3)) eta-0)))))))))))))
(define REPL-Idris-case--30076-1633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (REPL-Idris-n--30062-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11)) (else (vector 1 (vector 0 arg-9 arg-10) (REPL-Idris-n--30062-1600-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-11)))))))
(define REPL-Idris-case--29800-1518 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 arg-2 arg-12) e-2) e-3)) eta-0)))))))
(define REPL-Idris-case--29800-1434 (lambda (arg-0 arg-1 arg-2 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 (REPL-Idris-showCount (TT-Core-multiplicity 'erased arg-4)) (Strings-Prelude-C-43C-43 (REPL-Idris-impBracket (REPL-Idris-n--29800-1387-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) (Strings-Prelude-C-43C-43 (REPL-Idris-tidy arg-2) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm arg-11)))) "\xa;"))) (else "")))))
(define REPL-Idris-case--29702-1288 (lambda (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 REPL-Idris-case--29699-1267 (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))) (REPL-Idris-case--29702-1288 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)))))))))(else (vector 0 ))))))
(define REPL-Idris-case--29459-1187 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))))
(define REPL-Idris-n--31187-2627-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--31196-2634 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--37003-7770-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--35305-6138-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--37022-8108-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ )))))
(define REPL-Idris-n--31262-2692-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--31269-2717 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--29800-1387-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 REPL-Idris-n--36804-7543-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--36804-7544-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--36807-7569 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2))))))))))))
(define REPL-Idris-n--35305-6137-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--30062-1600-dropShadows (lambda (arg-0 arg-1 arg-2 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-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (REPL-Idris-case--30076-1633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased e-6 e-7 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-3)))))))))))))
(define REPL-Idris-n--31381-3453-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--31381-3453-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--37022-8109-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--37022-8108-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--37022-8108-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4))))))
(define REPL-Idris-n--37022-8110-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--37022-8109-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--31262-2693-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--31262-2692-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--31262-2693-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--31042-2494 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
(define REPL-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 REPL-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 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-15 (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Def arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Def arg-4574 arg-4575)))) (let ((sc2 e-7)) (let ((e-17 (vector-ref sc2 18))) e-17)) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " ==> " (Context-Core-show_Show__Def e-5))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (PrimIO-putStrLn (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (let ((sc3 e-7)) (let ((e-21 (vector-ref sc3 8))) e-21))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Erasable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc4 e-7)) (let ((e-25 (vector-ref sc4 4))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (let ((act-18 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Detaggable arg types: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc5 e-7)) (let ((e-4 (vector-ref sc5 5))) e-4)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Specialise args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc6 e-7)) (let ((e-26 (vector-ref sc6 6))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-20 (let ((act-20 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Inferrable args: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x)))) (let ((sc7 e-7)) (let ((e-26 (vector-ref sc7 7))) e-26)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-21 ((REPL-Idris-case--29459-1187 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-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 ((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-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-23 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-14)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0))))))))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 (let ((act-23 ((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-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Refers to (runtime): " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) e-15)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0))))))))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 (let ((act-24 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Flags: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Context-Core-show_Show__DefFlag x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__DefFlag d x)))) (let ((sc11 e-7)) (let ((e-25 (vector-ref sc11 12))) e-25)))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-25 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-4572 arg-4573 eta-3)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-4574 arg-4575 eta-3))))) eta-1 eta-2))) (let ((sc12 e-7)) (let ((e-20 (vector-ref sc12 21))) e-20))) eta-0))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-26 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Size change: " (Name-Core-showSep ", " scinfo)) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-26) eta-1)))))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define REPL-Idris-showHole (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 ((REPL-Idris-showEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Context-Core-getPPrint arg-1 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((envsC-39 (let ((_-0 (vector 0 e-2 e-3))) (REPL-Idris-case--30193-1734 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-2 e-3 _-0 e-6 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) e-0)))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) envsC-39)) e-3)) ext-0)))))))))))))))))
(define REPL-Idris-showEnv (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-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-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))) (REPL-Idris-showEnv 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-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 (TT-Core-binderType 'erased e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-4 e-6 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((pre (REPL-Idris-case--29800-1434 arg-0 e-0 e-3 e-5 e-4 e-2 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 (REPL-Idris-showName e-3)))) (let ((act-16 ((REPL-Idris-showEnv (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 ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (vector 0 e-3 pre) e-9) e-8)) eta-0))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (Normalise-Core-normalise arg-0 arg-3 arg-4 arg-7 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) (Strings-Prelude-C-43C-43 "-------------------------------------\xa;" (Strings-Prelude-C-43C-43 (Name-Core-nameRoot arg-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))))) eta-0))))))))))))))))
(define REPL-Idris-showCount (lambda (ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) " 0 " " 1 " (lambda (eta-0) "   ") ext-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-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-2 e-1 e-8 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-3 e-2 e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))) (else (let ((e-5 (vector-ref sc0 1))) (REPL-Idris-case--30667-2270 e-5 arg-1 arg-0 (Options-Core-getCG e-5))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Context-Core-getNS arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (PrimIO-putStr (Strings-Prelude-C-43C-43 (REPL-Idris-n--37003-7770-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))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (let ((act-18 (PrimIO-getLine ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (let ((act-19 (File-System-fEOF (File-System-stdin) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (cond ((equal? sc5 0) (let ((act-20 (let ((act-20 (PrimIO-putStrLn "" ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" ext-0)))))) (else (let ((act-20 ((REPL-Idris-interpret arg-0 arg-1 arg-2 arg-3 arg-4 e-8) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--31187-2627-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-29 (vector-ref sc2 1))) e-29))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))(else (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Name-Core-showSep "\xa;" e-7)) eta-0))))))))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--31436-2884 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--31436-2993 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--31381-3137 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 (Prelude-fromInteger_Num__Int 0))))) (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-8)) eta-0))))))))))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (CaseSplit-Interactive-TTImp-show_Show__SplitError e-8))) 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) (let ((act-15 (CaseSplit-IDEMode-Idris-getClause arg-0 arg-3 arg-4 e-8 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-1 (vector 0 )))) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) " not defined here"))) eta-0)))))))))))))) ((3) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-12 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (Context-Core-lookupDefName e-12 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (ExprSearch-Interactive-TTImp-exprSearch arg-0 arg-3 arg-1 (REPLOpts-Idris-replFC) e-12 (vector 0 ) eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-19 (vector-ref sc9 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc10 act-19)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-20 (vector-ref sc10 1))) (let ((act-20 ((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-20)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-21 (vector-ref sc11 1))) (let ((act-21 ((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--32213-4027 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--31381-3453-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-21)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-22 (vector-ref sc12 1))) (let ((sc13 e-14)) (cond ((equal? sc13 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Prelude-map_Functor__List 'erased 'erased (lambda (arg-6) (Syntax-Idris-show_Show__PTerm arg-6)) e-22))) eta-0)) (else (let ((sc14 e-22)) (case (vector-ref sc14 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "No search results")) eta-0)) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 res (vector 0 )))) eta-0)))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((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--32213-4136 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Unknown name " (Name-Core-show_Show__Name e-12)))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not a searchable hole")) eta-0))))))))))))))))))))))))))) ((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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Metadata-Core-findTyDeclAt arg-3 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Context-Core-lookupDefExact e-9 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0)) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (GenerateDef-Interactive-TTImp-makeDef arg-0 arg-3 arg-1 (lambda (p) (lambda (n) (FC-Core-onLine e-16 p))) e-9 eta-1))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-19 (REPLOpts-Idris-getSourceLine arg-4 e-16 eta-1))) (let ((sc13 act-19)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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--33700-4810 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-1))))))))))))))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-1))) eta-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Already defined")) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 "Can't find declaration for " (Name-Core-show_Show__Name e-17)))) eta-0))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((brack (List-Data-elemBy 'erased (lambda (x) (lambda (y) (Name-Core-C-61C-61_Eq__Name (Name-Core-dropNS x) (Name-Core-dropNS y)))) e-20 (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))))) (let ((act-17 (REPL-Idris-lookupDefTyName e-20 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (MakeLemma-Interactive-TTImp-makeLemma arg-3 arg-0 (REPLOpts-Idris-replFC) e-20 e-15 e-14 eta-0))) (let ((sc10 act-18)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-19 (Resugar-Idris-pterm arg-0 arg-2 e-4 eta-0))) (let ((sc12 act-19)) (case (vector-ref sc12 0) ((0) (let ((e-17 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-20 (Resugar-Idris-pterm arg-0 arg-2 e-3 eta-0))) (let ((sc13 act-20)) (case (vector-ref sc13 0) ((0) (let ((e-21 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-21) eta-0))) (else (let ((e-21 (vector-ref sc13 1))) (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc14 act-21)) (case (vector-ref sc14 0) ((0) (let ((e-22 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-22) eta-0))) (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-22 (REPLOpts-Idris-getSourceLine arg-4 e-19 eta-0))) (let ((sc15 act-22)) (case (vector-ref sc15 0) ((0) (let ((e-23 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-23) eta-0))) (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--34444-5452 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not found")) eta-0))))))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0)))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Can't make lifted definition")) eta-0))))))))))))))))))))))))) ((6) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Not implemented yet")) eta-0))) (else (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 (MakeClause-IDEMode-Idris-makeWith e-26 e-1) (vector 0 )))) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 "Source line not available")) eta-0)))))))))))))))))
(define REPL-Idris-processCatch (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Context-Core-branch arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Context-Core-commit arg-0 eta-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-10) eta-0))))))))))))))) (lambda (err) (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-0 e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-1 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-2 e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-4 e-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 (Error-Idris-display arg-0 arg-2 err eta-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-13)) eta-0)))))))))))))))))))))))) 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) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35305-6173 e-0 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1))) eta-0))))))))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-15 (vector-ref sc1 1))) (let ((e-16 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-16 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 e-16) eta-0))(else (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((act-19 (Normalise-Core-normaliseHoles (vector 0 ) e-8 (vector 0 ) e-2 eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((act-20 ((Normalise-Core-getTerm 'erased e-3) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-21 (let ((act-21 ((Normalise-Core-normaliseScope (vector 0 ) e-8 (vector 0 ) e-10) eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-9 e-11)) eta-0))))))))))))))))))))))))))))))))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-2 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-2) eta-0))(else (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-7)) eta-0)))))))))))))))))))))) ((3) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35305-6704 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)))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-4 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 (vector 1 e-3) e-8 e-4 e-7 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-Idris-loadMainFile arg-0 arg-1 arg-2 arg-3 arg-4 e-3 eta-0))))))))))))) ((13) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setWorkingDir arg-0 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Context-Core-getWorkingDir eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-6)) eta-0))))))))))))) ((14) (lambda (eta-0) (let ((act-15 (Context-Core-getWorkingDir eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-5)) eta-0)))))))) ((5) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-4 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPL-Idris-case--35305-6820 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) eta-0)))))))) ((6) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (REPL-Idris-compileExp arg-0 arg-1 arg-2 arg-3 arg-4 e-5 e-6 eta-0))))) ((7) (let ((e-7 (vector-ref sc0 1))) (lambda (eta-0) (REPL-Idris-execExp arg-0 arg-1 arg-2 arg-3 e-7 eta-0)))) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 )) eta-0))) ((9) (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-lookupTyName e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-9 (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-17 (Unify-Core-search (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) 1 (Prelude-fromInteger_Num__Nat 1000) e-9 e-11 (vector 0 ) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-18 (let ((act-18 (Normalise-Core-normaliseHoles (vector 0 ) e-5 (vector 0 ) e-12 eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-13)) 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)))))))(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-8) 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))))))))))))))))) ((15) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-9 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-9) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 15 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (let ((bind-0 e-6)) ((REPL-Idris-case--36278-7089 e-9 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))))))))))))))))) ((16) (let ((e-10 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtName e-10 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 (REPLOpts-Idris-replFC) e-10) eta-0))(else (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 16 eta-2)) eta-1)) (Core-Core-traverse 'erased 'erased (lambda (fn) (lambda (eta-1) (let ((act-17 (Termination-Core-checkTotal arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((act-18 (let ((act-18 (Context-Core-getTotality arg-0 (REPLOpts-Idris-replFC) fn eta-1))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Totality arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Totality arg-4574 arg-4575)))) e-8 eta-1)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fn e-8)) eta-1)))))))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-6)) eta-0))))))))))))))))) ((10) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 ((Context-Core-lookupCtxtName e-11 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))) ((11) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-Idris-setOpt arg-0 arg-4 e-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((12) (lambda (eta-0) (let ((act-15 (REPL-Idris-getOptions arg-0 arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-5)) eta-0)))))))) ((17) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setLogLevel arg-0 e-13 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-13)) eta-0)))))))) ((18) (lambda (eta-0) (let ((act-15 (Context-Core-getUserHoles arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-5)) eta-0)))))))) ((19) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((REPL-Idris-processEdit arg-0 arg-1 arg-2 arg-3 arg-4 e-14) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-7)) eta-0)))))))))))))))))))))) ((21) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 )) eta-0))) ((22) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 (Version-Idris-version))) eta-0)))))))
(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-15 (Resugar-Idris-pterm arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-0 arg-1 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) eta-0))))))))))))))) ((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-15 (Resugar-Idris-pterm arg-0 arg-1 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-pterm arg-0 arg-1 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-17 ((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-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-7) (Strings-Prelude-C-43C-43 " with (" (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) ")\xa;"))))) (Name-Core-showSep "\xa;" e-9))) eta-0))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 e-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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")))) eta-0)))))))))))))
(define REPL-Idris-parseRepl (lambda (arg-0) (REPL-Idris-case--36804-7625 arg-0 (REPL-Idris-n--36804-7544-fnameCmd arg-0 (vector 1 (vector 0 ":load " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":l " (lambda (eta-0) (vector 4 eta-0))) (vector 1 (vector 0 ":cd " (lambda (eta-0) (vector 13 eta-0))) (vector 0 )))) arg-0))))
(define REPL-Idris-parseEmptyCmd (lambda () (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 1 1 (Source-Rule-Parser-eoi) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))))
(define REPL-Idris-parseCmd (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-command)) (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-7533) (Core-Parser-Text-pure 'erased 'erased (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-15 (REPLCommon-Idris-resetContext arg-0 arg-1 arg-2 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (let ((act-16 (File-System-readFile arg-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((REPLCommon-Idris-updateErrorLine arg-4 e-7) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-19 (REPLOpts-Idris-setSource arg-4 e-2 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 arg-5)) ext-0))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 arg-5 e-7)) ext-0))))))))))))))))))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-17 (REPLOpts-Idris-setSource arg-4 "" ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-5 e-7)) ext-0))))))))))))))))))))
(define REPL-Idris-isHole (lambda (arg-0) (REPL-Idris-case--29699-1267 arg-0 (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17)))))
(define REPL-Idris-interpret (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (REPL-Idris-case--36908-7658 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 (REPL-Idris-parseRepl arg-5))))
(define REPL-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 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) ((21) (lambda (eta-0) (REPLCommon-Idris-iputStrLn arg-4 "Bye for now!" eta-0)))(else (lambda (eta-0) (let ((act-15 ((REPL-Idris-displayResult arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 1 (let ((sc2 e-5)) (let ((e-2 (vector-ref sc2 3))) e-2))) (vector 1 (vector 2 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0))) (vector 1 (vector 3 (let ((sc2 e-6)) (let ((e-1 (vector-ref sc2 2))) e-1))) (vector 1 (vector 4 (let ((sc2 e-6)) (let ((e-4 (vector-ref sc2 5))) e-4))) (vector 0 ))))))) ext-0)))))))))))))
(define REPL-Idris-findCG (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPL-Idris-case--30886-2336 arg-0 e-5 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-2 (vector-ref sc2 3))) e-2)))) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))))))))
(define REPL-Idris-execExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Desugar-Idris-desugar arg-2 arg-0 arg-3 arg-1 (vector 1 ) (vector 0 ) (vector 7 (REPLOpts-Idris-replFC) (vector 0 (REPLOpts-Idris-replFC) (vector 1 "unsafePerformIO")) arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-18 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (REPL-Idris-findCG arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-execute arg-0 e-9 e-8 ext-0)))))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-4)) ext-0)))))))))))))))))))))))))))))
(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-15 (let ((act-15 (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1))) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5)))) eta-0)))))))) (lambda () (lambda (num) (lambda (eta-0) (REPL-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)))) (REPL-Idris-isHole e-7)))))))))
(define REPL-Idris-displayTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-5)) ext-0))))))))
(define REPL-Idris-displayResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-0 eta-0)))) ((4) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-1) eta-0))) ((1) (let ((e-23 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-1) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-23))) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-3) eta-0)))) ((6) (let ((e-4 (vector-ref sc0 1))) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-4) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-5))) eta-0))))) ((7) (let ((e-6 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Loaded file " e-6) eta-0)))) ((8) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-8)))) eta-0))))) ((9) (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "Error(s) building file " e-9) eta-0)))) ((10) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "No file can be reloaded" eta-0))) ((11) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-11 "'")) eta-0)))) ((12) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 "Compilation failed" eta-0))) ((13) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-12 " written")) eta-0)))) ((14) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Syntax-Idris-show_Show__PTerm e-13) eta-0)))) ((15) (let ((e-14 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (REPL-Idris-handleMissing eta-1)) e-14)) eta-0)))) ((16) (let ((e-15 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc1 lamc-0)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-15)) eta-0)))) ((17) (let ((e-16 (vector-ref sc0 1))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 "No holes" eta-0))) ((1) (let ((e-26 (vector-ref sc1 1))) (let ((e-27 (vector-ref sc1 2))) (let ((sc2 e-27)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "1 hole: " (Name-Core-show_Show__Name e-26)) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-16)))) eta-0))))))))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat (List-Data-length 'erased e-16)) (Strings-Prelude-C-43C-43 " holes: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-16)))) eta-0))))))) ((19) (let ((e-17 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-17)) eta-0)))) ((20) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Version-Idris-showVersion 0 e-18) eta-0)))) ((3) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (REPL-Idris-displayHelp) eta-0))) ((22) (let ((e-19 (vector-ref sc0 1))) (let ((sc1 e-19)) (case (vector-ref sc1 0) ((0) (let ((e-29 (vector-ref sc1 1))) (let ((sc2 e-29)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" e-29) eta-0))))))) ((1) (let ((e-30 (vector-ref sc1 1))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 e-30 eta-0)))) ((2) (let ((e-31 (vector-ref sc1 1))) (let ((e-32 (vector-ref sc1 2))) (let ((e-33 (vector-ref sc1 3))) (let ((e-34 (vector-ref sc1 4))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\xa;")))) e-34) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) ((18) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Syntax-Idris-show_Show__REPLOpt eta-1)) e-20)) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--30575-2060 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-15 (let ((act-15 (Normalise-Core-normaliseHoles (vector 0 ) arg-2 (vector 0 ) arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-5)) ext-0))))))))
(define REPL-Idris-displayHelp (lambda () (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-n--37022-8110-cmdInfo eta-0)) (Parser-Idris-help)))))
(define REPL-Idris-displayErrors (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (REPLCommon-Idris-printError arg-4 (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-0 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-1)))) eta-0)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles e-2 arg-2 e-6 e-11 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " = " (Syntax-Idris-show_Show__PTerm e-8)))) eta-0)))))))))))))))))))))))
(define REPL-Idris-compileExp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 ((Context-Core-resolveName arg-0 (vector 1 "[input]")) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (let ((e-2 (vector-ref sc3 1))) (let ((act-18 (LinearCheck-Core-linearCheck (vector 0 ) arg-0 arg-1 (REPLOpts-Idris-replFC) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) 0 (vector 0 ) e-2 ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (REPL-Idris-findCG arg-0 ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) (Common-Compiler-compile arg-0 e-9 e-8 arg-6 ext-0)))))))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-9 (vector-ref sc5 1))) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 )) eta-0))) (lambda () (lambda (eta-0) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 eta-0)) eta-1)))) 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--31262-2693-addApp arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 arg-0 arg-4 (vector 0 ) (REPL-Idris-proofSearch arg-1 arg-3 arg-4 arg-5))))
(define REPL-Idris-addClause (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-0) arg-2))(else (let ((e-0 (- arg-1 1))) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 1 e-2 (REPL-Idris-addClause arg-0 e-0 e-3))))) (else (vector 1 arg-0 (vector 0 )))))))))))
(define Stream-Data-repeat (lambda (arg-0 arg-1) (vector 0 arg-1 (lambda () (Stream-Data-repeat 'erased arg-1)))))
(define MakeLemma-Interactive-TTImp-case--13813-16661 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-3 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-3 arg-2 e-2))) eta-0)))))))
(define MakeLemma-Interactive-TTImp-case--13521-16434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13335-16389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13521-16434 arg-0 arg-1 arg-2 arg-3 arg-4 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--13335-16279 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13271-16236 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13335-16389 arg-0 arg-1 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--13335-16279 arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0)))))))))
(define MakeLemma-Interactive-TTImp-case--13068-15985 (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--13773-16607-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) 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--13773-16607-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-15 ((MakeLemma-Interactive-TTImp-getArgs (vector 0 ) arg-1 (vector 0 ) arg-4 arg-5) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (MakeLemma-Interactive-TTImp-mkType arg-2 e-2 e-3) (MakeLemma-Interactive-TTImp-mkApp arg-2 arg-3 e-2))) ext-0)))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) e-6)) eta-0)))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normalise arg-0 e-6 arg-2 e-9 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-10) eta-0)))))))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (let ((act-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-11 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc4 1))) (let ((xC-39 (vector 1 e-11))) (let ((act-18 ((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-18)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (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--13335-16389 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--13335-16279 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)))))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0))))))))))))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normalise arg-0 e-6 arg-2 arg-4 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-7) eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) e-7)) eta-0))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normalise arg-0 e-5 arg-2 arg-4 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Unelab-TTImp-unelab arg-0 arg-1 arg-2 e-6) eta-0)))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) e-6)) eta-0)))))))))))))))))))))
(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--13068-15985 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
(define REPLCommon-Idris-case--16069-16322 (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--15994-16227 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-6))))))))))
(define REPLCommon-Idris-case--15994-16195 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6))))))))))
(define REPLCommon-Idris-case--15916-16154 (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--15754-15991 (lambda (arg-0 arg-1 arg-2 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--15716-15920-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--15716-15920-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--15716-15950 (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-15 (Error-Idris-displayWarning arg-3 arg-1 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (PrimIO-putStrLn e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) 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-15 ((Error-Idris-pwarning arg-3 arg-1 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--15754-15991 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--15554-15811 (lambda (arg-0 arg-1 arg-2 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--15516-15740-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--15516-15740-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--15516-15770 (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-15 (Error-Idris-display arg-3 arg-1 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (PrimIO-putStrLn e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) 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-15 ((Error-Idris-perror arg-3 arg-1 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((REPLCommon-Idris-case--15554-15811 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--15464-15705 (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-15 (PrimIO-putStrLn arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define REPLCommon-Idris-case--15397-15643 (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-15 (PrimIO-putStrLn arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--15716-15920-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 (Prelude-C-43_Num__Int e-2 1) (Prelude-C-43_Num__Int e-3 1)))))))
(define REPLCommon-Idris-n--15516-15740-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 (Prelude-C-43_Num__Int e-2 1) (Prelude-C-43_Num__Int e-3 1)))))))
(define REPLCommon-Idris-updateErrorLine (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 0 ) e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-9 (vector-ref sc2 3))) (let ((e-8 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-9 e-8 e-4 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))))))))))))))
(define REPLCommon-Idris-resetContext (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Context-Core-initDefs ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased 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))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((InitPrimitives-Core-addPrimitives arg-0) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased arg-1 (UnifyState-Core-initUState) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-2 (Syntax-Idris-initSyntax) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (IORef-Data-writeIORef 'erased arg-3 (Metadata-Core-initMetadata) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))))))))))))))))))))))))
(define REPLCommon-Idris-printWithStatus (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--15464-15705 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
(define REPLCommon-Idris-printResult (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "ok" arg-1 ext-0)))
(define REPLCommon-Idris-printError (lambda (arg-0 arg-1 ext-0) (REPLCommon-Idris-printWithStatus arg-0 "error" arg-1 ext-0)))
(define REPLCommon-Idris-iputStrLn (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--15397-15643 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
(define REPLCommon-Idris-getFCLine (lambda (arg-0) (Builtin-fst 'erased 'erased (FC-Core-startPos arg-0))))
(define REPLCommon-Idris-emitWarnings (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (IORef-Data-writeIORef 'erased 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 )))))))))))))))))))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))))))))))))
(define REPLCommon-Idris-emitWarning (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--15716-15950 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
(define REPLCommon-Idris-emitError (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((REPLCommon-Idris-case--15516-15770 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
(define REPLOpts-Idris-case--13319-15583 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 arg-0 e-4 e-5 e-6))))))))))
(define REPLOpts-Idris-case--13274-15543 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 arg-0))))))))))
(define REPLOpts-Idris-n--13364-15600-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--13364-15600-findLine arg-0 arg-1 e-1 e-7)))(else (let ((sc0 arg-3)) (vector 0 )))))))))))
(define REPLOpts-REPLOpts-Idris-source (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define REPLOpts-REPLOpts-Idris-showTypes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define REPLOpts-Idris-setSource (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-4 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (vector 0 e-0 e-1 e-2 arg-1 e-4 e-7 e-6)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define REPLOpts-Idris-setOutput (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-7 (vector-ref sc1 6))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-7 arg-1)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(define REPLOpts-Idris-replFC (lambda () (vector 0 "(interactive)" (vector 0 0 0) (vector 0 0 0))))
(define REPLOpts-REPLOpts-Idris-mainfile (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define REPLOpts-REPLOpts-Idris-idemode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
(define REPLOpts-Idris-getSourceLine (lambda (arg-0 arg-1 ext-0) (let ((act-15 (REPLOpts-Idris-getSource arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (REPLOpts-Idris-n--13364-15600-findLine arg-1 arg-0 (Prelude-cast_Cast__Int_Integer (Prelude-C-45_Neg__Int arg-1 1)) (Strings-Data-lines e-5))) ext-0))))))))
(define REPLOpts-Idris-getSource (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))) ext-0))))))))
(define REPLOpts-Idris-getOutput (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
(define REPLOpts-REPLOpts-Idris-evalMode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define REPLOpts-REPLOpts-Idris-errorLine (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
(define REPLOpts-REPLOpts-Idris-editor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1) (vector 0 1 (vector 1 ) arg-0 "" "vim" (vector 0 ) arg-1)))
(define Commands-IDEMode-Idris-case--14195-16442 (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--13126-15712 (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--13126-15609 (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--13126-15600-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 ))))))
(define Commands-IDEMode-Idris-case--13126-15560 (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--13126-15600-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--14032-16255-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--14195-16442 '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-16333) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-16333)) (lambda (arg-16333) (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-16334) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-16334)) (lambda (arg-16334) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-16334))) arg-16333))) (vector 0 (vector 4 "protocol-version") (vector 0 arg-0 arg-1)))))
(define Commands-IDEMode-Idris-toSExp (lambda (arg-0 arg-1 ext-0) (arg-1 ext-0)))
(define Commands-IDEMode-Idris-sendLine (lambda (arg-0 arg-1 ext-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (vector 0 )) (lambda (eta-0) (File-System-fPutStr arg-0 arg-1 eta-0)) ext-0)))
(define Commands-IDEMode-Idris-send (lambda (arg-0 arg-1 arg-2 arg-3) (let ((r (Strings-Prelude-C-43C-43 (Commands-IDEMode-Idris-show_Show__SExp (arg-1 arg-3)) "\xa;"))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Commands-IDEMode-Idris-hex arg-2 (Prelude-cast_Cast__Nat_Int (Prelude-length r)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Commands-IDEMode-Idris-sendLine arg-2 r eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (File-System-fflush arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))))))
(define Commands-IDEMode-Idris-readHints (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-readHints e-3) (lambda (restC-39) (Prelude-pure_Applicative__Maybe 'erased (vector 1 e-4 restC-39))))))(else (vector 0 )))))))(else (vector 0 ))))))
(define Commands-IDEMode-Idris-hex (lambda (arg-0 arg-1 ext-0) (Commands-IDEMode-Idris-prim__printfHex arg-0 "%06x" arg-1 ext-0)))
(define Commands-IDEMode-Idris-getMsg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((1) (let ((e-5 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((3) (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Commands-IDEMode-Idris-getIDECommand e-2) (lambda (cmd) (Prelude-pure_Applicative__Maybe 'erased (vector 0 cmd e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Commands-IDEMode-Idris-getIDECommand (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((4) (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (cond ((equal? sc3 "interpret") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-7 (vector-ref sc4 1))) (let ((e-8 (vector-ref sc4 2))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (let ((e-9 (vector-ref sc5 1))) (let ((sc6 e-8)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 0 e-9)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "load-file") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-12 (vector-ref sc4 1))) (let ((e-13 (vector-ref sc4 2))) (let ((sc5 e-12)) (case (vector-ref sc5 0) ((1) (let ((e-14 (vector-ref sc5 1))) (let ((sc6 e-13)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 1 e-14 (vector 0 )))) ((1) (let ((e-17 (vector-ref sc6 1))) (let ((e-18 (vector-ref sc6 2))) (let ((sc7 e-17)) (case (vector-ref sc7 0) ((3) (let ((e-19 (vector-ref sc7 1))) (let ((sc8 e-18)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 1 e-14 (vector 1 e-19))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "type-of") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-22 (vector-ref sc4 1))) (let ((e-23 (vector-ref sc4 2))) (let ((sc5 e-22)) (case (vector-ref sc5 0) ((1) (let ((e-24 (vector-ref sc5 1))) (let ((sc6 e-23)) (case (vector-ref sc6 0) ((0) (vector 1 (vector 2 e-24 (vector 0 )))) ((1) (let ((e-27 (vector-ref sc6 1))) (let ((e-28 (vector-ref sc6 2))) (let ((sc7 e-27)) (case (vector-ref sc7 0) ((3) (let ((e-29 (vector-ref sc7 1))) (let ((sc8 e-28)) (case (vector-ref sc8 0) ((1) (let ((e-31 (vector-ref sc8 1))) (let ((e-32 (vector-ref sc8 2))) (let ((sc9 e-31)) (case (vector-ref sc9 0) ((3) (let ((e-33 (vector-ref sc9 1))) (let ((sc10 e-32)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 2 e-24 (vector 1 (vector 0 e-29 e-33)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "case-split") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-36 (vector-ref sc4 1))) (let ((e-37 (vector-ref sc4 2))) (let ((sc5 e-36)) (case (vector-ref sc5 0) ((3) (let ((e-38 (vector-ref sc5 1))) (let ((sc6 e-37)) (case (vector-ref sc6 0) ((1) (let ((e-40 (vector-ref sc6 1))) (let ((e-41 (vector-ref sc6 2))) (let ((sc7 e-40)) (case (vector-ref sc7 0) ((3) (let ((e-42 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((1) (let ((e-45 (vector-ref sc8 1))) (let ((e-46 (vector-ref sc8 2))) (let ((sc9 e-45)) (case (vector-ref sc9 0) ((1) (let ((e-47 (vector-ref sc9 1))) (let ((sc10 e-46)) (case (vector-ref sc10 0) ((0) (vector 1 (vector 3 e-38 e-42 e-47)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))) ((1) (let ((e-43 (vector-ref sc7 1))) (let ((sc8 e-41)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 3 e-38 0 e-43)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-clause") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-51 (vector-ref sc4 1))) (let ((e-52 (vector-ref sc4 2))) (let ((sc5 e-51)) (case (vector-ref sc5 0) ((3) (let ((e-53 (vector-ref sc5 1))) (let ((sc6 e-52)) (case (vector-ref sc6 0) ((1) (let ((e-55 (vector-ref sc6 1))) (let ((e-56 (vector-ref sc6 2))) (let ((sc7 e-55)) (case (vector-ref sc7 0) ((1) (let ((e-57 (vector-ref sc7 1))) (let ((sc8 e-56)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 4 e-53 e-57)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "add-missing") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-60)) (case (vector-ref sc5 0) ((3) (let ((e-62 (vector-ref sc5 1))) (let ((sc6 e-61)) (case (vector-ref sc6 0) ((1) (let ((e-64 (vector-ref sc6 1))) (let ((e-65 (vector-ref sc6 2))) (let ((sc7 e-64)) (case (vector-ref sc7 0) ((1) (let ((e-66 (vector-ref sc7 1))) (let ((sc8 e-65)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 5 e-62 e-66)))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))) ((equal? sc3 "proof-search") (let ((sc4 e-4)) (case (vector-ref sc4 0) ((1) (let ((e-69 (vector-ref sc4 1))) (let ((e-70 (vector-ref sc4 2))) (let ((sc5 e-69)) (case (vector-ref sc5 0) ((3) (let ((e-71 (vector-ref sc5 1))) (let ((sc6 e-70)) (case (vector-ref sc6 0) ((1) (let ((e-73 (vector-ref sc6 1))) (let ((e-74 (vector-ref sc6 2))) (let ((sc7 e-73)) (case (vector-ref sc7 0) ((1) (let ((e-75 (vector-ref sc7 1))) (let ((sc8 e-74)) (case (vector-ref sc8 0) ((0) (vector 1 (vector 6 e-71 e-75 (vector 0 ) 1))) ((1) (let ((e-78 (vector-ref sc8 1))) (let ((e-79 (vector-ref sc8 2))) (let ((sc9 e-78)) (case (vector-ref sc9 0) ((0) (let ((e-80 (vector-ref sc9 1))) (let ((sc10 e-79)) (case (vector-ref sc10 0) ((0) (Commands-IDEMode-Idris-case--13126-15560 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--13126-15609 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--14032-16255-escapeChar eta-0))) (Prelude-unpack ext-0)))))
(define Error-Idris-case--13500-4225 (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-15 (Error-Idris-pshow e-2 arg-5 arg-4 e-6 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't find an implementation for " e-5)) eta-0)))))))))))))))
(define Error-Idris-case--13500-4009 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Error-Idris-perror arg-2 arg-1 e-1)))(else (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--13500-3934-pAlterror arg-0 arg-1 arg-2 eta-1)) arg-0) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Sorry, I can't find any elaboration which works. All errors:\xa;" (Name-Core-showSep "\xa;" e-5))) eta-0))))))))))))
(define Error-Idris-case--13500-3876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 0 e-0 e-1 0))))))
(define Error-Idris-case--13500-3766 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-2) " is not accessible in this context")) (else (Strings-Prelude-C-43C-43 "Trying to use " (Strings-Prelude-C-43C-43 (Error-Idris-n--13500-3729-showRig arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1) (Strings-Prelude-C-43C-43 " name " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName arg-2) (Strings-Prelude-C-43C-43 " in " (Strings-Prelude-C-43C-43 (Error-Idris-n--13500-3730-showRel arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0) " context")))))))))))
(define Error-Idris-case--13500-3671 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0)))))))))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) arg-0))))))))
(define Error-Idris-n--13500-4126-tshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow arg-6 arg-5 arg-4 arg-7 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " : " e-5))) eta-0))))))))))))
(define Error-Idris-n--13500-3729-showRig (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0)))
(define Error-Idris-n--13500-3730-showRel (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0)))
(define Error-Idris-n--13500-3474-showPVar (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-n--13500-3474-showPVar arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-0)))(else (Name-Core-show_Show__Name arg-7))))))
(define Error-Idris-n--13500-4598-showMod (lambda (arg-0 arg-1 arg-2 arg-3) (Name-Core-showSep "." (List-Data-reverse 'erased arg-3))))
(define Error-Idris-n--13500-4277-showHoles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "") (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " introduced at " (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC e-6) (Strings-Prelude-C-43C-43 "\xa;" (Error-Idris-n--13500-4277-showHoles arg-0 arg-1 arg-2 e-3)))))))))))))))
(define Error-Idris-n--13500-3934-pAlterror (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-2 e-5) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Error-Idris-perror arg-2 arg-1 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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;"))))) eta-0)))))))))))))) (else (lambda (eta-0) (let ((act-15 ((Error-Idris-perror arg-2 arg-1 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Possible error:\xa;\x9;" e-5)) eta-0)))))))))))))))
(define Error-Idris-n--13500-4181-dropPis (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((2) (Error-Idris-n--13500-4181-dropPis arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 e-2 arg-6) (vector 1 e-3 arg-7) e-4))(else (vector 0 arg-6 (vector 0 arg-7 arg-8)))))))))(else (vector 0 arg-6 (vector 0 arg-7 arg-8)))))))
(define Error-Idris-n--13500-3935-allUndefined (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 7 e-8 e-9)))(else (Error-Idris-n--13500-3935-allUndefined arg-0 arg-1 arg-2 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
(define Error-Idris-pwarning (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-0 arg-0 arg-1 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Warning: unreachable clause: " e-5)) eta-0)))))))))))))
(define Error-Idris-pshowNoNorm (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Resugar-Idris-resugar arg-0 arg-1 arg-2 arg-3 arg-4 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-6)) ext-0))))))))))))
(define Error-Idris-pshow (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Normalise-Core-normaliseHoles arg-0 e-5 arg-3 arg-4 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Syntax-Idris-show_Show__PTerm e-6)) ext-0)))))))))))))
(define Error-Idris-perror (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Error-Idris-perror arg-0 arg-1 e-0))) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 (Error-Idris-pshow e-1 arg-0 arg-1 e-3 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Mismatch between:\xa;\x9;" (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 "\xa;and\xa;\x9;" e-7)))) eta-0))))))))))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Error-Idris-pshow e-6 arg-0 arg-1 e-8 e-10 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't solve constraint between:\xa;\x9;" (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;and\xa;\x9;" e-11)))) eta-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))) (let ((e-15 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-11 arg-0 arg-1 e-13 e-15 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Pattern variable " (Strings-Prelude-C-43C-43 (Error-Idris-n--13500-3474-showPVar e-11 e-12 e-15 e-14 e-13 arg-1 arg-0 e-14) (Strings-Prelude-C-43C-43 " unifies with:\xa;\x9;" e-5)))) eta-0))))))))))))) ((4) (let ((e-16 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (let ((e-20 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-19) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Error-Idris-pshow e-16 arg-0 arg-1 e-18 e-20 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Cycle detected in solution of metavariable " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-5) (Strings-Prelude-C-43C-43 " = " e-6)))) eta-0))))))))))))))))) ((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-15 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-24 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Error-Idris-pshow e-21 arg-0 arg-1 e-23 e-25 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Error-Idris-perror arg-0 arg-1 e-26) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) eta-0))))))))))))))))))))))) ((6) (let ((e-27 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-30)) (case (vector-ref sc1 0) ((0) (let ((e-195 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-27 arg-0 arg-1 e-29 e-195 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 " is not a valid impossible case")) eta-0))))))))) (else (let ((e-198 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((Error-Idris-perror arg-0 arg-1 e-198) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Impossible pattern gives an error:\xa;" e-5)) eta-0))))))))))))))) ((7) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Undefined name " (Name-Core-show_Show__Name e-32))) eta-0)))) ((8) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((sc1 e-35)) (case (vector-ref sc1 0) ((1) (let ((e-200 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-200)) " is not explicitly imported"))))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Name " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-34) " is private"))) eta-0)))))))) ((9) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Return type of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-37) " must be Type"))) eta-0)))) ((10) (let ((e-39 (vector-ref sc0 2))) (let ((e-40 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))))) eta-0))))) ((11) (let ((e-42 (vector-ref sc0 2))) (let ((e-43 (vector-ref sc0 3))) (let ((sc1 e-43)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Internal error (Coverage of " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-42) ")"))) eta-0))) ((1) (let ((e-202 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-202) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering. Missing cases:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-6)))) eta-0)))))))))))))) (else (let ((e-203 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-42) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not covering:\xa;\x9;" (Strings-Prelude-C-43C-43 "Calls non covering function" (let ((sc3 e-203)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((e-2 (vector-ref sc3 2))) (let ((sc4 e-2)) (case (vector-ref sc4 0) ((0) (Strings-Prelude-C-43C-43 " " (Name-Core-show_Show__Name e-1)))(else (Strings-Prelude-C-43C-43 "s: " (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-203)))))))))(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-203)))))))))) eta-0)))))))))))))) ((12) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-45) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " is not total:\xa;\x9;" (TT-Core-show_Show__PartialReason e-46)))) eta-0)))))))))) ((13) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "There are " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-48) (Strings-Prelude-C-43C-43 " uses of linear name " (Resugar-Idris-sugarName e-49))))) eta-0))))) ((14) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (let ((e-52 (vector-ref sc0 3))) (let ((e-53 (vector-ref sc0 4))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Error-Idris-case--13500-3766 e-53 e-52 e-51 e-50 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) e-52))) eta-0))))))) ((15) (let ((e-54 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 3))) (let ((e-57 (vector-ref sc0 4))) (let ((e-58 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-57 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Error-Idris-pshow e-54 arg-0 arg-1 e-56 e-58 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " borrows argument " (Strings-Prelude-C-43C-43 e-6 " so must be fully applied")))) eta-0))))))))))))))))) ((16) (let ((e-59 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 3))) (let ((e-62 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-59 arg-0 arg-1 e-61 e-62 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 " borrows, so must return a concrete type")) eta-0))))))))))) ((17) (let ((e-64 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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))) eta-0)))) ((18) (let ((e-65 (vector-ref sc0 1))) (let ((e-67 (vector-ref sc0 3))) (let ((e-68 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Context-Core-getPPrint arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshow e-65 arg-0 arg-1 e-67 eta-1 eta-2))) e-68) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((res (Strings-Prelude-C-43C-43 "Ambiguous elaboration. Possible correct results:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-7)))) (let ((act-18 (Context-Core-setPPrint arg-0 e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased res) eta-0))))))))))))))))))))))))) ((19) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (let ((e-72 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Error-Idris-pshowNoNorm e-69 arg-0 arg-1 e-71 eta-1 eta-2))) e-72) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Multiple solutions found in search. Possible correct results:\xa;\x9;" (Name-Core-showSep "\xa;\x9;" e-5))) eta-0))))))))))) ((20) (let ((e-74 (vector-ref sc0 2))) (let ((e-75 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-0 e-74) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Context-Core-getFullName arg-0 eta-1)) e-75) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Maximum ambiguity depth exceeded in " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep " --> " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-show_Show__Name eta-1)) e-6)))))) eta-0))))))))))))))) ((21) (let ((e-76 (vector-ref sc0 1))) (Error-Idris-case--13500-4009 e-76 arg-1 arg-0 (Error-Idris-n--13500-3935-allUndefined e-76 arg-1 arg-0 e-76)))) ((22) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "Can't infer type for this record update") eta-0))) ((23) (let ((e-81 (vector-ref sc0 2))) (let ((e-82 (vector-ref sc0 3))) (let ((sc1 e-82)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-81 " is not part of a record type")) eta-0))) (else (let ((e-206 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Record type " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-206) (Strings-Prelude-C-43C-43 " has no field " e-81)))) eta-0))))))))) ((24) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-84) " is not a record type")) eta-0)))) ((25) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Field update " (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-86) " not compatible with other updates"))) eta-0)))) ((26) (let ((e-87 (vector-ref sc0 1))) (let ((e-89 (vector-ref sc0 3))) (let ((e-90 (vector-ref sc0 4))) (let ((e-91 (vector-ref sc0 5))) (let ((sc1 e-90)) (case (vector-ref sc1 0) ((1) (let ((e-208 (vector-ref sc1 1))) (let ((e-209 (vector-ref sc1 2))) (let ((sc2 e-208)) (case (vector-ref sc2 0) ((1) (let ((e-211 (vector-ref sc2 1))) (let ((sc3 e-209)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-211) (Strings-Prelude-C-43C-43 " is not a valid implicit argument in " e-5))) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5))) eta-0))))))))))))(else (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5))) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-87 arg-0 arg-1 e-89 e-91 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-3) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-3)) e-90)) (Strings-Prelude-C-43C-43 " are not valid implicit arguments in " e-5))) eta-0))))))))))))))) ((27) (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-94 (vector-ref sc0 3))) (let ((e-95 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Error-Idris-n--13500-4126-tshow e-92 e-93 e-95 e-94 arg-1 arg-0 e-92 e-94 eta-1)) e-95) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Need to bind implicits " (Name-Core-showSep ", " e-5))) eta-0)))))))))))) ((28) (let ((e-96 (vector-ref sc0 1))) (let ((e-98 (vector-ref sc0 3))) (let ((e-99 (vector-ref sc0 4))) (let ((e-100 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-96 arg-0 arg-1 e-98 e-100 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't bind name " (Strings-Prelude-C-43C-43 (Name-Core-nameRoot e-99) (Strings-Prelude-C-43C-43 " with type " (Strings-Prelude-C-43C-43 e-5 " here. Try binding explicitly."))))) eta-0)))))))))))) ((29) (let ((e-101 (vector-ref sc0 1))) (let ((e-102 (vector-ref sc0 2))) (let ((e-103 (vector-ref sc0 3))) (let ((e-104 (vector-ref sc0 4))) (Error-Idris-case--13500-4225 e-101 e-102 e-104 e-103 arg-1 arg-0 (Error-Idris-n--13500-4181-dropPis e-101 e-102 e-104 e-103 arg-1 arg-0 e-101 e-103 e-104))))))) ((30) (let ((e-105 (vector-ref sc0 1))) (let ((e-107 (vector-ref sc0 3))) (let ((e-109 (vector-ref sc0 5))) (let ((e-110 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-105 arg-0 arg-1 e-109 e-110 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't find an implementation for " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "since I can't infer a value for argument " (Name-Core-show_Show__Name e-107)))))) eta-0)))))))))))) ((31) (let ((e-111 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Unsolved holes:\xa;" (Error-Idris-n--13500-4277-showHoles e-111 arg-1 arg-0 e-111))) eta-0)))) ((32) (let ((e-112 (vector-ref sc0 1))) (let ((e-114 (vector-ref sc0 3))) (let ((e-115 (vector-ref sc0 4))) (let ((e-116 (vector-ref sc0 5))) (let ((e-117 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-112 arg-0 arg-1 e-114 e-117 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't infer type for argument " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-115) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Got " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " with hole " (Name-Core-show_Show__Name e-116)))))))) eta-0))))))))))))) ((33) (let ((e-118 (vector-ref sc0 1))) (let ((e-120 (vector-ref sc0 3))) (let ((e-121 (vector-ref sc0 4))) (let ((e-122 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-118 arg-0 arg-1 e-120 e-122 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Named hole " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-121) (Strings-Prelude-C-43C-43 " has been solved by unification\xa;" (Strings-Prelude-C-43C-43 "Result: " e-5))))) eta-0)))))))))))) ((34) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (vector-ref sc0 3))) (let ((e-126 (vector-ref sc0 4))) (let ((e-127 (vector-ref sc0 5))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-124) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Resugar-Idris-sugarName e-125) (Strings-Prelude-C-43C-43 " cannot refer to " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Visibility e-126) (Strings-Prelude-C-43C-43 " " (Resugar-Idris-sugarName e-127)))))))) eta-0))))))) ((35) (let ((e-129 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Non linear pattern " (Resugar-Idris-sugarName e-129))) eta-0)))) ((36) (let ((e-131 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Pattern not allowed here: " (Name-Core-show_Show__Name e-131))) eta-0)))) ((37) (let ((e-133 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "No type declaration for " (Name-Core-show_Show__Name e-133))) eta-0)))) ((38) (let ((e-135 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-135) " is already defined")) eta-0)))) ((39) (let ((e-136 (vector-ref sc0 1))) (let ((e-138 (vector-ref sc0 3))) (let ((e-139 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-136 arg-0 arg-1 e-138 e-139 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 " is not a function type")) eta-0))))))))))) ((40) (let ((e-140 (vector-ref sc0 1))) (let ((e-142 (vector-ref sc0 3))) (let ((e-143 (vector-ref sc0 4))) (let ((e-144 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-140 arg-0 arg-1 e-142 e-143 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Error-Idris-pshow e-140 arg-0 arg-1 e-142 e-144 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Rewriting by " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " did not change type " e-6)))) eta-0))))))))))))))))) ((41) (let ((e-145 (vector-ref sc0 1))) (let ((e-147 (vector-ref sc0 3))) (let ((e-148 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-145 arg-0 arg-1 e-147 e-148 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 " is not a rewrite rule type")) eta-0))))))))))) ((42) (let ((e-150 (vector-ref sc0 2))) (let ((e-151 (vector-ref sc0 3))) (let ((sc1 e-151)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-150) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 " have differing numbers of arguments"))) eta-0)))))))) ((1) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-150) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Patterns for " (Strings-Prelude-C-43C-43 e-5 " require matching on different types"))) eta-0)))))))) ((4) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-150) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't infer type to match in " e-5)) eta-0)))))))) ((3) (let ((e-213 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) e-213 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Constructor " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) " is not fully applied"))) eta-0))))))))) (else (let ((e-214 (vector-ref sc1 1))) (let ((sc2 e-214)) (let ((e-217 (vector-ref sc2 1))) (let ((e-218 (vector-ref sc2 2))) (let ((sc3 e-218)) (let ((e-221 (vector-ref sc3 1))) (let ((e-222 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-217 arg-0 arg-1 e-221 e-222 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((Context-Core-prettyName arg-0 e-150) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Attempt to match on erased argument " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " in " e-6)))) eta-0))))))))))))))))))))))))) ((44) (let ((e-152 (vector-ref sc0 1))) (let ((e-154 (vector-ref sc0 3))) (let ((e-155 (vector-ref sc0 4))) (let ((e-156 (vector-ref sc0 5))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-152 arg-0 arg-1 e-154 e-156 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Core-Core-show_Show__DotReason e-155) ")"))))) eta-0)))))))))))) ((43) (let ((e-158 (vector-ref sc0 1))) (let ((e-160 (vector-ref sc0 3))) (let ((e-161 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-158 arg-0 arg-1 e-160 e-161 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't match on " (Strings-Prelude-C-43C-43 e-5 " as it has a polymorphic type"))) eta-0))))))))))) ((45) (let ((e-163 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Can't infer type for unbound implicit name " (Strings-Prelude-C-43C-43 e-163 (Strings-Prelude-C-43C-43 "\xa;" "Try making it a bound implicit.")))) eta-0)))) ((46) (let ((e-164 (vector-ref sc0 1))) (let ((e-166 (vector-ref sc0 3))) (let ((e-167 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Error-Idris-pshow e-164 arg-0 arg-1 e-166 e-167 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Bad elaborator script " e-5)) eta-0))))))))))) ((47) (let ((e-169 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-169) eta-0)))) ((48) (let ((e-170 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "Error in TTC file: " (Core-Core-show_Show__TTCErrorMsg e-170))) eta-0)))) ((49) (let ((e-171 (vector-ref sc0 1))) (let ((e-172 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "File error in " (Strings-Prelude-C-43C-43 e-171 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-172))))) eta-0))))) ((50) (let ((e-174 (vector-ref sc0 1))) (let ((e-176 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Support-Parser-show_Show__C-40ParseErrorC-32C-36tokC-41 'erased e-174 e-176)) eta-0))))) ((51) (let ((e-178 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased e-178)) " not found")) eta-0)))) ((52) (let ((e-179 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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--13500-4598-showMod e-179 arg-1 arg-0 eta-1)) e-179)))) eta-0)))) ((53) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "Internal error when resolving implicit laziness") eta-0))) ((54) (let ((e-180 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "INTERNAL ERROR: " e-180)) eta-0)))) ((55) (let ((e-181 (vector-ref sc0 1))) (let ((e-182 (vector-ref sc0 2))) (let ((e-183 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-182) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Error-Idris-perror arg-0 arg-1 e-183) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-181) (Strings-Prelude-C-43C-43 ":\xa;" e-6)))))) eta-0)))))))))))))))) ((56) (let ((e-184 (vector-ref sc0 1))) (let ((e-185 (vector-ref sc0 2))) (let ((e-186 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-185) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Error-Idris-perror arg-0 arg-1 e-186) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-184) (Strings-Prelude-C-43C-43 ":\xa;" e-6)))))) eta-0)))))))))))))))) ((57) (let ((e-187 (vector-ref sc0 1))) (let ((e-188 (vector-ref sc0 2))) (let ((e-189 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-188) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Error-Idris-perror arg-0 arg-1 e-189) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-187) (Strings-Prelude-C-43C-43 ":\xa;" e-6)))))) eta-0)))))))))))))))) (else (let ((e-190 (vector-ref sc0 1))) (let ((e-191 (vector-ref sc0 2))) (let ((e-192 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Context-Core-prettyName arg-0 e-191) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Error-Idris-perror arg-0 arg-1 e-192) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-190) (Strings-Prelude-C-43C-43 ":\xa;" e-6)))))) eta-0))))))))))))))))))))
(define Error-Idris-displayWarning (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Error-Idris-pwarning arg-0 arg-1 arg-2) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getWarningLoc arg-2)) e-5)) ext-0))))))))
(define Error-Idris-display (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Error-Idris-perror arg-0 arg-1 arg-2) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (f) (Strings-Prelude-C-43C-43 (FC-Core-show_Show__FC f) ":"))) (Core-Core-getErrorLoc arg-2)) e-5)) ext-0))))))))
(define Resugar-Idris-case--15578-19808 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0))) (else (Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--15578-19730-cleanNode arg-0 arg-1 eta-0)) arg-0))))))
(define Resugar-Idris-case--15582-19734 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-0)) eta-0)))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-4)) eta-0)))) ((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--15578-19729-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))
(define Resugar-Idris-case--13996-19645 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 8 arg-3 arg-2 e-2 e-6 e-10 e-11))) eta-0)))))))))))))
(define Resugar-Idris-case--13990-19472 (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-15 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-11) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Resugar-Idris-n--13990-19402-mapPiInfo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5)))) eta-0)))))))))))))))))))))))
(define Resugar-Idris-case--14955-19232 (lambda (arg-0 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--13972-19181 (lambda (arg-0 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-15 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Resugar-Idris-toPTerm arg-5 arg-4 (Resugar-Idris-appPrec) arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Resugar-Idris-showFullEnv arg-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--13969-19092 (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--13966-18988 (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 54 "Can't resugar log or pragma") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 16 arg-1 e-2)) eta-0))))))))
(define Resugar-Idris-case--13966-18844 (lambda (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--14311-18635 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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 38 arg-16 arg-15 arg-12 arg-14)) (else arg-17)))))
(define Resugar-Idris-case--13966-18559 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 arg-5)) eta-0)))))))
(define Resugar-Idris-case--13966-18488 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 arg-5)) eta-0)))))))
(define Resugar-Idris-case--13966-18424 (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--13966-18350 (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-15 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-appPrec) arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--13930-18275 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-0)))) eta-0)))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-1 e-2))) eta-0)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-1 (vector 1 e-4)))) eta-0)))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-1 e-7)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-1 arg-0))) eta-0)))))))
(define Resugar-Idris-case--13592-18222 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 "Nil") (Prelude-pure_Applicative__Maybe 'erased (vector 34 arg-1 (vector 0 )))) ((equal? sc0 "Unit") (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-1))) ((equal? sc0 "MkUnit") (Prelude-pure_Applicative__Maybe 'erased (vector 37 arg-1)))(else (vector 0 ))))))
(define Resugar-Idris-case--13607-18120 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((34) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Prelude-pure_Applicative__Maybe 'erased (vector 34 e-0 (vector 1 (Resugar-Idris-unbracketApp arg-3) e-1))))))(else (vector 0 ))))))
(define Resugar-Idris-case--13607-18017 (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 36 arg-5 e-3 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket e-5))))))(else (vector 0 ))))))
(define Resugar-Idris-case--13592-17969 (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 35 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "MkPair") (Prelude-pure_Applicative__Maybe 'erased (vector 35 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "DPair") (Resugar-Idris-case--13607-18017 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 29 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "===") (Prelude-pure_Applicative__Maybe 'erased (vector 29 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "~=~") (Prelude-pure_Applicative__Maybe 'erased (vector 29 arg-5 (Resugar-Idris-unbracket arg-3) (Resugar-Idris-unbracket arg-4)))) ((equal? sc0 "::") (Resugar-Idris-case--13607-18120 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--13530-17903 (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 )))))) ((30) (let ((e-8 (vector-ref sc0 2))) (Resugar-Idris-extractNat arg-1 e-8)))(else (vector 0 ))))))
(define Resugar-Idris-case--13439-17839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-addBracket (FC-Core-emptyFC) arg-4)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define Resugar-Idris-case--13374-17816 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 30 arg-1 arg-0)) (else arg-0)))))
(define Resugar-Idris-case--13291-17714 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 25 arg-5 arg-2 (Resugar-Idris-unbracketApp arg-3) (Resugar-Idris-unbracketApp arg-4))) eta-0)))))))
(define Resugar-Idris-n--13374-17766-needed (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((30) 1) ((0) 1) ((35) 1) ((36) 1) ((37) 1) ((39) 1) ((34) 1) ((14) 1)(else 0)))))
(define Resugar-Idris-n--13966-18601-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--14311-18635 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--13990-19402-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-6 arg-5 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))))))
(define Resugar-Idris-n--15578-19730-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 0 e-0 eta-2)) eta-1)) (Resugar-Idris-n--15578-19729-cleanName arg-0 arg-1 e-1) eta-0))))) ((25) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (op) (vector 25 e-2 op e-4 e-5)) eta-1)) (Resugar-Idris-n--15578-19729-cleanName arg-0 arg-1 e-3) eta-0))))))) ((26) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (op) (vector 26 e-6 op e-8)) eta-1)) (Resugar-Idris-n--15578-19729-cleanName arg-0 arg-1 e-7) eta-0)))))) ((27) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (op) (vector 27 e-9 op e-11)) eta-1)) (Resugar-Idris-n--15578-19729-cleanName arg-0 arg-1 e-10) eta-0)))))) ((28) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 28 e-12 e-13 eta-2)) eta-1)) (Resugar-Idris-n--15578-19729-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))))))
(define Resugar-Idris-n--15578-19729-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-0)) eta-0)))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-4)) eta-0)))) ((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--15578-19729-cleanName arg-0 arg-1 e-9)))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (Context-Core-prettyName arg-1 arg-2) eta-0)))))))(else (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (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) ((30) (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) ((30) (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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-5)) eta-0)))))))))))))
(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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-8 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) fn) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-18 (Resugar-Idris-showFullEnv arg-0 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) arg-2) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Resugar-Idris-mkApp arg-0 arg-1 e-5 arg-3) eta-0))))))))))))
(define Resugar-Idris-toPTerm (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Resugar-Idris-toPRef e-0 e-1)))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-15 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((sc3 e-8)) (cond ((equal? sc3 0) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-17 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-tyPrec) (vector 1 e-2 e-3 (vector 0 ) e-5 e-9 e-10) eta-0)))))))))))) (else ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-7) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-appPrec) e-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-7) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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-15 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-tyPrec) e-12) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 e-8)) eta-0)))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-13) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((sc2 e-5)) (cond ((equal? sc2 0) ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-17) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 e-14)) eta-0)))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-18) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-19) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-21) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-23) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Resugar-Idris-bracket arg-1 arg-2 (Resugar-Idris-startPrec) (Resugar-Idris-n--13966-18601-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-25) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-26) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFieldUpdate arg-0 arg-1 eta-1)) e-33) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-34) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-37) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-40) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-44) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-45 e-46)) eta-0))))) ((12) (let ((e-47 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 e-47)) 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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-51) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-52) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 40 e-50 e-5 e-6)) eta-0)))))))))))))))) ((14) (let ((e-54 (vector-ref sc0 2))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-54))) ((26) (let ((e-55 (vector-ref sc0 1))) (let ((e-56 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 14 e-55 e-56)) eta-0))))) ((28) (let ((e-57 (vector-ref sc0 1))) (let ((e-58 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-57 1 e-58)) eta-0))))) ((27) (let ((e-59 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 e-59)) eta-0)))) ((16) (let ((e-60 (vector-ref sc0 1))) (let ((e-61 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-60 (vector 1 e-61))) eta-0))))) ((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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-68) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 e-65 e-67 e-5)) eta-0))))))))))) ((18) (let ((e-69 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-71) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-69 e-5)) eta-0)))))))))) ((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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-74) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-72 e-73 e-5)) eta-0))))))))))) ((20) (let ((e-75 (vector-ref sc0 1))) (let ((e-76 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-76) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-75 e-5)) eta-0)))))))))) ((21) (let ((e-77 (vector-ref sc0 1))) (let ((e-78 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-78) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-77 e-5)) eta-0)))))))))) ((22) (let ((e-79 (vector-ref sc0 1))) (let ((e-80 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-80) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 15 e-79 e-5)) eta-0)))))))))) ((23) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPDecl arg-0 arg-1 e-82) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't resugar log or pragma") eta-0)) (else (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 16 e-81 e-2)) eta-0)))))))))))))) ((24) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-84) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-83 e-5)) eta-0)))))))))) ((25) (let ((e-85 (vector-ref sc0 1))) (let ((e-86 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-argPrec) e-86) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-85 e-5)) eta-0)))))))))) ((29) (let ((e-89 (vector-ref sc0 3))) (Resugar-Idris-toPTerm arg-0 arg-1 arg-2 e-89))) ((30) (let ((e-90 (vector-ref sc0 1))) (let ((e-91 (vector-ref sc0 2))) (let ((sc1 e-91)) (cond ((equal? sc1 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 e-90)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 24 e-90)) eta-0)))))))) (else (let ((e-92 (vector-ref sc0 1))) (let ((e-93 (vector-ref sc0 2))) (let ((e-94 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 46 e-92 e-93 eta-2)) eta-1)) (Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-94) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-0)))) eta-0)))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-0 e-2))) eta-0)))) ((4) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-0 (vector 1 e-4)))) eta-0)))) ((6) (let ((e-7 (vector-ref sc0 2))) (Resugar-Idris-toPRef arg-0 e-7)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Resugar-Idris-sugarApp (vector 0 arg-0 arg-1))) eta-0)))))))
(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-15 ((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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-11) eta-1))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-1))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-16 ((Resugar-Idris-n--13990-19402-mapPiInfo e-4 e-3 e-2 e-1 e-0 arg-1 arg-0 e-10) eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-1))) (else (let ((e-12 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (vector 0 e-8 (vector 0 e-12 e-9)))) eta-1)))))))))))))))))))))) e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPField arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 (vector 0 e-5 (vector 0 (vector 1 e-3) e-6)))) eta-0))))))))))))))))))))
(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-2)) eta-0)))))))
(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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5)) eta-0)))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-5)) eta-0))))))))))))))
(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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-6 e-3 e-5)) eta-0))))))))))))))))))))
(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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPFnOpt arg-0 arg-1 eta-1)) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTypeDecl arg-0 arg-1 e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-0 e-1 e-2 e-5 e-6))) 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-15 ((Resugar-Idris-toPData arg-0 arg-1 e-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-5 e-6 e-8))) eta-0))))))))))) ((2) (let ((e-8 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-8 e-5))) 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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-13) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) (Builtin-snd 'erased 'erased ntm)) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased ntm) e-6)) eta-1)))))))) e-12) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 3 e-11 e-6 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))) 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-15 ((Resugar-Idris-toPRecord arg-0 arg-1 e-17) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 8 e-14 e-16 e-2 e-6 e-10 e-11))) 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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPDecl arg-0 arg-1 eta-1)) e-20) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 11 e-18 e-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5)))) 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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-23) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-24) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 12 e-21 (Name-Core-show_Show__Name e-22) e-5 e-6))) eta-0))))))))))))))))) ((7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPTypeDecl arg-0 arg-1 eta-1)) e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-5 e-3 e-6)) 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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-8)) eta-0)))))))))))))))
(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-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5 e-6 (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-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-16 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Resugar-Idris-toPClause arg-0 arg-1 eta-1)) e-6) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-3 e-7 e-8 e-9)) eta-0)))))))))))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 (Resugar-Idris-startPrec) e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-7 e-5)) eta-0))))))))))))))
(define Resugar-Idris-toCleanPTerm (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((Resugar-Idris-toPTerm arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--13592-17969 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--13592-18222 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--13592-18222 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--13592-18222 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--13592-18222 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--13592-18222 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--13592-18222 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-15 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))))))))
(define Resugar-Idris-showFullEnv (lambda (arg-0 ext-0) (let ((act-15 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))) ext-0))))))))
(define Resugar-Idris-resugarNoPatvars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (Unelab-TTImp-unelabNoPatvars arg-0 arg-1 arg-3 arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 ((Unelab-TTImp-unelab arg-0 arg-1 arg-3 arg-4) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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--13291-17714 e-3 e-6 e-7 e-5 e-2 e-0 tm arg-0 e-8 (StringMap-Data-lookup 'erased (Name-Core-nameRoot e-7) (let ((sc4 e-8)) (let ((e-14 (vector-ref sc4 1))) e-14)))) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) 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)) (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-15 (Resugar-Idris-showImplicits arg-0 eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (Context-Core-getPPrint arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))) ext-0))))))))
(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 )))))) ((30) (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-15 (Resugar-Idris-fullNamespace arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) ext-0)) (else ((Syntax-Idris-mapPTermM (lambda (eta-0) (Resugar-Idris-n--15578-19730-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-15 ((Resugar-Idris-mkOp arg-0 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Resugar-Idris-case--13439-17839 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--13374-17816 arg-1 arg-0 (Resugar-Idris-n--13374-17766-needed arg-1 arg-0 arg-1))))
(define Parser-Idris-case--23772-26969 (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--23717-26927 (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--22581-25734 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (Core-Parser-Text-fatalError 'erased 'erased 'erased "Unrecognised option")))))))
(define Parser-Idris-case--13036-25234 (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--22051-25187 (lambda (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--22018-25126 (lambda (arg-0 arg-1 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--22051-25187 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--13036-25092-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6))))))))
(define Parser-Idris-case--13035-25003 (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--20996-24269 (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--20996-24227 (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--20815-23858 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Parser-Idris-case--18660-21429 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--18658-21414-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
(define Parser-Idris-case--18164-20910 (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) arg-2 (vector 20 arg-1) (Parser-Idris-mkDataConType arg-5 arg-4 arg-3))) (else (vector 1 arg-5 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--13534-19784 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "Not a pattern variable"))))))
(define Parser-Idris-case--13522-18931 (lambda (arg-0 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--13512-18151 (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--13505-17363 (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 43 (vector 0 arg-1 arg-2 arg-5) arg-3 arg-4))))))
(define Parser-Idris-case--13498-16576 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-0)) (lambda (_-16593) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-16601) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-opExpr arg-2 arg-1 arg-0)) (lambda () (lambda (r) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 25 (vector 0 arg-1 arg-3 end) (vector 1 "=") arg-4 r))))))))))))) (else (Core-Parser-Text-fail 'erased 'erased 'erased "= not allowed"))))))
(define Parser-Idris-case--13765-16174 (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--13495-16131 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-0)) (lambda (_-16144) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "|")) (lambda () (lambda (_-16152) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 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) (Core-Parser-Text-pure 'erased 'erased (vector 2 arg)))))))))))) (else (lambda () (Core-Parser-Text-fail 'erased 'erased 'erased "| not allowed here")))))))
(define Parser-Idris-case--13495-16104 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((19) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 19 e-0 0 e-2))))))(else (Core-Parser-Text-pure 'erased 'erased (vector 0 arg-4)))))))
(define Parser-Idris-case--13066-15341 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
(define Parser-Idris-n--13036-25092-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--22018-25126 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2)))))))))
(define Parser-Idris-n--13497-16362-singleName (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 1 n (vector 0 ))))))))
(define Parser-Idris-n--13530-19546-recFieldCompat (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-124C-124 0 (lambda () 0)) (Source-Rule-Parser-recField) (lambda () (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 0 0 (Source-Rule-Parser-symbol "->") (Source-Rule-Parser-name))))))
(define Parser-Idris-n--17896-20767-parseWithArg (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "|")) (lambda () (lambda (_-20785) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-0)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-1 start end) tm))))))))))))))
(define Parser-Idris-n--23504-26680-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-26687) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26694) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init))) (lambda () (lambda (tm) (Core-Parser-Text-pure 'erased 'erased ((arg-1 tm) n))))))))))))))))
(define Parser-Idris-n--23457-26626-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-26633) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26640) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-intLit)) (lambda () (lambda (i) (Core-Parser-Text-pure 'erased 'erased (arg-1 (Prelude-fromInteger_Num__Nat i))))))))))))))
(define Parser-Idris-n--23414-26578-parse (lambda (arg-0 arg-1 arg-2 arg-3) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-26585) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-3)) (lambda () (lambda (_-26592) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-setOption arg-1)) (lambda () (lambda (opt) (Core-Parser-Text-pure 'erased 'erased (arg-2 opt)))))))))))))
(define Parser-Idris-n--23370-26527-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-26534) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26541) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init))) (lambda () (lambda (tm) (Core-Parser-Text-pure 'erased 'erased (arg-1 tm)))))))))))))
(define Parser-Idris-n--23326-26477-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-26484) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26491) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (arg-1 n)))))))))))))
(define Parser-Idris-n--23290-26436-parse (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-26443) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-runParseCmd arg-2)) (lambda () (lambda (_-26450) (Core-Parser-Text-pure 'erased 'erased arg-1)))))))))
(define Parser-Idris-n--23504-26679-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--23457-26625-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--23414-26577-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3)))
(define Parser-Idris-n--23370-26526-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--23326-26476-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--23290-26435-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--13497-16363-nameList (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "[")) (lambda () (lambda (_-16388) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16396) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-16416) (Core-Parser-Text-pure 'erased 'erased ns))))))))))))))
(define Parser-Idris-n--13539-20363-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--13539-20363-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3))))))))))))
(define Parser-Idris-n--13504-17158-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 37 (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 35 (vector 0 arg-3 e-6 arg-4) e-7 (Parser-Idris-n--13504-17158-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))))))
(define Parser-Idris-n--13036-25093-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--13530-19545-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--20812-23826-fieldBody (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-multiplicity)) (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-getMult m)) (lambda (rigin) (let ((rig (Parser-Idris-case--20815-23858 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-621) (lambda (arg-622) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-623 arg-624))))) rigin)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-23907) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-0)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (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--18658-21414-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--18660-21429 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2)))))))))
(define Parser-Idris-n--21299-24327-ctor (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "constructor")) (lambda () (lambda (_-24334) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-24348) (Core-Parser-Text-pure 'erased 'erased n)))))))))))
(define Parser-Idris-n--13511-17976-binderName (lambda (arg-0 arg-1 arg-2) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-unqualifiedName) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "_")) (lambda () (lambda (_-17988) (Core-Parser-Text-pure 'erased 'erased "_"))))))))
(define Parser-Idris-n--13519-18647-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--13519-18647-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
(define Parser-Idris-n--13494-15908-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--13494-15908-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--13494-15908-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--13494-15908-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--17896-20766-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--17896-20766-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) "<number>") ((4) "<option>") (else "<filename>")))))
(define Parser-Idris-with_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "with")) (lambda () (lambda (_-16442) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16450) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-n--13497-16362-singleName arg-1 arg-0) (lambda () (Parser-Idris-n--13497-16363-nameList arg-1 arg-0)))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (rhs) (Core-Parser-Text-pure 'erased 'erased (vector 46 (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-whereBlock (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-15690) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))
(define Parser-Idris-visibility (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (Parser-Idris-visOption) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))
(define Parser-Idris-visOption (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "public")) (lambda () (lambda (_-20505) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "export")) (lambda () (lambda (_-20512) (Core-Parser-Text-pure 'erased 'erased (vector 2 )))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "export")) (lambda () (lambda (_-20494) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "private")) (lambda () (lambda (_-20483) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))))))))))
(define Parser-Idris-visOpt (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-visOption)) (lambda () (lambda (vis) (Core-Parser-Text-pure 'erased 'erased (vector 0 vis))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-fnOpt)) (lambda () (lambda (tot) (Core-Parser-Text-pure 'erased 'erased (vector 1 tot))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-fnDirectOpt arg-0)) (lambda () (lambda (opt) (Core-Parser-Text-pure 'erased 'erased (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--13534-19784 e-0 (Parser-Idris-lowerFirst e-0))))(else (Core-Parser-Text-fail 'erased 'erased 'erased "Not a pattern variable"))))))
(define Parser-Idris-usingDecls (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "using")) (lambda () (lambda (_-22570) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-22578) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-22586) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-22621) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 1 x))))))))))) (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (ty) (Core-Parser-Text-pure 'erased 'erased (vector 0 n ty))))))))) (lambda (us) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-22655) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda () (lambda (ds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 4 (vector 0 arg-0 start end) us (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds))))))))))))))))))))))))))
(define Parser-Idris-typeExpr (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-opExpr arg-0 arg-1 arg-2)) (lambda () (lambda (arg) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-2)) (lambda (_-20408) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-some 'erased 'erased (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-bindSymbol)) (lambda () (lambda (exp) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-opExpr (Parser-Idris-pdef) arg-1 arg-2)) (lambda () (lambda (op) (Core-Parser-Text-pure 'erased 'erased (vector 0 exp op)))))))))) (lambda () (lambda (rest) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-n--13539-20363-mkPi arg-2 arg-1 arg-0 start end arg rest))))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased arg))))))))))
(define Parser-Idris-tyDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-20549) (Core-Parser-Text-mustWork 'erased 'erased 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-20573) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) n ty))))))))))))))))))))
(define Parser-Idris-tuple (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-some 'erased 'erased (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ",")) (lambda () (lambda (_-17246) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (estart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (el) (Core-Parser-Text-pure 'erased 'erased (vector 0 estart el)))))))))))) (lambda () (lambda (rest) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-continueWith arg-2 ")")) (lambda () (lambda (_-17219) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 35 (vector 0 arg-0 arg-1 end) arg-3 (Parser-Idris-n--13504-17158-mergePairs arg-3 arg-2 arg-1 arg-0 end rest))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-continueWith arg-2 ")")) (lambda () (lambda (_-17191) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 30 (vector 0 arg-0 arg-1 end) arg-3)))))))))))
(define Parser-Idris-transformDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "transform")) (lambda () (lambda (_-22309) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-strLit)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1)) (lambda () (lambda (lhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-22329) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1)) (lambda () (lambda (rhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 12 (vector 0 arg-0 start end) n lhs rhs)))))))))))))))))))))))
(define Parser-Idris-totalityOpt (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "partial")) (lambda () (lambda (_-21535) (Core-Parser-Text-pure 'erased 'erased (vector 2 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "total")) (lambda () (lambda (_-21523) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "covering")) (lambda () (lambda (_-21512) (Core-Parser-Text-pure 'erased 'erased (vector 1 )))))))))))
(define Parser-Idris-topDecl (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-dataDecl arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-claim arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-definition arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))))))) (Parser-Idris-fixDecl arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-ifaceDecl arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-implDecl arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-recordDecl arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-namespaceDecl arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-mutualDecls arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-paramDecls arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-usingDecls arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-transformDecl arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-directiveDecl arg-0 arg-1)) (lambda () (lambda (d) (Core-Parser-Text-pure 'erased 'erased (vector 1 d (vector 0 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Core-Parser-Text-terminal 'erased 'erased "Expected CG directive" (lambda (x) (Parser-Idris-case--13035-25003 arg-1 arg-0 start x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))) (lambda () (lambda (dstr) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (let ((cgrest (Strings-Data-span (lambda (eta-0) (Prelude-isAlphaNum eta-0)) dstr))) (vector 13 (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 () (Core-Parser-Text-fatalError 'erased 'erased 'erased "Couldn't parse declaration")))))))))))))))))))))))))))))))
(define Parser-Idris-stripBraces (lambda (arg-0) (Prelude-pack (Parser-Idris-n--18658-21414-drop arg-0 #\{ (List-Data-reverse 'erased (Parser-Idris-n--18658-21414-drop arg-0 #\} (List-Data-reverse 'erased (Prelude-unpack arg-0))))))))
(define Parser-Idris-simplerExpr (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "@")) (lambda () (lambda (_-17803) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17811) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (expr) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 21 (vector 0 arg-0 start end) (vector 1 x) expr))))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))) (Parser-Idris-atom arg-0) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))) (Parser-Idris-binder arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))) (Parser-Idris-rewrite_ arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))) (Parser-Idris-record_ arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ".(")) (lambda () (lambda (_-17736) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-17744) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-17758) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 22 (vector 0 arg-0 start end) e))))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "`(")) (lambda () (lambda (_-17686) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-17700) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 15 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "~")) (lambda () (lambda (_-17646) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 17 (vector 0 arg-0 start end) e)))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-17626) (Parser-Idris-bracketedExpr arg-0 start arg-1)))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "[")) (lambda () (lambda (_-17606) (Parser-Idris-listExpr arg-0 start arg-1)))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-17566) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 32 (vector 0 arg-0 start end) e)))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "[|")) (lambda () (lambda (_-17516) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "|]")) (lambda () (lambda (_-17530) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 33 (vector 0 arg-0 start end) e))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "logging")) (lambda () (lambda (_-17467) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (lvl) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 45 (vector 0 arg-0 start end) lvl e)))))))))))))))))))))))))))))))))))))))))
(define Parser-Idris-simpleExpr (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-recField))) (lambda () (lambda (recFields) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 44 (vector 0 arg-0 start end) recFields))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simplerExpr arg-0 arg-1)) (lambda () (lambda (root) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-many 'erased 'erased (Source-Rule-Parser-recField))) (lambda (recFields) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (let ((sc0 recFields)) (case (vector-ref sc0 0) ((0) root)(else (vector 43 (vector 0 arg-0 start end) root recFields))))))))))))))))))
(define Parser-Idris-simpleData (lambda (arg-0 arg-1 arg-2 arg-3) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Source-Rule-Parser-name))) (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (tyend) (let ((tyfc (vector 0 arg-0 arg-1 tyend))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-21037) (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol "|") (Parser-Idris-simpleCon arg-0 conRetTy arg-3))) (lambda () (lambda (cons) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 arg-1 end) arg-2 (Parser-Idris-mkTyConType tyfc params) (vector 0 ) cons))))))))))))))))))
(define Parser-Idris-simpleCon (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (cname) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr (Parser-Idris-plhs) arg-0 arg-2))) (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-20984) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (let ((cfc (vector 0 arg-0 start end))) (vector 0 cfc cname (Parser-Idris-mkDataConType cfc arg-1 params)))))))))))))))))
(define Parser-Idris-setVarOption (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "eval")) (lambda () (lambda (_-25666) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-parseMode)) (lambda () (lambda (mode) (Core-Parser-Text-pure 'erased 'erased (vector 3 mode)))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "editor")) (lambda () (lambda (_-25648) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (e) (Core-Parser-Text-pure 'erased 'erased (vector 4 e)))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "cg")) (lambda () (lambda (_-25630) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (c) (Core-Parser-Text-pure 'erased 'erased (vector 5 c))))))))))))))
(define Parser-Idris-setOption (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "showimplicits")) (lambda () (lambda (_-25727) (Core-Parser-Text-pure 'erased 'erased (vector 0 arg-0))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "shownamespace")) (lambda () (lambda (_-25716) (Core-Parser-Text-pure 'erased 'erased (vector 1 arg-0))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "showtypes")) (lambda () (lambda (_-25705) (Core-Parser-Text-pure 'erased 'erased (vector 2 arg-0))))) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (lambda () (Parser-Idris-setVarOption))) (else (lambda () (Core-Parser-Text-fatalError 'erased 'erased 'erased "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-rewrite_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "rewrite")) (lambda () (lambda (_-19684) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (rule) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-commitKeyword arg-1 "in")) (lambda () (lambda (_-19697) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 40 (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) (Core-Parser-Text-fail 'erased 'erased 'erased "Unrecognised command")) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-exactIdent e-2) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-symbol e-2) (lambda () (Parser-Idris-replCmd e-3))))))))))))
(define Parser-Idris-record_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "record")) (lambda () (lambda (_-19482) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-19490) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19498) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-field arg-0 arg-1))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-19517) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 6 (vector 0 arg-0 start end) fs))))))))))))))))))))))
(define Parser-Idris-recordParam (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-24184) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-pibindListName arg-0 start arg-1)) (lambda () (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-24205) (Core-Parser-Text-pure 'erased '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))) (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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-24076) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-24084) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 1)) (Core-Parser-Text-C-60C-42 'erased 'erased 'erased 1 0 (Core-Parser-Text-pure 'erased 'erased (vector 2 )) (Source-Rule-Parser-keyword "auto")) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "default")) (lambda () (lambda (_-24114) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (t) (Core-Parser-Text-pure 'erased 'erased (vector 3 t)))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))) (lambda (info) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-pibindListName arg-0 start arg-1)) (lambda () (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-24159) (Core-Parser-Text-pure 'erased '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))) (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 () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 n (vector 0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 0 (vector 1 ) (vector 24 (vector 0 arg-0 start end))))) (vector 0 ))))))))))))))))
(define Parser-Idris-recordDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-visibility)) (lambda (vis) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "record")) (lambda () (lambda (_-24383) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-24406) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockWithOptHeaderAfter 'erased 'erased col (lambda (eta-0) (Parser-Idris-n--21299-24327-ctor arg-1 arg-0 eta-0)) (lambda (eta-0) (Parser-Idris-fieldDecl arg-0 eta-0)))) (lambda (dcflds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) (Builtin-snd 'erased 'erased dcflds))))))))))))))))))))))))))))
(define Parser-Idris-progHdr (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "module")) (lambda () (lambda (_-25472) (Source-Rule-Parser-namespacedIdent)))))) (lambda (nspace) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0)))) (lambda (imports) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) nspace imports (vector 0 )))))))))))))
(define Parser-Idris-prog (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased 0 (vector 1 "Main" (vector 0 )) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "module")) (lambda () (lambda (_-25387) (Source-Rule-Parser-namespacedIdent)))))) (lambda (nspace) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-import_ arg-0 eta-0)))) (lambda (imports) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) nspace imports (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-n--13511-17976-binderName arg-2 arg-1 arg-0))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-18084) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-18097) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-getMult rigc)) (lambda (rig) (Core-Parser-Text-pure 'erased 'erased (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 ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-n--13511-17976-binderName arg-2 arg-1 arg-0)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-18026) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-getMult rigc)) (lambda (rig) (Core-Parser-Text-pure 'erased 'erased (vector 0 rig (vector 0 (vector 1 n) ty)))))))))))))))))))))
(define Parser-Idris-pibindList (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-pibindListName arg-0 arg-1 arg-2)) (lambda () (lambda (params) (Core-Parser-Text-pure 'erased '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))) (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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "|")) (lambda () (lambda (_-20158) (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 1 eta-0)) "Check the type of an expression") (vector 1 (Parser-Idris-nameArgCmd (vector 0 (vector 1 "printdef" (vector 0 ))) (lambda (eta-0) (vector 2 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 9 eta-0)) "Search for values by type") (vector 1 (Parser-Idris-nameArgCmd (vector 2 "di") (lambda (eta-0) (vector 10 eta-0)) "Show debugging information for a name") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "q" (vector 1 "quit" (vector 1 "exit" (vector 0 ))))) (vector 21 ) "Exit the Idris system") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "cwd" (vector 0 ))) (vector 14 ) "Displays the current working directory") (vector 1 (Parser-Idris-optArgCmd (vector 2 "set") (lambda (eta-0) (vector 11 eta-0)) 0 "Set an option") (vector 1 (Parser-Idris-optArgCmd (vector 2 "unset") (lambda (eta-0) (vector 11 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 6 eta-0 eta-1))) "Compile to an executable") (vector 1 (Parser-Idris-exprArgCmd (vector 2 "exec") (lambda (eta-0) (vector 7 eta-0)) "Compile to an executable and run") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "r" (vector 1 "reload" (vector 0 )))) (vector 3 ) "Reload current file") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "e" (vector 1 "edit" (vector 0 )))) (vector 5 ) "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 15 eta-0)) "Show missing clauses") (vector 1 (Parser-Idris-nameArgCmd (vector 1 "total") (lambda (eta-0) (vector 16 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 17 eta-0)) "Set logging level") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "m" (vector 1 "metavars" (vector 0 )))) (vector 18 ) "Show remaining proof obligations (metavariables or holes)") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "version" (vector 0 ))) (vector 20 ) "Display the Idris version") (vector 1 (Parser-Idris-noArgCmd (vector 0 (vector 1 "?" (vector 1 "h" (vector 1 "help" (vector 0 ))))) (vector 8 ) "Display this help text") (vector 0 )))))))))))))))))))))
(define Parser-Idris-parseRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-20707) (Core-Parser-Text-mustWork 'erased 'erased 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-4)) (lambda () (lambda (rhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Parser-Idris-whereBlock arg-1 arg-3))) (lambda (ws) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-4)) (lambda (_-20735) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-1 arg-2 end) arg-5 rhs ws))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "with")) (lambda () (lambda (_-20649) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (wstart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-20664) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-bracketedExpr arg-1 wstart arg-4)) (lambda () (lambda (wval) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-clause (+ 1 arg-0) arg-1 eta-0)))) (lambda () (lambda (ws) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 arg-1 arg-2 end) arg-5 wval ws)))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "impossible")) (lambda () (lambda (_-20619) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-4)) (lambda (_-20626) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 2 (vector 0 arg-1 arg-2 end) arg-5)))))))))))))))
(define Parser-Idris-parseMode (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "typecheck")) (lambda () (lambda (_-25606) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "tc")) (lambda () (lambda (_-25595) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "normalise")) (lambda () (lambda (_-25584) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "normalize")) (lambda () (lambda (_-25573) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "execute")) (lambda () (lambda (_-25562) (Core-Parser-Text-pure 'erased 'erased (vector 2 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "exec")) (lambda () (lambda (_-25551) (Core-Parser-Text-pure 'erased 'erased (vector 2 )))))))))))))))))
(define Parser-Idris-paramDecls (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "parameters")) (lambda () (lambda (_-22440) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-22448) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-22456) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-22481) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (ty) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 1 x) ty))))))))))))) (lambda (ps) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-22507) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda () (lambda (ds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 3 (vector 0 arg-0 start end) ps (Parser-Idris-collectDefs ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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--23414-26577-names arg-3 arg-2 arg-1 arg-0) (vector 0 (vector 4 ) (vector 0 arg-3 (Parser-Idris-n--23414-26578-parse arg-3 arg-2 arg-1 arg-0))))))
(define Parser-Idris-opExpr (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-appExpr arg-0 arg-1 arg-2)) (lambda () (lambda (l) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 1)) (Parser-Idris-case--13498-16576 arg-2 arg-1 arg-0 start l (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-2)) (lambda (_-16534) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-iOperator)) (lambda () (lambda (op) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (middle) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-opExpr arg-0 arg-1 arg-2)) (lambda () (lambda (r) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 25 (vector 0 arg-1 start end) op l r)))))))))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased l))))))))))))
(define Parser-Idris-onoff (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "on")) (lambda () (lambda (_-21477) (Core-Parser-Text-pure 'erased 'erased 0)))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "off")) (lambda () (lambda (_-21466) (Core-Parser-Text-pure 'erased 'erased 1))))))))
(define Parser-Idris-numberArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--23457-26625-names arg-2 arg-1 arg-0) (vector 0 (vector 3 ) (vector 0 arg-2 (Parser-Idris-n--23457-26626-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--23290-26435-names arg-2 arg-1 arg-0) (vector 0 (vector 0 ) (vector 0 arg-2 (Parser-Idris-n--23290-26436-parse arg-2 arg-1 arg-0))))))
(define Parser-Idris-namespaceHead (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "namespace")) (lambda () (lambda (_-22215) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-22223) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-namespacedIdent)) (lambda () (lambda (ns) (Core-Parser-Text-pure 'erased 'erased ns)))))))))))
(define Parser-Idris-namespaceDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-namespaceHead)) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda () (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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--23326-26476-names arg-2 arg-1 arg-0) (vector 0 (vector 1 ) (vector 0 arg-2 (Parser-Idris-n--23326-26477-parse arg-2 arg-1 arg-0))))))
(define Parser-Idris-mutualDecls (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "mutual")) (lambda () (lambda (_-22375) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-22383) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda () (lambda (ds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 9 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)))))))))))))))))
(define Parser-Idris-multiplicity (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-intLit)) (lambda () (lambda (c) (Core-Parser-Text-pure 'erased 'erased (vector 1 c))))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))
(define Parser-Idris-mkTyConType (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 20 arg-0)) (else (let ((e-3 (vector-ref sc0 2))) (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 1 ) (vector 0 ) (vector 20 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--18164-20910 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-5 (vector 1 e-9))))))(else (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) e-5 e-6 (Parser-Idris-mkDataConType arg-0 arg-1 e-3)))))))) (else (vector 23 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-17006) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (let ((fc (vector 0 arg-0 arg-1 end))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-getInitRange arg-3)) (lambda (rstate) (Core-Parser-Text-pure 'erased 'erased (vector 42 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (y) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-16968) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (let ((fc (vector 0 arg-0 arg-1 end))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-getInitRange arg-3)) (lambda (rstate) (Core-Parser-Text-pure 'erased 'erased (vector 41 fc (Builtin-fst 'erased 'erased rstate) (Builtin-snd 'erased 'erased rstate) y)))))))))))))))))
(define Parser-Idris-listExpr (lambda (arg-0 arg-1 arg-2) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-2)) (lambda () (lambda (ret) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "|")) (lambda () (lambda (_-17108) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-doAct arg-0 arg-2))) (lambda () (lambda (conds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-17127) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 39 (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) conds))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "..")) (lambda () (lambda (_-17091) (Parser-Idris-listRange arg-0 arg-1 arg-2 xs)))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-17068) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 34 (vector 0 arg-0 arg-1 end) xs)))))))))))))))
(define Parser-Idris-let_ (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-19105) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0)))) (lambda () (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-commitKeyword arg-1 "in")) (lambda () (lambda (_-19120) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-buildLets arg-0 res scope)))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-19029) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-19037) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-nonEmptyBlock 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda () (lambda (ds) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-commitKeyword arg-1 "in")) (lambda () (lambda (_-19052) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) ds)) scope))))))))))))))))))))))))
(define Parser-Idris-letBinder (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1)) (lambda () (lambda (pat) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (tyend) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 23 (vector 0 arg-0 start tyend)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-18775) (Parser-Idris-typeExpr (Parser-Idris-pnoeq (Parser-Idris-pdef)) arg-0 arg-1)))))) (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-18786) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1)) (lambda () (lambda (val) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0)))) (lambda (alts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-getMult rigc)) (lambda (rig) (Core-Parser-Text-pure 'erased 'erased (vector 0 start (vector 0 end (vector 0 rig (vector 0 pat (vector 0 ty (vector 0 val alts))))))))))))))))))))))))))))))))
(define Parser-Idris-lazy (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Lazy")) (lambda () (lambda (_-20308) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 10 (vector 0 arg-0 start end) (vector 1 ) tm)))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Inf")) (lambda () (lambda (_-20270) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 10 (vector 0 arg-0 start end) (vector 0 ) tm)))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Delay")) (lambda () (lambda (_-20232) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 11 (vector 0 arg-0 start end) tm)))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "Force")) (lambda () (lambda (_-20194) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 12 (vector 0 arg-0 start end) tm))))))))))))))))))))
(define Parser-Idris-lambdaCase (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 1) (Core-Parser-Text-C-42C-62 'erased 'erased 'erased 0 0 (Source-Rule-Parser-symbol "\\") (Source-Rule-Parser-keyword "case"))) (lambda () (lambda (_-19219) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (endCase) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Core-Parser-Text-commit 'erased)) (lambda (_-19234) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0)))) (lambda (alts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (let ((fc (vector 0 arg-0 start end))) (let ((fcCase (vector 0 arg-0 start endCase))) (let ((n (vector 2 "lcase" 0))) (vector 2 fcCase (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 fcCase n) (vector 24 fcCase) (vector 4 fc (vector 0 fcCase n) alts)))))))))))))))))))))
(define Parser-Idris-lam (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "\\")) (lambda () (lambda (_-18678) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-bindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-18692) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-mustContinue arg-1 (vector 0 ))) (lambda (_-18700) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-n--13519-18647-bindAll arg-1 arg-0 (vector 0 arg-0 start end) binders scope))))))))))))))))))))))
(define Parser-Idris-import_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "import")) (lambda () (lambda (_-25280) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased 0 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "public")) (lambda () (lambda (_-25297) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (reexp) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-namespacedIdent)) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased 0 ns (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "as")) (lambda () (lambda (_-25326) (Source-Rule-Parser-namespacedIdent)))))) (lambda (nsAs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-25344) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) reexp ns nsAs))))))))))))))))))))
(define Parser-Idris-implicitPi (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-18590) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-pibindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-18604) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-18612) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope)))))))))))))))))))))))
(define Parser-Idris-implicitArg (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-16263) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-16321) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16329) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-16343) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-16292) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 1 (vector 1 x)) (vector 0 (vector 0 arg-0 start end) (vector 1 x))))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "@{")) (lambda () (lambda (_-16210) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-16218) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-16232) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 ) tm)))))))))))))))))
(define Parser-Idris-implDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0))) (lambda (visOpts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (Source-Rule-Parser-keyword "implementation"))) (lambda (_-23624) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "[")) (lambda () (lambda (_-23642) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (iname) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-23657) (Core-Parser-Text-pure 'erased 'erased (vector 1 iname))))))))))))) (lambda (iname) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-implBinds arg-0 arg-1)) (lambda (impls) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-constraints arg-0 arg-1)) (lambda (cons) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-many 'erased 'erased (Parser-Idris-simpleExpr arg-0 arg-1))) (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "using")) (lambda () (lambda (_-23714) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name))) (lambda () (lambda (names) (Core-Parser-Text-pure 'erased 'erased names))))))))) (lambda (nusing) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-optional 'erased 'erased 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-23748) (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))))))) (lambda (body) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-23759) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) eta-0))) body)))))))))))))))))))))))))))))))))))
(define Parser-Idris-implBinds (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-23206) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-multiplicity)) (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-getMult m)) (lambda (rig) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-23234) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-23248) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-23256) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-implBinds arg-0 arg-1)) (lambda (more) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 n (vector 0 rig tm)) more)))))))))))))))))))))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))
(define Parser-Idris-ifaceParam (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-23344) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-23359) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-23373) (Core-Parser-Text-pure 'erased 'erased (vector 0 n tm))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 n (vector 24 (vector 0 arg-0 start end)))))))))))))))
(define Parser-Idris-ifaceDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-visibility)) (lambda (vis) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "interface")) (lambda () (lambda (_-23420) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-23428) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-constraints arg-0 arg-1)) (lambda (cons) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Parser-Idris-ifaceParam arg-0 arg-1))) (lambda (params) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (vector 0 ) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "|")) (lambda () (lambda (_-23467) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name))))))) (lambda (det) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-23484) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased 0 (vector 0 ) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "constructor")) (lambda () (lambda (_-23501) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n-0) (Core-Parser-Text-pure 'erased 'erased (vector 1 n-0)))))))))) (lambda (dc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockAfter 'erased col (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda (body) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 6 (vector 0 arg-0 start end) vis cons n 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) body)))))))))))))))))))))))))))))))))))
(define Parser-Idris-if_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "if")) (lambda () (lambda (_-19404) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-commitKeyword arg-1 "then")) (lambda () (lambda (_-19417) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (t) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-commitKeyword arg-1 "else")) (lambda () (lambda (_-19430) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19443) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 38 (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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Source-Rule-Parser-operator) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "`")) (lambda () (lambda (_-15771) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "`")) (lambda () (lambda (_-15786) (Core-Parser-Text-pure 'erased 'erased 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) (Core-Parser-Text-pure 'erased 'erased (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) (Core-Parser-Text-pure 'erased 'erased e-5)) ((1) (let ((e-15 (vector-ref sc1 1))) (let ((sc2 e-15)) (case (vector-ref sc2 0) ((0) (Core-Parser-Text-fatalError 'erased 'erased 'erased "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) (Core-Parser-Text-pure 'erased 'erased (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (Core-Parser-Text-pure 'erased 'erased (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))(else (Core-Parser-Text-fatalError 'erased 'erased 'erased "Invalid multiplicity (must be 0 or 1)")))))) ((0) (Core-Parser-Text-pure 'erased 'erased (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))(else (Core-Parser-Text-fatalError 'erased 'erased 'erased "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) (Core-Parser-Text-pure 'erased 'erased (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) (Core-Parser-Text-pure 'erased 'erased (vector 0 e-1 (vector 1 e-5))))(else (Core-Parser-Text-fatalError 'erased 'erased 'erased "Invalid list range syntax")))))))(else (Core-Parser-Text-fatalError 'erased 'erased 'erased "Invalid list range syntax")))))))(else (Core-Parser-Text-fatalError 'erased 'erased 'erased "Invalid list range syntax"))))))
(define Parser-Idris-gadtData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-21302) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-21310) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "forall")) (lambda () (lambda (_-18474) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18482) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (nstart) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 1 (vector 1 n)) (vector 23 nfc)))) ns))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ".")) (lambda () (lambda (_-18518) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 0 ) binders scope))))))))))))))))))))))))))))
(define Parser-Idris-fnOpt (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-totalityOpt)) (lambda () (lambda (x) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 7 x))))))))
(define Parser-Idris-fnDirectOpt (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "hint")) (lambda () (lambda (_-22924) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 2 0)))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "globalhint")) (lambda () (lambda (_-22911) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 3 1)))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "defaulthint")) (lambda () (lambda (_-22898) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 3 0)))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "inline")) (lambda () (lambda (_-22873) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Core-Parser-Text-commit 'erased)) (lambda (_-22881) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 )))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "tcinline")) (lambda () (lambda (_-22848) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Core-Parser-Text-commit 'erased)) (lambda (_-22856) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 1 )))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "extern")) (lambda () (lambda (_-22835) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 4 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "macro")) (lambda () (lambda (_-22821) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 8 )))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "spec")) (lambda () (lambda (_-22795) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-sepBy 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-name))) (lambda (ns) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 9 ns)))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "foreign")) (lambda () (lambda (_-22771) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 eta-0)))) (lambda (cs) (Core-Parser-Text-pure 'erased 'erased (vector 1 cs)))))))))))))))))))))))))
(define Parser-Idris-fixDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-fix)) (lambda () (lambda (fixity) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-24612) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (prec) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-iOperator))) (lambda () (lambda (ops) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "infixl")) (lambda () (lambda (_-22204) (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "infixr")) (lambda () (lambda (_-22193) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "infix")) (lambda () (lambda (_-22182) (Core-Parser-Text-pure 'erased 'erased (vector 2 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "prefix")) (lambda () (lambda (_-22171) (Core-Parser-Text-pure 'erased 'erased (vector 3 )))))))))))))
(define Parser-Idris-fieldDecl (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-23977) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-23985) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-n--20812-23826-fieldBody arg-1 arg-0 (vector 0 ))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-24001) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-24008) (Core-Parser-Text-pure 'erased 'erased fs)))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-n--20812-23826-fieldBody arg-1 arg-0 (vector 1 ))) (lambda () (lambda (fs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-23964) (Core-Parser-Text-pure 'erased 'erased fs))))))))))
(define Parser-Idris-field (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 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--13530-19545-fieldName arg-1 arg-0 eta-1)) eta-0)) (Core-Parser-Text-C-60C-42C-62 'erased 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 1 (Core-Parser-Text-C-60C-42C-62 'erased 'erased 'erased 1 0 (Core-Parser-Text-pure 'erased 'erased (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))) (Source-Rule-Parser-name)) (Parser-Text-many 'erased 'erased (Parser-Idris-n--13530-19546-recFieldCompat arg-1 arg-0))))) (lambda () (lambda (path) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 1)) (lambda () (Prelude-C-124C-124 0 (lambda () 1)))) 0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "=")) (lambda () (lambda (_-19621) (Core-Parser-Text-pure 'erased 'erased (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "$=")) (lambda () (lambda (_-19608) (Core-Parser-Text-pure 'erased 'erased (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1)))))))))) (lambda () (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-opExpr (Parser-Idris-plhs) arg-0 arg-1)) (lambda () (lambda (val) (Core-Parser-Text-pure 'erased 'erased ((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 () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "Borrowing")) (lambda () (lambda (_-21488) (Core-Parser-Text-pure 'erased 'erased (vector 0 )))))))
(define Parser-Idris-exprArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--23370-26526-names arg-2 arg-1 arg-0) (vector 0 (vector 2 ) (vector 0 arg-2 (Parser-Idris-n--23370-26527-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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-18226) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-pibindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-18240) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-bindSymbol)) (lambda () (lambda (exp) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-pibindAll (vector 0 arg-0 start end) exp binders scope)))))))))))))))))))))))
(define Parser-Idris-eval (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) "(interactive)" (Source-Rule-Parser-init))) (lambda () (lambda (tm) (Core-Parser-Text-pure 'erased 'erased (vector 0 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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "typeat" (vector 0 )))) (lambda () (lambda (_-26357) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 0 (Prelude-fromInteger_Num__Int line) (Prelude-fromInteger_Num__Int col) n)))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "cs" (vector 0 )))) (lambda () (lambda (_-26282) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-26300) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 1 upd (Prelude-fromInteger_Num__Int line) (Prelude-fromInteger_Num__Int col) n)))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "ac" (vector 0 )))) (lambda () (lambda (_-26219) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-26237) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 2 upd (Prelude-fromInteger_Num__Int line) n))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "ps" (vector 1 "proofsearch" (vector 0 ))))) (lambda () (lambda (_-26154) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-26172) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 3 upd (Prelude-fromInteger_Num__Int line) n (vector 0 ) 1))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "psall" (vector 0 )))) (lambda () (lambda (_-26086) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-26104) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 3 upd (Prelude-fromInteger_Num__Int line) n (vector 0 ) 0))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "gd" (vector 0 )))) (lambda () (lambda (_-26023) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-26041) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 4 upd (Prelude-fromInteger_Num__Int line) n))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "ml" (vector 1 "makelemma" (vector 0 ))))) (lambda () (lambda (_-25960) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-25978) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 5 upd (Prelude-fromInteger_Num__Int line) n))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "mc" (vector 1 "makecase" (vector 0 ))))) (lambda () (lambda (_-25894) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-25912) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 6 upd (Prelude-fromInteger_Num__Int line) n))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-replCmd (vector 1 "mw" (vector 1 "makewith" (vector 0 ))))) (lambda () (lambda (_-25828) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "!")) (lambda () (lambda (_-25846) (Core-Parser-Text-pure 'erased 'erased 0)))))) (lambda (upd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-intLit)) (lambda () (lambda (line) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-pure 'erased 'erased (vector 7 upd (Prelude-fromInteger_Num__Int line) n))))))))))))) (lambda () (Core-Parser-Text-fatalError 'erased 'erased 'erased "Unrecognised command")))))))))))))))))))))
(define Parser-Idris-dpair (lambda (arg-0 arg-1 arg-2) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-16714) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (loc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "**")) (lambda () (lambda (_-16735) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)))) (lambda () (lambda (rest) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 36 (vector 0 arg-0 arg-1 end) (vector 0 (vector 0 arg-0 arg-1 loc) (vector 1 x)) ty rest))))))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (l) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (loc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "**")) (lambda () (lambda (_-16667) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-dpair arg-0 loc arg-2) (lambda () (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)))) (lambda () (lambda (rest) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 36 (vector 0 arg-0 arg-1 end) l (vector 23 (vector 0 arg-0 arg-1 end)) rest)))))))))))))))))))
(define Parser-Idris-doBlock (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "do")) (lambda () (lambda (_-19738) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-doAct arg-0 eta-0)))) (lambda (actions) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 31 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) actions))))))))))))))
(define Parser-Idris-doAct (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-validPatternVar n)) (lambda (_-20073) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "<-")) (lambda () (lambda (_-20081) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (val) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-20094) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 1 (vector 0 arg-0 start end) n val) (vector 0 )))))))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-20029) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-letBinder arg-0 eta-0)))) (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-20043) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-buildDoLets arg-0 res))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "let")) (lambda () (lambda (_-19985) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-topDecl arg-0 eta-0)))) (lambda (res) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-20006) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 5 (vector 0 arg-0 start end) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) res)) (vector 0 )))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "rewrite")) (lambda () (lambda (_-19937) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (rule) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19950) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 6 (vector 0 arg-0 start end) rule) (vector 0 ))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-plhs) arg-0 arg-1)) (lambda () (lambda (e) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 (Prelude-C-124C-124 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19903) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 (vector 0 arg-0 start end) e) (vector 0 ))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "<-")) (lambda () (lambda (_-19853) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pnowith) arg-0 arg-1)) (lambda () (lambda (val) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-patAlt arg-0 eta-0)))) (lambda (alts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-19873) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 2 (vector 0 arg-0 start end) e val alts) (vector 0 ))))))))))))))))))))))))))))))))
(define Parser-Idris-directiveDecl (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-124C-124 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-directive arg-0 arg-1)) (lambda () (lambda (d) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 13 (vector 0 arg-0 start end) d))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "runElab")) (lambda () (lambda (_-24693) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-24713) (Core-Parser-Text-pure 'erased 'erased (vector 5 (vector 0 arg-0 start end) tm))))))))))))))))))
(define Parser-Idris-directive (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "hide")) (lambda () (lambda (_-22123) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-22137) (Core-Parser-Text-pure 'erased 'erased (vector 0 n)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "logging")) (lambda () (lambda (_-22090) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-intLit)) (lambda () (lambda (lvl) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-22104) (Core-Parser-Text-pure 'erased 'erased (vector 1 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "auto_lazy")) (lambda () (lambda (_-22062) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-onoff)) (lambda () (lambda (b) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-22075) (Core-Parser-Text-pure 'erased 'erased (vector 2 b)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "unbound_implicits")) (lambda () (lambda (_-22034) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-onoff)) (lambda () (lambda (b) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-22047) (Core-Parser-Text-pure 'erased 'erased (vector 3 b)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "undotted_record_projections")) (lambda () (lambda (_-22006) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-onoff)) (lambda () (lambda (b) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-22019) (Core-Parser-Text-pure 'erased 'erased (vector 16 b)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "ambiguity_depth")) (lambda () (lambda (_-21973) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-intLit)) (lambda () (lambda (lvl) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21987) (Core-Parser-Text-pure 'erased 'erased (vector 4 (Prelude-fromInteger_Num__Nat lvl))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "pair")) (lambda () (lambda (_-21925) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (f) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (s) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21953) (Core-Parser-Text-pure 'erased 'erased (vector 5 ty f s)))))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "rewrite")) (lambda () (lambda (_-21886) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (eq) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (rw) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21907) (Core-Parser-Text-pure 'erased 'erased (vector 6 eq rw))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "integerLit")) (lambda () (lambda (_-21856) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21870) (Core-Parser-Text-pure 'erased 'erased (vector 7 n)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "stringLit")) (lambda () (lambda (_-21826) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21840) (Core-Parser-Text-pure 'erased 'erased (vector 8 n)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "charLit")) (lambda () (lambda (_-21796) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21810) (Core-Parser-Text-pure 'erased 'erased (vector 9 n)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "name")) (lambda () (lambda (_-21754) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Source-Rule-Parser-unqualifiedName))) (lambda () (lambda (ns) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21779) (Core-Parser-Text-pure 'erased 'erased (vector 11 n ns))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "start")) (lambda () (lambda (_-21726) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21739) (Core-Parser-Text-pure 'erased 'erased (vector 12 e)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "allow_overloads")) (lambda () (lambda (_-21696) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21710) (Core-Parser-Text-pure 'erased 'erased (vector 13 n)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "language")) (lambda () (lambda (_-21668) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-extension)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21681) (Core-Parser-Text-pure 'erased 'erased (vector 14 e)))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-pragma "default")) (lambda () (lambda (_-21640) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-totalityOpt)) (lambda () (lambda (tot) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-1)) (lambda (_-21653) (Core-Parser-Text-pure 'erased 'erased (vector 15 tot))))))))))))))))))))))))))))))))))))))))))
(define Parser-Idris-definition (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-clause 0 arg-0 arg-1)) (lambda () (lambda (nd) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 arg-0 start end) (vector 1 nd (vector 0 )))))))))))))
(define Parser-Idris-defaultImplicitPi (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-18379) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "default")) (lambda () (lambda (_-18386) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18394) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-simpleExpr arg-0 arg-1)) (lambda () (lambda (t) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-pibindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-18414) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-18422) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 3 t) binders scope)))))))))))))))))))))))))))))))
(define Parser-Idris-dataOpt (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "noHints")) (lambda () (lambda (_-21171) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "uniqueSearch")) (lambda () (lambda (_-21160) (Core-Parser-Text-pure 'erased 'erased (vector 2 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-exactIdent "search")) (lambda () (lambda (_-21137) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Text-some 'erased 'erased (Source-Rule-Parser-name))) (lambda () (lambda (ns) (Core-Parser-Text-pure 'erased 'erased (vector 0 ns)))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "external")) (lambda () (lambda (_-21126) (Core-Parser-Text-pure 'erased 'erased (vector 3 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "noNewtype")) (lambda () (lambda (_-21115) (Core-Parser-Text-pure 'erased 'erased (vector 4 )))))))))))))))
(define Parser-Idris-dataDeclBody (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "data")) (lambda () (lambda (_-21346) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-visibility)) (lambda (vis) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-dataDeclBody arg-0 arg-1)) (lambda () (lambda (dat) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 2 (vector 0 arg-0 start end) vis dat)))))))))))))
(define Parser-Idris-dataBody (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 1 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEndIndent arg-4)) (lambda (_-21274) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 arg-0 arg-2 end) arg-3 arg-5)))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "where")) (lambda () (lambda (_-21195) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 0 ) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "[")) (lambda () (lambda (_-21213) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (Parser-Idris-dataOpt))) (lambda () (lambda (dopts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "]")) (lambda () (lambda (_-21232) (Core-Parser-Text-pure 'erased 'erased dopts)))))))))))) (lambda (opts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-blockAfter 'erased arg-1 (lambda (eta-0) (Parser-Idris-tyDecl arg-0 eta-0)))) (lambda (cs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 arg-2 end) arg-3 arg-5 opts cs)))))))))))))))
(define Parser-Idris-continueWith (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1))) (lambda (_-15757) (Source-Rule-Parser-symbol arg-1)))))
(define Parser-Idris-constraints (lambda (arg-0 arg-1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-appExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-23154) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-constraints arg-0 arg-1)) (lambda (more) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 (vector 0 ) tm) more)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 1 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-23079) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-name)) (lambda () (lambda (n) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-23094) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (tm) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-23108) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-23116) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-constraints arg-0 arg-1)) (lambda (more) (Core-Parser-Text-pure 'erased 'erased (vector 1 (vector 0 (vector 1 n) tm) more)))))))))))))))))))))) (lambda () (Core-Parser-Text-pure 'erased 'erased (vector 0 ))))))))
(define Parser-Idris-compileArgsCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--23504-26679-names arg-2 arg-1 arg-0) (vector 0 (vector 5 ) (vector 0 arg-2 (Parser-Idris-n--23504-26680-parse arg-2 arg-1 arg-0))))))
(define Parser-Idris-commitKeyword (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-mustContinue arg-0 (vector 1 arg-1))) (lambda (_-15724) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword arg-1)) (lambda () (lambda (_-15731) (Source-Rule-Parser-mustContinue arg-0 (vector 0 )))))))))
(define Parser-Idris-command (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-27063) (Core-Parser-Text-pure 'erased 'erased (vector 22 )))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ":?")) (lambda () (lambda (_-27051) (Core-Parser-Text-pure 'erased 'erased (vector 8 ))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-27031) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-editCmd)) (lambda () (lambda (cmd) (Core-Parser-Text-pure 'erased 'erased (vector 19 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--13036-25234 e-5 e-4 e-3 (Parser-Idris-n--13036-25092-spanMap e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-Idris-n--13036-25093-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) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" ))) (lambda (col) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-plhs) arg-1 arg-2)) (lambda () (lambda (lhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Parser-Idris-n--17896-20767-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 () (Core-Parser-Text-fatalError 'erased 'erased 'erased "Wrong number of 'with' arguments")) (lambda () (Parser-Idris-parseRHS arg-0 arg-1 start col arg-2 (Parser-Idris-n--17896-20766-applyArgs arg-2 arg-1 arg-0 lhs extra)))))))))))))))
(define Parser-Idris-claim (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Parser-Idris-visOpt arg-0))) (lambda (visOpts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 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))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-multiplicity)) (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-getMult m)) (lambda (rig) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-tyDecl arg-0 arg-1)) (lambda () (lambda (cl) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) rig vis opts cl))))))))))))))))))))
(define Parser-Idris-case_ (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "case")) (lambda () (lambda (_-19160) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scr) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-commitKeyword arg-1 "of")) (lambda () (lambda (_-19173) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-block 'erased (lambda (eta-0) (Parser-Idris-caseAlt arg-0 eta-0)))) (lambda (alts) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 4 (vector 0 arg-0 start end) scr alts)))))))))))))))))))
(define Parser-Idris-caseRHS (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-19348) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-mustContinue arg-2 (vector 0 ))) (lambda (_-19356) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (rhs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-19369) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 arg-1 end) arg-3 rhs (vector 0 ))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-keyword "impossible")) (lambda () (lambda (_-19317) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-atEnd arg-2)) (lambda (_-19324) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 2 (vector 0 arg-0 arg-1 end) arg-3)))))))))))))
(define Parser-Idris-caseAlt (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 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--13522-18931 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-iOperator)) (lambda () (lambda (op) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (e) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-continueWith arg-2 ")")) (lambda () (lambda (_-16860) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 27 (vector 0 arg-0 arg-1 end) op e))))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-continueWith arg-2 ")")) (lambda () (lambda (_-16827) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 37 (vector 0 arg-0 arg-1 end)))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-dpair arg-0 arg-1 arg-2)) (lambda () (lambda (p) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-16814) (Core-Parser-Text-pure 'erased 'erased p))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-expr (Parser-Idris-pdef) arg-0 arg-2)) (lambda () (lambda (e) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-iOperator)) (lambda () (lambda (op) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-16896) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 28 (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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-let_ arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-autoImplicitPi arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-defaultImplicitPi arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-forall_ arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-implicitPi arg-0 arg-1) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-explicitPi arg-0 arg-1) (lambda () (Parser-Idris-lam arg-0 arg-1)))))))))))))))
(define Parser-Idris-bindSymbol (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 1)) (Prelude-C-124C-124 0 (lambda () 1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-18205) (Core-Parser-Text-pure 'erased 'erased (vector 1 ))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "=>")) (lambda () (lambda (_-18191) (Core-Parser-Text-pure 'erased 'erased (vector 2 )))))))))
(define Parser-Idris-bindList (lambda (arg-0 arg-1 arg-2) (Parser-Text-sepBy1 'erased 'erased 'erased 0 (Source-Rule-Parser-symbol ",") (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Idris-multiplicity)) (lambda (rigc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-0 arg-2)) (lambda () (lambda (pat) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-option 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (vector 24 (vector 0 arg-0 arg-1 arg-1)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-17947) (Parser-Idris-opExpr (Parser-Idris-pdef) arg-0 arg-2)))))) (lambda (ty) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-getMult rigc)) (lambda (rig) (Core-Parser-Text-pure 'erased 'erased (vector 0 rig (vector 0 pat ty)))))))))))))))
(define Parser-Idris-autoImplicitPi (lambda (arg-0 arg-1) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "{")) (lambda () (lambda (_-18291) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-keyword "auto")) (lambda () (lambda (_-18298) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Core-Parser-Text-commit 'erased)) (lambda (_-18306) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-pibindList arg-0 start arg-1)) (lambda () (lambda (binders) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "}")) (lambda () (lambda (_-18320) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "->")) (lambda () (lambda (_-18328) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-typeExpr (Parser-Idris-pdef) arg-0 arg-1)) (lambda () (lambda (scope) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-pibindAll (vector 0 arg-0 start end) (vector 2 ) binders scope))))))))))))))))))))))))))))
(define Parser-Idris-atom (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-constant)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 14 (vector 0 arg-0 start end) x))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "Type")) (lambda () (lambda (_-15634) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 20 (vector 0 arg-0 start end)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "_")) (lambda () (lambda (_-15602) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 23 (vector 0 arg-0 start end)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol "?")) (lambda () (lambda (_-15569) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 24 (vector 0 arg-0 start end)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-holeName)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 19 (vector 0 arg-0 start end) 1 x))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "MkWorld")) (lambda () (lambda (_-15506) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 14 (vector 0 arg-0 start end) (vector 5 )))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "World")) (lambda () (lambda (_-15473) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 14 (vector 0 arg-0 start end) (vector 11 )))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-124C-124 1 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-pragma "search")) (lambda () (lambda (_-15437) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 13 (vector 0 arg-0 start end) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-name)) (lambda () (lambda (x) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) x)))))))))))))))))))))))))))
(define Parser-Idris-argExpr (lambda (arg-0 arg-1 arg-2) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-2)) (lambda (_-16090) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-1 arg-2)) (lambda () (lambda (arg) (let ((sc0 arg)) (case (vector-ref sc0 0) ((19) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 19 e-0 0 e-2))))))(else (Core-Parser-Text-pure 'erased 'erased (vector 0 arg)))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Source-Rule-Parser-continue arg-2)) (lambda (_-16068) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-implicitArg arg-1 arg-2)) (lambda () (lambda (arg) (Core-Parser-Text-pure 'erased 'erased (vector 1 (Builtin-fst 'erased 'erased arg) (Builtin-snd 'erased 'erased arg)))))))) (Parser-Idris-case--13495-16131 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) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-case_ arg-1 arg-2) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Parser-Idris-lambdaCase arg-1 arg-2) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 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 () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) (Prelude-C-38C-38 (Prelude-C-124C-124 1 (lambda () 0)) (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-simpleExpr arg-1 arg-2)) (lambda () (lambda (f) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-many 'erased 'erased (Parser-Idris-argExpr arg-0 arg-1 arg-2))) (lambda (args) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (Parser-Idris-n--13494-15908-applyExpImp arg-2 arg-1 arg-0 start end f args))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 1 (lambda () 0)) 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Parser-Idris-iOperator)) (lambda () (lambda (op) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-Idris-expr (Parser-Idris-pdef) arg-1 arg-2)) (lambda () (lambda (arg) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 26 (vector 0 arg-1 start end) op arg)))))))))))) (lambda () (Core-Parser-Text-fail 'erased 'erased 'erased "Expected 'case', 'if', 'do', application or operator expression")))))))))))))))))))
(define ModTree-Idris-case--27840-5309 (lambda (arg-0 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-15 (Context-Core-clearCtxt arg-5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((InitPrimitives-Core-addPrimitives arg-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-3 (Metadata-Core-initMetadata) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (Directory-Core-getTTCFileName arg-5 arg-0 ".ttc" eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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-8))) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (ProcessIdr-Idris-readAsMain arg-5 arg-2 arg-4 e-8 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (Directory-Core-getTTCFileName arg-5 arg-0 ".ttm" eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 (Metadata-Core-readFromTTM arg-3 e-11 eta-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-7) eta-0)))))))
(define ModTree-Idris-case--27759-5238 (lambda (arg-0 arg-1 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-8) eta-0)))))))
(define ModTree-Idris-case--27195-5115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--27305-4886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-15 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-14) eta-0)))))))))))(else (lambda (eta-0) (let ((act-15 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased arg-14 arg-25)) eta-0)))))))))))))))
(define ModTree-Idris-case--27195-4815 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-15 (ProcessIdr-Idris-process arg-6 arg-21 arg-20 arg-5 arg-4 msg arg-11 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (let ((act-16 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-14) eta-0))))))))))(else (let ((act-16 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased arg-14 e-5)) eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-14) eta-0)))))))))))))))
(define ModTree-Idris-case--27001-4716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (let ((act-15 (ModTree-Idris-fnameModified arg-12 eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-1))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (ModTree-Idris-fnameModified arg-11 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (f) (lambda (eta-1) (let ((act-17 (ModTree-Idris-fnameModified f eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 f e-7)) eta-1)))))))) e-3) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-5 (Syntax-Idris-initSyntax) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-21 (ProcessIdr-Idris-process arg-6 e-9 e-8 arg-5 arg-4 msg arg-11 eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((sc9 e-11)) (case (vector-ref sc9 0) ((0) (let ((act-22 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 ((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-23)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))(else (let ((act-22 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 ((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-23)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-2 e-11)) eta-0))))))))))))))))))) (else (let ((act-21 (REPLCommon-Idris-emitWarnings arg-6 arg-4 arg-5 eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 ((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-22)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))
(define ModTree-Idris-case--27012-4637 (lambda (arg-0 arg-1 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--27012-4585 (lambda (arg-0 arg-1 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--26933-4501 (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-15 (let ((act-15 (File-System-closeFile arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-cast_Cast__Int_Integer e-2)) eta-0)))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-closeFile arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-0 e-5) eta-0))))))))))))
(define ModTree-Idris-case--26923-4486 (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-15 (let ((act-15 (File-System-fileModifiedTime e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (let ((act-16 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-cast_Cast__Int_Integer e-3)) eta-0))))))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--26804-4393 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((ModTree-Idris-mkModTree arg-4 arg-5 arg-2 (vector 0 ) arg-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.DoneMod" ) (StringMap-Data-empty 'erased) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.BuildOrder" ) (vector 0 ) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((ModTree-Idris-mkBuildMods e-6 e-7 e-5) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-reverse 'erased e-9)) eta-0)))))))))))))))))))))))))))))))
(define ModTree-Idris-case--26690-4274 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased 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) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (IORef-Data-writeIORef 'erased arg-2 (StringMap-Data-insert 'erased arg-3 (vector 0 ) e-8) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0))))))))))))))))))))))))))
(define ModTree-Idris-case--26489-4159 (lambda (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-15 (Directory-Core-nsToSource arg-4 arg-2 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (ProcessIdr-Idris-readHeader arg-4 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((mt (vector 0 arg-0 (vector 1 e-5) e-7))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-3 (vector 1 (vector 0 arg-0 mt) e-8) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased mt) eta-0))))))))))))))))))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define ModTree-Idris-case--26489-4107 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 (vector 0 ) (vector 0 ))) eta-0)))))))
(define ModTree-Idris-case--26475-4065 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-3 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) ((ModTree-Idris-case--26489-4159 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-0 (vector 0 ) (vector 0 ))) eta-1)))))) eta-0)))))))
(define ModTree-Idris-n--27001-4555-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--27012-4585 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-6 e-3 (ModTree-Idris-n--27001-4555-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--27012-4637 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-9 e-3 (ModTree-Idris-n--27001-4555-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))))))))))))
(define ModTree-Idris-n--28004-5436-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--28004-5436-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--26475-4065 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) arg-4 arg-3))))
(define ModTree-Idris-mkBuildMods (lambda (arg-0 arg-1 arg-2) (Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (sf) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) ((ModTree-Idris-case--26690-4274 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-15 (Core-Core-newRef 'erased 'erased (vector "Idris.ModTree.AllMods" ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-getDirs arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((fname_ns (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))) ((ModTree-Idris-case--26804-4393 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 fname_ns (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) fname_ns (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc2 eta-0)) (let ((e-1 (vector-ref sc2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (ModTree-Idris-getBuildMods arg-0 arg-2 arg-3 arg-4 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-15 (let ((act-15 (File-System-openFile arg-0 (vector 0 ) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (File-System-fileModifiedTime e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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-17 (let ((act-17 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-cast_Cast__Int_Integer e-3)) ext-0))))))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (ModTree-Idris-buildMod arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0)))))))))))))))))
(define ModTree-Idris-buildMod (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 ext-0) (let ((act-15 (Context-Core-clearCtxt arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((InitPrimitives-Core-addPrimitives arg-0) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (Context-Core-lazyActive arg-0 0 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-setUnboundImplicits arg-0 0 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19 (Directory-Core-getTTCFileName arg-0 src ".ttc" ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 ((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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) ((ModTree-Idris-case--27001-4716 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--27001-4555-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-15 (ModTree-Idris-getBuildMods arg-0 arg-4 (FC-Core-toplevelFC) (vector 0 ) arg-5 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-17 (Context-Core-clearCtxt arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 ((InitPrimitives-Core-addPrimitives arg-0) ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-2 (Metadata-Core-initMetadata) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (Directory-Core-getTTCFileName arg-0 arg-5 ".ttc" ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (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-10))) ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-22 (ProcessIdr-Idris-readAsMain arg-0 arg-3 arg-1 e-10 ext-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-23 (Directory-Core-getTTCFileName arg-0 arg-5 ".ttm" ext-0))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc9 1))) (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 "Reloading " (Prelude-show_Show__String e-13))) ext-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-25 (Metadata-Core-readFromTTM arg-2 e-13 ext-0))) (let ((sc11 act-25)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-6) ext-0))))))))))))))))
(define ModTree-Idris-buildAll (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((ModTree-Idris-getAllBuildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (vector 0 ) arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((modsC-39 (ModTree-Idris-n--28004-5436-dropLater arg-3 arg-2 arg-1 arg-0 e-5))) ((ModTree-Idris-buildMods arg-0 arg-1 arg-2 (FC-Core-toplevelFC) (+ 1 0) (List-Data-length 'erased modsC-39) modsC-39) ext-0)))))))))
(define ProcessIdr-Idris-case--28213-8601 (lambda (arg-0 arg-1 arg-2 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Context-Core-getDirs arg-6 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Directory-Core-makeBuildDirectory arg-6 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Binary-Core-writeToTTC 'erased (vector 0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-4572 arg-4573 eta-1)))) (lambda (arg-4574) (lambda (arg-4575) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-4574 arg-4575 eta-1))))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-1256 eta-1))))) arg-6 arg-4 e-8 arg-9 eta-0)))))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (Directory-Core-getTTCFileName arg-6 arg-0 ".ttm" eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Metadata-Core-writeToTTM arg-6 arg-5 e-9 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-10) eta-0)))))))
(define ProcessIdr-Idris-case--28156-8575 (lambda (arg-0 arg-1 arg-2 arg-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--28213-8601 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define ProcessIdr-Idris-case--28136-8525 (lambda (arg-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-15 (Directory-Core-getTTCFileName arg-6 arg-0 ".ttc" eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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--28213-8601 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1)))))))))))))))) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 err (vector 0 ))) eta-1))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 49 arg-0 e-5) (vector 0 ))) eta-0))))))))
(define ProcessIdr-Idris-case--27685-8378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 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 arg-12 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25)))))))))))))))))))))))))))))
(define ProcessIdr-Idris-case--27685-8214 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-0 (vector-ref sc0 1))) (lambda () (lambda (eta-0) (let ((act-15 (Context-Core-getDirs arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (Directory-Core-pathToNS (let ((sc3 e-5)) (let ((e-11 (vector-ref sc3 1))) e-11)) (let ((sc3 e-5)) (let ((e-10 (vector-ref sc3 2))) e-10)) e-0) arg-20))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (let ((sc3 arg-22)) (let ((e-7 (vector-ref sc3 1))) e-7)) (Strings-Prelude-C-43C-43 "Module name " (Strings-Prelude-C-43C-43 (Name-Core-showSep "." (List-Data-reverse 'erased arg-20)) (Strings-Prelude-C-43C-43 " does not match file name " e-0)))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))(else (Builtin-idris_crash 'erased "Unhandled input for Idris.ProcessIdr.case block in 27685(8214) at src/Idris/ProcessIdr.idr:221:1--297:1"))))))
(define ProcessIdr-Idris-case--27540-8068 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22) (let ((sc0 arg-22)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-initHash arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-20 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc3 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--27685-8214 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 e-2 _-0 e-5 e-6 (let ((sc4 e-2)) (let ((e-0 (vector-ref sc4 1))) e-0))))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (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 eta-1 eta-2))) arg-11) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (Context-Core-setNS arg-8 arg-20 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc6 e-2)) (let ((e-3 (vector-ref sc6 4))) e-3)) eta-1)) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased arg-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-34 (vector-ref sc9 3))) (let ((e-3 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-33 (vector-ref sc9 6))) (let ((e-32 (vector-ref sc9 7))) (let ((e-31 (vector-ref sc9 8))) (let ((e-30 (vector-ref sc9 9))) (let ((e-29 (vector-ref sc9 10))) (let ((e-28 (vector-ref sc9 11))) (let ((e-27 (vector-ref sc9 12))) (let ((e-26 (vector-ref sc9 13))) (let ((e-13 (vector-ref sc9 14))) (let ((e-14 (vector-ref sc9 15))) (let ((e-15 (vector-ref sc9 16))) (let ((e-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-34 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 arg-12 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-10)) eta-0)))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 )))) eta-0))))))))
(define ProcessIdr-Idris-case--27287-7939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 (Context-Core-setNS arg-8 arg-20 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))) (else (lambda (eta-0) (let ((act-15 (REPLCommon-Idris-iputStrLn arg-4 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-logTime 'erased arg-8 (lambda () (Strings-Prelude-C-43C-43 "Parsing " arg-3)) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Source-Parser-runParser 'erased (Prelude-C-124C-124 1 (lambda () 1)) (Unlit-Parser-isLitFile arg-3) arg-0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Idris-prog arg-3)) (lambda (p) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-8503) (Core-Parser-Text-pure 'erased 'erased p))))))) eta-1)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (Context-Core-initHash arg-8 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (UnifyState-Core-resetNextVar arg-7 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (let ((sc6 (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-20 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc6 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--27685-8214 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-5 e-2 _-0 e-7 e-8 (let ((sc7 e-2)) (let ((e-0 (vector-ref sc7 1))) e-0))))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 (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 eta-1 eta-2))) arg-11) eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-21 (Context-Core-setNS arg-8 arg-20 eta-0))) (let ((sc8 act-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-22 (Context-Core-logTime 'erased arg-8 (lambda () "Processing decls") (lambda (eta-1) (ProcessIdr-Idris-processDecls arg-8 arg-7 arg-6 arg-5 (let ((sc9 e-2)) (let ((e-3 (vector-ref sc9 4))) e-3)) eta-1)) eta-0))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 (Context-Core-logTime 'erased arg-8 (lambda () "Compile defs") (lambda (eta-1) (Inline-Compiler-compileAndInlineAll arg-8 eta-1)) eta-0))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-24 (let ((act-24 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) eta-0)))) (let ((sc11 act-24)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-14 (vector-ref sc11 1))) (let ((act-25 (let ((act-25 (IORef-Data-writeIORef 'erased arg-8 (let ((sc12 e-14)) (let ((e-0 (vector-ref sc12 1))) (let ((e-1 (vector-ref sc12 2))) (let ((e-36 (vector-ref sc12 3))) (let ((e-3 (vector-ref sc12 4))) (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-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-1 e-36 e-3 e-4 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 e-15 arg-12 e-17 e-18 e-19 e-20 e-21 e-22 e-23 e-24 e-25))))))))))))))))))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-0)))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-12)) eta-0))))))))))))))))))))))))))))))))))))))))))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 )))) eta-0)))))))))))))))))))))
(define ProcessIdr-Idris-case--27287-7742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (cond ((equal? sc0 0) (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))) (else (ProcessIdr-Idris-addPrelude (let ((sc1 arg-9)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))
(define ProcessIdr-Idris-case--27213-7650 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) eta-0))))))))
(define ProcessIdr-Idris-case--27178-7635 (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--27213-7650 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--27178-7604-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--27182-7609 (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--27052-7501 (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-15 (let ((act-15 (File-System-closeFile arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-cast_Cast__Int_Integer e-2)) eta-0)))))))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-closeFile arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-fromInteger_Num__Integer 0)) eta-0)))))))))))
(define ProcessIdr-Idris-case--27042-7486 (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-15 (let ((act-15 (File-System-fileModifiedTime e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (let ((act-16 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-cast_Cast__Int_Integer e-3)) eta-0))))))) (else (let ((act-16 (let ((act-16 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-fromInteger_Num__Integer 0)) eta-0)))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define ProcessIdr-Idris-case--27014-7466 (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--26820-7404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (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--26800-7265 (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-15 (Context-Core-getNS arg-3 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-16 (Context-Core-getNestedNS arg-3 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 (Desugar-Idris-extendAs arg-1 e-7 e-7 e-5 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (let ((act-19 ((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-19 (ProcessIdr-Idris-readModule arg-3 arg-2 arg-1 1 (FC-Core-emptyFC) 0 0 m as eta-1))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (Context-Core-addImported arg-3 (vector 0 m (vector 0 0 as)) eta-1))))))))) e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 (Context-Core-getSession arg-3 eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 1 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-15 (vector-ref sc9 1))) (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased 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))))))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 (Context-Core-setNS arg-3 e-7 eta-0))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--26671-7140 (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-15 (Binary-Core-readIFaceHash e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((sc2 (let ((sc3 arg-0)) (let ((e-1 (vector-ref sc3 2))) e-1)))) (cond ((equal? sc2 0) (let ((act-16 (Context-Core-log arg-2 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Reexporting " (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 ((sc3 arg-0)) (let ((e-4 (vector-ref sc3 3))) e-4))) (Strings-Prelude-C-43C-43 " hash " (Prelude-show_Show__Int e-5))))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Context-Core-addHash 'erased arg-2 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Int arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Int arg-1616 arg-1617)))) e-5 eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc3 arg-0)) (let ((e-3 (vector-ref sc3 4))) e-3)) e-5)) eta-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--26425-6942 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (let ((sc0 arg-12)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (let ((e-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-5 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 (Context-Core-getNS arg-8 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-18 (let ((sc6 arg-3)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 ((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)))) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 1 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1)))))) e-10) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-setNS arg-8 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))
(define ProcessIdr-Idris-case--26385-6907 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-1256 eta-1)))) arg-8 arg-7 arg-4 arg-3 e-2 arg-1 arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-7 eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (Context-Core-getNS arg-8 eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-19 (let ((sc8 arg-3)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 ((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)))) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 1 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1)))))) e-10) eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Context-Core-setNS arg-8 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-3)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--26330-6875 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 1) (lambda (eta-0) (let ((act-15 (Directory-Core-nsToPath arg-8 arg-4 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-1256 eta-1)))) arg-8 arg-7 arg-4 arg-3 e-2 arg-1 arg-0 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-17 (Desugar-Idris-extendAs arg-6 arg-1 arg-0 e-8 eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (Context-Core-getNS arg-8 eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-20 (let ((sc10 arg-3)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-21 ((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)))) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-8 arg-7 arg-6 1 arg-4 (Prelude-C-38C-38 arg-3 (lambda () reexp)) reexp m as eta-1)))))) e-10) eta-0))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Context-Core-setNS arg-8 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-3)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-8 arg-1 eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))) (else (let ((e-6 (vector-ref sc2 1))) (Core-Core-throw_Catchable__Core_Error 'erased e-6 eta-0)))))))))))) (else (let ((sc1 arg-3)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-8 arg-1 eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))
(define ProcessIdr-Idris-case--26228-6788 (lambda (arg-0 arg-1 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--26200-6738 (lambda (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-15 (ProcessDecls-TTImp-getTotalityErrors arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) arg-5) e-5)) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--26228-6788 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)))) eta-0))))))))
(define ProcessIdr-Idris-n--27178-7604-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--27182-7609 arg-0 arg-1 arg-2 (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
(define ProcessIdr-Idris-readPrelude (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (ProcessIdr-Idris-readImport arg-0 arg-1 arg-2 (ProcessIdr-Idris-prelude) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Context-Core-setNS arg-0 (vector 1 "Main" (vector 0 )) ext-0)))))))
(define ProcessIdr-Idris-readModule (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((ProcessIdr-Idris-case--26330-6875 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (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-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__Bool arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Bool arg-625 arg-626)))) (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (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-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__Bool arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Bool arg-625 arg-626)))) (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (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-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__Bool arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Bool arg-625 arg-626)))) (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Bool arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__Bool arg-627 arg-628)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-627) (lambda (arg-628) (Prelude-C-61C-61_Eq__String arg-627 arg-628))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-629) (lambda (arg-630) (Prelude-C-47C-61_Eq__String arg-629 arg-630)))) arg-627 arg-628)))) arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 arg-7 (vector 0 arg-5 arg-8)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc1 e-5)) (let ((e-18 (vector-ref sc1 19))) e-18))))) ext-0))))))))
(define ProcessIdr-Idris-readImport (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 0 (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) e-0)) 0 (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 2))) e-1)) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 3))) e-2)) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 4))) e-3)) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Context-Core-addImported arg-0 (vector 0 (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 0 (let ((sc1 arg-3)) (let ((e-1 (vector-ref sc1 2))) e-1)) (let ((sc1 arg-3)) (let ((e-3 (vector-ref sc1 4))) e-3)))) ext-0)))))))
(define ProcessIdr-Idris-readHeader (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (File-System-readFile arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--27213-7650 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--27178-7604-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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Binary-Core-readIFaceHash e-2 ext-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((sc3 (let ((sc4 arg-2)) (let ((e-1 (vector-ref sc4 2))) e-1)))) (cond ((equal? sc3 0) (let ((act-17 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Reexporting " (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 ((sc4 arg-2)) (let ((e-4 (vector-ref sc4 3))) e-4))) (Strings-Prelude-C-43C-43 " hash " (Prelude-show_Show__Int e-6))))) ext-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Context-Core-addHash 'erased arg-0 (vector 0 (lambda (arg-1615) (Hash-Core-hash_Hashable__Int arg-1615)) (lambda (arg-1616) (lambda (arg-1617) (Hash-Core-hashWithSalt_Hashable__Int arg-1616 arg-1617)))) e-6 ext-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (let ((sc4 arg-2)) (let ((e-3 (vector-ref sc4 4))) e-3)) e-6)) ext-0)))))))))))) (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-15 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-1253 arg-1255 eta-0)))) (lambda (arg-1256) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-1256 eta-0)))) arg-0 arg-1 (FC-Core-toplevelFC) 0 arg-3 (vector 0 ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Context-Core-getNS arg-0 ext-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-17 (Context-Core-getNestedNS arg-0 ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc5 1))) (let ((act-18 (Desugar-Idris-extendAs arg-2 e-8 e-8 e-7 ext-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-20 ((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-20 (ProcessIdr-Idris-readModule arg-0 arg-1 arg-2 1 (FC-Core-emptyFC) 0 0 m as eta-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-addImported arg-0 (vector 0 m (vector 0 0 as)) eta-0))))))))) e-10) ext-0))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (let ((act-21 (Context-Core-getSession arg-0 ext-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 1 (FC-Core-emptyFC) 0 0 (vector 1 "Prelude" (vector 0 )) (vector 1 "Prelude" (vector 0 )) ext-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) ext-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc10 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased 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))))))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-24 (Context-Core-setNS arg-0 e-8 ext-0))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-15 (ProcessIdr-Idris-readHeader arg-0 arg-5 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-getSession arg-0 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((imps (ProcessIdr-Idris-case--27287-7742 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 (Prelude-C-124C-124 (let ((sc2 e-6)) (let ((e-0 (vector-ref sc2 1))) e-0)) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (let ((sc2 e-5)) (let ((e-1 (vector-ref sc2 2))) e-1)) (vector 1 "Prelude" (vector 0 )))))))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (ProcessIdr-Idris-readHash arg-0 arg-1 eta-1 eta-2))) imps) eta-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Current hash " (Prelude-show_Show__Int (let ((sc4 e-8)) (let ((e-15 (vector-ref sc4 16))) e-15))))) eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (Context-Core-log arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (let ((sc5 e-5)) (let ((e-1 (vector-ref sc5 2))) e-1))) (Strings-Prelude-C-43C-43 " hashes:\xa;" (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__String d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Int d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__String d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (Prelude-show_Show__String x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__String d-1 x-1)))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__Int x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Int d-0 x-0))))) d x)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__Int arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Int arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__Int arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__Int arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__Int arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__Int arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__Int arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__Int arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-900) (lambda (arg-901) (Prelude-min_Ord__String arg-900 arg-901)))) arg-898 arg-899)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__Int arg-898 arg-899)))) arg-896 arg-897)))) e-7))))) eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Binary-Core-readImportHashes arg-6 eta-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (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-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__Int arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Int arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__Int arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__Int arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__Int arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__Int arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__Int arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__Int arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-900) (lambda (arg-901) (Prelude-min_Ord__String arg-900 arg-901)))) arg-898 arg-899)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__Int arg-898 arg-899)))) arg-896 arg-897)))) e-11)))))) eta-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (ProcessIdr-Idris-modTime arg-5 eta-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-24 (ProcessIdr-Idris-modTime arg-6 eta-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((ns (let ((sc10 e-5)) (let ((e-1 (vector-ref sc10 2))) e-1)))) ((ProcessIdr-Idris-case--27287-7939 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 imps e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 ns (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__Int arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Int arg-625 arg-626)))) arg-623 arg-624)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__Int arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Int arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__Int arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__Int arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__Int arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__Int arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__Int arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__Int arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-900) (lambda (arg-901) (Prelude-min_Ord__String arg-900 arg-901)))) arg-898 arg-899)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__Int arg-898 arg-899)))) arg-896 arg-897)))) e-7) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (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-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__Int arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-625) (lambda (arg-626) (Prelude-C-61C-61_Eq__String arg-625 arg-626))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-627) (lambda (arg-628) (Prelude-C-47C-61_Eq__String arg-627 arg-628)))) arg-625 arg-626)))) (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__Int arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__Int arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-888) (lambda (arg-889) (Prelude-compare_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__Int arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__Int arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__Int arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-60C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__Int arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-896) (lambda (arg-897) (Prelude-C-62C-61_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__String arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__String arg-896 arg-897)))) arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-896 arg-897)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-896) (lambda (arg-897) (Prelude-max_Ord__Int arg-896 arg-897))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-886) (lambda (arg-887) (Prelude-compare_Ord__String arg-886 arg-887))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-60_Ord__String arg-888 arg-889))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-62_Ord__String arg-890 arg-891))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-60C-61_Ord__String arg-892 arg-893))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-894) (lambda (arg-895) (Prelude-C-62C-61_Ord__String arg-894 arg-895))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-898) (lambda (arg-899) (Prelude-max_Ord__String arg-898 arg-899))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__String arg-898 arg-899)))) arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__String arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__String arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__String arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__String arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__String arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__String arg-894 arg-895))) (lambda (arg-900) (lambda (arg-901) (Prelude-min_Ord__String arg-900 arg-901)))) arg-898 arg-899)))) (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-898) (lambda (arg-899) (Prelude-min_Ord__Int arg-898 arg-899)))) arg-896 arg-897)))) e-11)) (lambda () (Prelude-C-60C-61_Ord__Integer e-13 e-14)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))) (lambda (err) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 err (vector 0 )))) eta-0))) ext-0)))
(define ProcessIdr-Idris-processDecls (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (UnifyState-Core-checkDelayedHoles arg-1 arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (let ((act-17 (ProcessDecls-TTImp-getTotalityErrors arg-0 ext-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-5) e-7)) ext-0))))))) (else (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--26228-6788 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)))) ext-0)))))))))))))))))
(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-15 ((Desugar-Idris-desugarDecl arg-2 arg-0 arg-1 arg-3 (vector 0 ) arg-4) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))) (lambda (err) (lambda (eta-0) (let ((act-15 (Unify-Core-giveUpConstraints arg-0 arg-1 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 err)) eta-0))))))) 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-15 (let ((act-15 (File-System-readFile arg-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (Directory-Core-getTTCFileName arg-0 arg-6 ".ttc" eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--28213-8601 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))) (lambda (err) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 err (vector 0 ))) eta-0))) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 49 arg-6 e-6) (vector 0 ))) ext-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-15 (let ((act-15 (File-System-openFile arg-0 (vector 0 ) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (File-System-fileModifiedTime e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (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-17 (let ((act-17 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-cast_Cast__Int_Integer e-3)) ext-0))))))) (else (let ((act-17 (let ((act-17 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-fromInteger_Num__Integer 0)) ext-0))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-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-addPrelude (lambda (arg-0) (ProcessIdr-Idris-case--27014-7466 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-623) (lambda (arg-624) (Prelude-C-61C-61_Eq__String arg-623 arg-624))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-625) (lambda (arg-626) (Prelude-C-47C-61_Eq__String arg-625 arg-626)))) arg-623 arg-624)))) (vector 1 "Prelude" (vector 0 )) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) arg-0))))))
(define Desugar-Idris-case--24120-8009 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8028) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-5 arg-1 e-0 eta-1)))))) (vector 0 ))) eta-0)))) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 8 e-1) (vector 0 ))) eta-0)))) ((2) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8073) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-5 e-2 eta-1)))))) (vector 0 ))) eta-0)))) ((3) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setUnboundImplicits arg-5 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8106) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-5 e-3 eta-1)))))) (vector 0 ))) eta-0)))))))) ((16) (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8133) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-5 e-4 eta-1)))))) (vector 0 ))) eta-0)))) ((4) (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8160) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-5 e-5 eta-1)))))) (vector 0 ))) eta-0)))) ((5) (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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8187) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-5 arg-1 e-6 e-7 e-8 eta-1)))))) (vector 0 ))) eta-0)))))) ((6) (let ((e-9 (vector-ref sc0 1))) (let ((e-10 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8214) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-5 arg-1 e-9 e-10 eta-1)))))) (vector 0 ))) eta-0))))) ((7) (let ((e-11 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8241) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-5 e-11 eta-1)))))) (vector 0 ))) eta-0)))) ((8) (let ((e-12 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8268) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-5 e-12 eta-1)))))) (vector 0 ))) eta-0)))) ((9) (let ((e-13 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8295) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-5 e-13 eta-1)))))) (vector 0 ))) eta-0)))) ((10) (let ((e-14 (vector-ref sc0 1))) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8322) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-5 e-14 e-15 eta-1)))))) (vector 0 ))) eta-0))))) ((11) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8349) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-5 arg-1 e-16 e-17 eta-1)))))) (vector 0 ))) eta-0))))) ((12) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8376) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))) eta-0))) ((13) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8406) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-5 arg-1 e-19 (vector 2 ) eta-1)))))) (vector 0 ))) eta-0)))) ((14) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8434) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-5 e-20 eta-1)))))) (vector 0 ))) eta-0)))) (else (let ((e-21 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setDefaultTotalityOption arg-5 e-21 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))
(define Desugar-Idris-case--24120-7967 (lambda (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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 6 arg-3 (vector 1 arg-2) e-3 e-5) (vector 0 ))) eta-0))))))))))))
(define Desugar-Idris-case--24120-7849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 (StringMap-Data-insert 'erased arg-0 (vector 0 arg-2 arg-1) e-0) e-1 e-2 e-3 e-4 e-5))))))))))
(define Desugar-Idris-case--24120-7795 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 (StringMap-Data-insert 'erased arg-0 arg-1 e-1) e-2 e-3 e-4 e-5))))))))))
(define Desugar-Idris-case--29503-7676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--29058-7612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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--29349-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 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ))) ext-0)))
(define Desugar-Idris-case--29260-7498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((conname (Prelude-maybe 'erased 'erased (lambda () (Desugar-Idris-n--24120-7102-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--29349-7551 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--29111-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 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 ext-0) (let ((act-15 ((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--24120-7101-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((Desugar-Idris-case--29260-7498 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--29111-7360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--29058-7314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--29111-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 arg-13 arg-14 arg-15 arg-16 arg-17 paramsb paramsb eta-0)))))
(define Desugar-Idris-case--29012-7274 (lambda (arg-0 arg-1 arg-2 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-15 (Context-Core-isUnboundImplicits arg-9 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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--29058-7314 arg-0 arg-1 arg-2 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--24120-7238 (lambda (arg-0 arg-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--24120-7101-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--29012-7274 arg-0 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--24120-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)) (let ((e-2 (vector-ref sc0 1))) (let ((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-15 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-6 e-11 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-n--24120-7103-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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5)))) eta-0)))))))))))))))))))))))
(define Desugar-Idris-case--28182-6967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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--28372-6846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-15 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (b) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) eta-0))))))))) arg-0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-6924) (lambda (nest) (lambda (env) (Implementation-Elab-Idris-elabImplementation vars-6924 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 ))) ext-0))))))))
(define Desugar-Idris-case--28372-6777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--28182-6711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--28372-6846 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--28182-6638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--28107-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 arg-22 ext-0) (let ((act-15 (Context-Core-isUnboundImplicits arg-14 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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--28182-6711 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--27960-6513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Desugar-Idris-case--28107-6570 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--27960-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 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-15 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-5)) eta-0))))))))))))
(define Desugar-Idris-case--24120-6404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-15 ((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-15 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-5)) eta-0))))))))))) arg-5) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Desugar-Idris-case--27960-6513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--24120-6341 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (Desugar-Idris-desugar arg-15 arg-14 arg-12 arg-13 (vector 1 ) arg-11 e-7 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 e-5))) eta-0)))))))))))))))
(define Desugar-Idris-case--24120-5959 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 arg-9 e-5)))))))))
(define Desugar-Idris-case--24120-5927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased arg-10 arg-9) e-5)))))))))
(define Desugar-Idris-case--24099-5206 (lambda (arg-0 arg-1 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-3 e-3 e-5 arg-10)) eta-0))))))))))))
(define Desugar-Idris-case--26498-5108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) arg-14))))))
(define Desugar-Idris-case--24099-5066 (lambda (arg-0 arg-1 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) e-5)))))) eta-0))))))))))))
(define Desugar-Idris-case--24083-4744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-15 ((Desugar-Idris-desugarB arg-12 arg-13 arg-11 arg-9 arg-10 arg-8 arg-7 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-7))) (let ((act-17 ((Desugar-Idris-expandDo arg-12 arg-11 arg-10 arg-9 arg-8 psC-39 arg-6 arg-5) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-13 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))))))))))))))))))))))))
(define Desugar-Idris-case--24083-4590 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 (Desugar-Idris-desugar arg-11 arg-10 arg-8 arg-9 arg-7 arg-6 arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-2 arg-6))) (let ((act-17 ((Desugar-Idris-expandDo arg-11 arg-10 arg-9 arg-8 arg-7 psC-39 arg-5 arg-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 30 arg-3 1) (vector 4 arg-3 (vector 0 arg-3 (vector 2 "_" 0)) (vector 30 arg-3 1) (vector 1 (vector 0 arg-3 e-3 e-7) e-6))))) eta-0)))))))))))))))))))))))
(define Desugar-Idris-case--24065-4328 (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--24065-4270 (lambda (arg-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--24065-3960 (lambda (arg-0 arg-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 (Prelude-C-43_Num__Int e-0 (Prelude-fromInteger_Num__Int 1)) (vector 1 (vector 0 arg-11 (vector 0 arg-1 arg-9)) e-1)))))))
(define Desugar-Idris-case--24065-3858 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 e-2 (vector 1 (vector 1 arg-0) e-3) e-4 e-5))))))))))
(define Desugar-Idris-case--24065-3755 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 arg-1 e-1)) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't quote this declaration") eta-0))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 arg-1 "Can't quote this declaration") eta-0)))))))
(define Desugar-Idris-case--24065-3685 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 arg-1 (vector 3 arg-0))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 26 arg-1 (vector 3 arg-0)))) eta-0))))))))
(define Desugar-Idris-case--24065-3631 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 arg-1 (vector 2 arg-0))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 26 arg-1 (vector 2 arg-0)))) eta-0))))))))
(define Desugar-Idris-case--24065-3566 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 arg-1 (vector 2 (vector 26 arg-1 (vector 1 arg-0))) (vector 1 (vector 26 arg-1 (vector 1 arg-0)) (vector 1 (vector 26 arg-1 (vector 0 (Prelude-fromInteger_Num__Int arg-0))) (vector 0 ))))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 arg-1 (vector 0 arg-1 e-2) (vector 26 arg-1 (vector 1 arg-0)))) eta-0))))))))
(define Desugar-Idris-case--24065-3469 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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 23 arg-2) (vector 25 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 26 arg-2 arg-1 arg-0)))))))
(define Desugar-Idris-case--23709-2705 (lambda (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-15 ((Desugar-Idris-toTokList arg-3 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-2 arg-1 (vector 3 e-2)) e-5)) eta-0)))))))))))))
(define Desugar-Idris-case--23733-2566 (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-15 ((Desugar-Idris-toTokList arg-4 arg-0) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-n--23709-2524-backtickPrec arg-0 arg-1 arg-2 arg-3 arg-4)) e-5))) eta-0))))))))))))
(define Desugar-Idris-case--23709-2541 (lambda (arg-0 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--23733-2566 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-15 ((Desugar-Idris-toTokList arg-4 arg-0) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 arg-1) (vector 1 (vector 0 arg-3 arg-2 (Desugar-Idris-mkPrec e-5 e-6)) e-7))) eta-0)))))))))))))))))))
(define Desugar-Idris-case--23654-2498 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-11 (vector-ref sc1 1))) e-11)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-10 (vector-ref sc1 2))) e-10)) e-1) (ANameMap-Data-mergeAs 'erased arg-2 arg-1 (let ((sc1 arg-0)) (let ((e-9 (vector-ref sc1 3))) e-9)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc1 arg-0)) (let ((e-8 (vector-ref sc1 4))) e-8)) e-3) e-4 e-5))))))))))
(define Desugar-Idris-n--24065-4225-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--24120-5602-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-15 ((Desugar-Idris-n--24120-5601-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-0 e-5 (vector 1 (vector 0 e-0 e-1 e-2) (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-6 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-n--24120-5601-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-3 e-7 (vector 1 (vector 1 e-3 e-4 e-5 e-6) (vector 0 )))) eta-0)))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-n--24120-5601-getFn arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-7 e-5 (vector 1 (vector 2 e-7 e-8) (vector 0 )))) eta-0))))))))))))))
(define Desugar-Idris-n--24120-6001-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((35) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Desugar-Idris-n--24120-6001-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 e-1) (Desugar-Idris-n--24120-6001-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 e-2)))))(else (vector 1 arg-13 (vector 0 )))))))
(define Desugar-Idris-n--24114-5408-mkRecType (lambda (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 20 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--24114-5408-mkRecType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3))))))))))))))))))
(define Desugar-Idris-n--24120-7102-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--24120-7103-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 )) eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-10 arg-9 arg-7 arg-8 (vector 1 ) arg-11 e-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))))))
(define Desugar-Idris-n--24065-4224-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--24120-5601-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))) ((8) (let ((e-3 (vector-ref sc0 2))) (Desugar-Idris-n--24120-5601-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--24120-5601-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--24120-7101-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--24120-6002-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) (let ((sc0 arg-13)) (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--24120-6001-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 e-3))))))))))
(define Desugar-Idris-n--23709-2524-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) ((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))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((op (Name-Core-nameRoot e-1))) ((Desugar-Idris-case--23709-2541 e-3 e-2 e-1 e-0 arg-0 e-5 op (StringMap-Data-lookup 'erased op (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 1))) e-10)))) eta-0))))))))))))) ((26) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((op (Name-Core-nameRoot e-5))) ((Desugar-Idris-case--23709-2705 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 arg-1) (vector 0 ))) eta-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-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (let ((e-72 (vector-ref sc0 3))) (let ((e-74 (vector-ref sc0 5))) (let ((e-75 (vector-ref sc0 6))) (let ((e-76 (vector-ref sc0 7))) (let ((e-77 (vector-ref sc0 8))) (let ((e-78 (vector-ref sc0 9))) (let ((e-79 (vector-ref sc0 10))) (let ((e-80 (vector-ref sc0 11))) (vector 1 (vector 7 e-70 e-71 e-72 arg-0 e-74 e-75 e-76 e-77 e-78 e-79 e-80))))))))))))) ((11) (let ((e-81 (vector-ref sc0 1))) (let ((e-82 (vector-ref sc0 2))) (let ((e-83 (vector-ref sc0 3))) (vector 1 (vector 11 e-81 e-82 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-83)))))))(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-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (let ((e-36 (vector-ref sc2 3))) (vector 1 (vector 2 e-11 e-12 (vector 1 e-34 e-35 e-36)))))))(else (vector 0 )))))))) ((6) (vector 1 arg-1)) ((8) (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))) (let ((e-27 (vector-ref sc1 6))) (vector 1 (vector 2 e-22 e-23 (vector 1 e-22 e-24 (Desugar-Idris-n--24114-5408-mkRecType e-26 e-27 e-25 e-24 e-23 e-22 e-25))))))))))) ((10) (vector 1 arg-1)) ((13) (vector 1 arg-1))(else (vector 0 ))))) ((2) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 0 )) ((2) (let ((e-46 (vector-ref sc1 3))) (let ((sc2 e-46)) (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 )) ((13) (vector 0 ))(else (vector 1 arg-1)))))(else (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((3) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 1 (vector 3 e-0 e-1 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-2))))))) ((4) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (vector 1 (vector 4 e-3 e-4 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl arg-0 eta-0)) e-5)))))))(else (let ((sc0 arg-0)) (vector 1 arg-1)))))))))))))
(define Desugar-Idris-extendAs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 6))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-12 (vector-ref sc2 1))) e-12)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-3)) (let ((e-11 (vector-ref sc2 2))) e-11)) e-1) (ANameMap-Data-mergeAs 'erased arg-1 arg-2 (let ((sc2 arg-3)) (let ((e-10 (vector-ref sc2 3))) e-10)) e-2) (List-Prelude-C-43C-43 'erased (let ((sc2 arg-3)) (let ((e-9 (vector-ref sc2 4))) e-9)) e-3) e-4 e-6)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-7 (vector 1 "Nil"))) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TTImp-TTImp-apply (vector 0 arg-7 (vector 1 "::")) (vector 1 e-5 (vector 1 e-6 (vector 0 ))))) eta-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-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-5 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ) (vector 30 e-4 1) e-7))) eta-0))))))))))))))))))) ((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-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-8 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 30 e-6 1) e-9))) eta-0)))))))))))))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (let ((e-11 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-10 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (let ((act-18 ((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-19 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 30 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 30 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13))))) eta-0)))))))))))))))))))))))))))))))))))) ((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-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 (let ((act-19 (IORef-Data-readIORef 'erased e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Desugar-Idris-bindBangs (let ((sc8 e-9)) (let ((e-1 (vector-ref sc8 2))) e-1)) bind)) eta-0)))))))))))))))))))))))))))))))))) ((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-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-19 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 (BindImplicits-TTImp-bindNames arg-1 1 e-6 eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((act-20 ((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-20)) (case (vector-ref sc9 0) ((0) (let ((e-11 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc9 1))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-21 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-12 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc10 1))) (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-13 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc2 1))) (let ((e-24 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)) eta-0))))))))))))))) (else (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-25 e-6 e-5)) eta-0)))))))))))))))))))))))))(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-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-5 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ) (vector 30 e-4 1) e-7))) eta-0))))))))))))))))))) ((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-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-8 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 30 e-6 1) e-9))) eta-0)))))))))))))))) ((2) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (let ((e-11 (vector-ref sc1 3))) (let ((e-12 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-10 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-11 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-18 ((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-18)) (case (vector-ref sc6 0) ((0) (let ((e-13 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc6 1))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-7 arg-5))) (let ((act-19 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-14 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 30 e-9 1) (vector 4 e-9 (vector 0 e-9 (vector 2 "_" 0)) (vector 30 e-9 1) (vector 1 (vector 0 e-9 e-4 e-14) e-13))))) eta-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 ((e-17 (vector-ref sc1 5))) (lambda (eta-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-17) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-16 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 (let ((act-19 (IORef-Data-readIORef 'erased e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Desugar-Idris-bindBangs (let ((sc7 e-9)) (let ((e-1 (vector-ref sc7 2))) e-1)) bind)) eta-0)))))))))))))))))))))))))))))))))) ((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-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-5 e-19 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-20 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (BindImplicits-TTImp-bindNames arg-1 1 e-6 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-19 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-3 arg-2 arg-4 arg-5 e-21) eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (let ((act-20 ((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-20)) (case (vector-ref sc8 0) ((0) (let ((e-11 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((psC-39 (List-Prelude-C-43C-43 'erased e-9 arg-5))) (let ((act-21 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 psC-39 arg-6 e-3) eta-0))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-12 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc10 act-22)) (case (vector-ref sc10 0) ((0) (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))) ((5) (let ((e-23 (vector-ref sc1 1))) (let ((e-24 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6) e-5)) eta-0))))))))))))))) (else (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-expandDo arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 arg-4 arg-5 e-26 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-25 e-6 e-5)) eta-0))))))))))))))))))))))))))))))
(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-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5)) eta-0)))))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-5)) eta-0))))))))))))))
(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-2 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-7)) eta-0)))))))))))))))))))))))
(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-15 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ))))) eta-0))))))))))))) ((equal? sc2 "$") (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-2 e-6 e-7)) eta-0)))))))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) e-6) e-7)) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-2 (vector 8 e-2 (vector 0 e-2 e-3) e-6) e-7)) eta-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 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-15 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-8 (vector 0 e-8 (vector 1 "negate")) e-5)) eta-0))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-8 (vector 0 e-8 e-9) e-5)) eta-0))))))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarTree arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-10) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-8 (vector 0 e-8 e-9) e-5)) eta-0)))))))))))))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-0) eta-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-5)) eta-0)))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-4 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc4 e-5)) (let ((e-9 (vector-ref sc4 5))) e-9)) arg-4 e-7 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-6 e-3 e-8)) eta-0))))))))))))))))))))))))))))))
(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarType arg-0 arg-1 arg-2 arg-3 arg-4 e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-0 e-1 e-2 e-5 e-6) (vector 0 ))) eta-0)))))))))))))))))) ((1) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-n--24120-5602-toIDef e-6 e-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-1)) e-7) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Parser-TTImp-collectDefs e-8)) 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) (let ((act-15 ((Desugar-Idris-desugarData arg-0 arg-1 arg-2 arg-3 arg-4 e-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-7 e-8 e-5) (vector 0 ))) 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) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased ntm) e-6)) eta-1)))))))) e-11) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-isUnboundImplicits arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))) eta-0))))))))))))))))))))))) ((4) (let ((e-14 (vector-ref sc0 2))) (let ((e-15 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((oldu (let ((sc2 e-5)) (let ((e-4 (vector-ref sc2 5))) e-4)))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (BindImplicits-TTImp-bindTypeNames arg-1 oldu arg-4 e-6 eta-1))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased ntm) e-7)) eta-1))))))))))))) e-14) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-7 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 e-3 (List-Prelude-C-43C-43 'erased e-6 oldu) e-7))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-0 (let ((sc6 e-9)) (let ((e-0 (vector-ref sc6 1))) (let ((e-1 (vector-ref sc6 2))) (let ((e-2 (vector-ref sc6 3))) (let ((e-3 (vector-ref sc6 4))) (let ((e-10 (vector-ref sc6 6))) (vector 0 e-0 e-1 e-2 e-3 oldu e-10))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8)) eta-0)))))))))))))))))))))))))))))))))) ((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 ((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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Desugar-Idris-n--24120-6002-expandConstraint 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-15 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-15 (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-22)) (Builtin-snd 'erased 'erased ntm) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased ntm) e-5)) eta-1)))))))) cons) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (ntm) (lambda (eta-1) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Builtin-fst 'erased 'erased ntm) e-6)) eta-1)))))))) e-22) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-25)))) (let ((act-17 (Context-Core-isUnboundImplicits arg-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-22))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-22))) (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-18 ((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-22))) eta-1)) e-25) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-6227) (lambda (nest) (lambda (env) (lambda (eta-1) (Interface-Elab-Idris-elabInterface vars-6227 arg-1 arg-2 arg-0 arg-3 e-18 e-19 env nest consb e-21 paramsb e-23 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-8) eta-1)))))) (vector 0 ))) eta-0)))))))))))))))))))))))))))))))))))) ((7) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (let ((e-29 (vector-ref sc0 4))) (let ((e-30 (vector-ref sc0 5))) (let ((e-31 (vector-ref sc0 6))) (let ((e-32 (vector-ref sc0 7))) (let ((e-33 (vector-ref sc0 8))) (let ((e-34 (vector-ref sc0 9))) (let ((e-35 (vector-ref sc0 10))) (let ((e-36 (vector-ref sc0 11))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarFnOpt arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-28) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-7 eta-1))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 e-8))) eta-1)))))))))))))) e-30) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Desugar-Idris-case--24120-6404 e-36 e-35 e-34 e-33 e-32 e-31 e-30 e-29 e-28 e-27 e-26 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-6 eta-0)))))))))))))))))))))))) ((8) (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (let ((e-39 (vector-ref sc0 3))) (let ((e-40 (vector-ref sc0 4))) (let ((e-41 (vector-ref sc0 5))) (let ((e-42 (vector-ref sc0 6))) (lambda (eta-0) (let ((act-15 ((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-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-11 eta-1))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((Desugar-Idris-n--24120-7103-mapDesugarPiInfo e-42 e-41 e-40 e-39 e-38 e-37 arg-4 arg-3 arg-2 arg-1 arg-0 arg-4 e-10) eta-1))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 (vector 0 e-8 e-5)))) eta-1)))))))))))))))))))))) e-40) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Desugar-Idris-case--24120-7238 e-42 e-41 e-40 e-39 e-38 e-37 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-5) 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))) (let ((sc1 e-44)) (case (vector-ref sc1 0) ((3) (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-59 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-6 (vector-ref sc4 6))) (vector 0 e-0 (StringMap-Data-insert 'erased e-59 e-45 e-1) e-2 e-3 e-4 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))(else (let ((sc2 e-46)) (case (vector-ref sc2 0) ((1) (let ((e-58 (vector-ref sc2 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-6 (vector-ref sc4 6))) (vector 0 (StringMap-Data-insert 'erased e-58 (vector 0 e-44 e-45) e-0) e-1 e-2 e-3 e-4 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-43 "Fixity declarations must be for unqualified names") eta-0)))))))))(else (let ((sc1 e-46)) (case (vector-ref sc1 0) ((1) (let ((e-58 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 6))) (vector 0 (StringMap-Data-insert 'erased e-58 (vector 0 e-44 e-45) e-0) e-1 e-2 e-3 e-4 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-43 "Fixity declarations must be for unqualified names") eta-0))))))))))))) ((9) (let ((e-48 (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-48) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Desugar-Idris-getDecl (vector 2 ) eta-0)) e-48)))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) eta-0)))))))))) ((11) (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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Desugar-Idris-desugarDecl arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-51) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 5 e-49 e-50 ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) (vector 0 ))) eta-0))))))))))) ((12) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (let ((e-54 (vector-ref sc0 3))) (let ((e-55 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-54 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (BindImplicits-TTImp-bindNames arg-1 1 e-5 eta-0)))))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) (List-Prelude-C-43C-43 'erased e-2 arg-4) e-55 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 6 e-52 (vector 1 e-53) e-3 e-6) (vector 0 ))) eta-0)))))))))))))))))))) (else (let ((e-56 (vector-ref sc0 1))) (let ((e-57 (vector-ref sc0 2))) (let ((sc1 e-57)) (case (vector-ref sc1 0) ((0) (let ((e-0 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8028) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-hide arg-1 e-56 e-0 eta-1)))))) (vector 0 ))) eta-0)))) ((1) (let ((e-1 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 8 e-1) (vector 0 ))) eta-0)))) ((2) (let ((e-2 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8073) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-lazyActive arg-1 e-2 eta-1)))))) (vector 0 ))) eta-0)))) ((3) (let ((e-3 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setUnboundImplicits arg-1 e-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8106) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUnboundImplicits arg-1 e-3 eta-1)))))) (vector 0 ))) eta-0)))))))) ((16) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8133) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setUndottedRecordProjections arg-1 e-4 eta-1)))))) (vector 0 ))) eta-0)))) ((4) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8160) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setAmbigLimit arg-1 e-5 eta-1)))))) (vector 0 ))) eta-0)))) ((5) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8187) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setPair arg-1 e-56 e-6 e-7 e-8 eta-1)))))) (vector 0 ))) eta-0)))))) ((6) (let ((e-9 (vector-ref sc1 1))) (let ((e-10 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8214) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setRewrite arg-1 e-56 e-9 e-10 eta-1)))))) (vector 0 ))) eta-0))))) ((7) (let ((e-11 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8241) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromInteger arg-1 e-11 eta-1)))))) (vector 0 ))) eta-0)))) ((8) (let ((e-12 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8268) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromString arg-1 e-12 eta-1)))))) (vector 0 ))) eta-0)))) ((9) (let ((e-13 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8295) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setFromChar arg-1 e-13 eta-1)))))) (vector 0 ))) eta-0)))) ((10) (let ((e-14 (vector-ref sc1 1))) (let ((e-15 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8322) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addDirective arg-1 e-14 e-15 eta-1)))))) (vector 0 ))) eta-0))))) ((11) (let ((e-16 (vector-ref sc1 1))) (let ((e-17 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8349) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-addNameDirective arg-1 e-56 e-16 e-17 eta-1)))))) (vector 0 ))) eta-0))))) ((12) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8376) (lambda (nest) (lambda (env) (lambda (eta-1) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "%start not implemented") eta-1)))))) (vector 0 ))) eta-0))) ((13) (let ((e-19 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8406) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setNameFlag arg-1 e-56 e-19 (vector 2 ) eta-1)))))) (vector 0 ))) eta-0)))) ((14) (let ((e-20 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 7 (lambda (vars-8434) (lambda (nest) (lambda (env) (lambda (eta-1) (Context-Core-setExtension arg-1 e-20 eta-1)))))) (vector 0 ))) eta-0)))) (else (let ((e-21 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-setDefaultTotalityOption arg-1 e-21 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-2 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-5)) (let ((e-8 (vector-ref sc3 5))) e-8)) arg-4 e-6 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((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-18)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-1 e-7 e-3 e-8)) 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 1 ) arg-4 e-7 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-17 (BindImplicits-TTImp-bindTypeNames arg-1 (let ((sc3 e-8)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-4 e-9 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6 e-10)) eta-0)))))))))))))))))))))))))
(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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-1 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (BindImplicits-TTImp-bindNames arg-1 arg-5 e-6 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-8)))))) 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))) (lambda (eta-0) (let ((act-15 ((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-7) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (BindImplicits-TTImp-bindNames arg-1 arg-5 e-9 eta-0)))))))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-9)) (let ((e-2 (vector-ref sc3 1))) (let ((e-3 (vector-ref sc3 2))) (let ((act-17 (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-17)) (case (vector-ref sc4 0) ((0) (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-4 e-3 e-10 e-8)) eta-0))))))))))))))))))))))))) (else (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Desugar-Idris-desugar arg-0 arg-1 arg-3 arg-2 (vector 0 ) arg-4 e-9 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (BindImplicits-TTImp-bindNames arg-1 arg-5 e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-8 (Builtin-snd 'erased 'erased e-6))) eta-0)))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-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))) (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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-9 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc2 1))) (let ((act-17 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 psC-39 e-7) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-3 e-8 e-5 e-9 e-10)) 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 ((sc1 e-11)) (case (vector-ref sc1 0) ((0) (let ((e-132 (vector-ref sc1 2))) (let ((sc2 e-132)) (case (vector-ref sc2 0) ((1) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-132 arg-6) e-13 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-8 e-9 e-5 (vector 1 e-132) e-6 e-7)) eta-0)))))))))))))))))) ((2) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-132 arg-6) e-13 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-8 e-9 e-5 (vector 1 e-132) e-6 e-7)) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 30 e-8 1) (vector 1 e-7 (vector 0 ))))) eta-0)))))))))))))))))))))) ((23) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-13 eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-8 e-9 e-5 (vector 0 ) e-6 e-7)) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-12) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 30 e-8 1) (vector 1 e-7 (vector 0 ))))) 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))) (let ((sc1 e-16)) (case (vector-ref sc1 0) ((0) (let ((e-138 (vector-ref sc1 2))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 (vector 1 e-138 arg-6) e-19 eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-14 e-15 e-138 e-5 e-6 e-7)) eta-0))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-14 e-5 e-6 e-7)) eta-0))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-18) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-14 e-5 e-6 e-7)) 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-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-22) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-21 e-5 (vector 30 e-21 1) 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))) (let ((psC-39 (List-Prelude-C-43C-43 'erased (Syntax-Idris-definedIn e-25) arg-6))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 psC-39 e-26 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5) e-6)) 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 ((sc1 e-28)) (case (vector-ref sc1 0) ((6) (let ((e-141 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((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-141) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-27 e-5 e-6)) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-28) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-29) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-27 e-5 e-6)) eta-0))))))))))))))))))) ((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 23 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-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-33) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-34) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-32 e-5 e-6)) 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-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-36) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-38) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-35 e-5 e-37 e-6)) 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-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-41) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 19 e-39 e-40 e-5)) eta-0))))))))))) ((11) (let ((e-42 (vector-ref sc0 1))) (let ((e-43 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-43) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 20 e-42 e-5)) eta-0)))))))))) ((12) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-45) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 21 e-44 e-5)) eta-0)))))))))) ((29) (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-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-47) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-48) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ))))) eta-0)))))))))))))))) ((30) (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))) ((25) (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-15 ((Desugar-Idris-toTokList arg-0 (vector 25 e-51 e-52 e-53 e-54)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))))))))))))))))) ((26) (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-15 ((Desugar-Idris-toTokList arg-0 (vector 26 e-55 e-56 e-57)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (let ((e-60 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Desugar-Idris-case--24065-3469 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))))))))))) ((28) (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 23 e-61) (vector 25 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-64 e-65)) eta-0))))) ((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-142 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-fromIntegerName arg-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-66 (vector 2 (vector 26 e-66 (vector 1 e-142))) (vector 1 (vector 26 e-66 (vector 1 e-142)) (vector 1 (vector 26 e-66 (vector 0 (Prelude-fromInteger_Num__Int e-142))) (vector 0 ))))) eta-0)) (else (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-66 (vector 0 e-66 e-2) (vector 26 e-66 (vector 1 e-142)))) eta-0))))))))))))) ((2) (let ((e-143 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-fromStringName arg-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 e-66 (vector 2 e-143))) eta-0)) (else (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-66 (vector 0 e-66 e-2) (vector 26 e-66 (vector 2 e-143)))) eta-0))))))))))))) ((3) (let ((e-144 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-fromCharName arg-2 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 e-66 (vector 3 e-144))) eta-0)) (else (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-66 (vector 0 e-66 e-2) (vector 26 e-66 (vector 3 e-144)))) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 26 e-66 e-67)) eta-0)))))))) ((15) (let ((e-68 (vector-ref sc0 1))) (let ((e-69 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-69) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 22 e-68 e-5)) eta-0)))))))))) ((16) (let ((e-70 (vector-ref sc0 1))) (let ((e-71 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarDecl arg-0 arg-2 arg-4 arg-3 arg-6 e-71) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 23 e-70 e-1)) eta-0))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-70 "Can't quote this declaration") eta-0)))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-70 "Can't quote this declaration") eta-0))))))))))))) ((17) (let ((e-72 (vector-ref sc0 1))) (let ((e-73 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-73) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 24 e-72 e-5)) eta-0)))))))))) ((18) (let ((e-74 (vector-ref sc0 1))) (let ((e-75 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-75) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 25 e-74 e-5)) eta-0)))))))))) ((19) (let ((e-76 (vector-ref sc0 1))) (let ((e-77 (vector-ref sc0 2))) (let ((e-78 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 (let ((sc1 e-77)) (cond ((equal? sc1 0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-6 (vector-ref sc3 6))) (vector 0 e-0 e-1 e-2 (vector 1 (vector 1 e-78) e-3) e-4 e-6)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 28 e-76 e-78)) eta-0)))))))))) ((20) (let ((e-79 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 27 e-79)) eta-0)))) ((21) (let ((e-80 (vector-ref sc0 1))) (let ((e-81 (vector-ref sc0 2))) (let ((e-82 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-82) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 17 e-80 (vector 1 ) e-81 e-5)) eta-0))))))))))) ((22) (let ((e-83 (vector-ref sc0 1))) (let ((e-84 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-84) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 18 e-83 (vector 4 ) e-5)) eta-0)))))))))) ((23) (let ((e-85 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 e-85 0)) eta-0)))) ((24) (let ((e-86 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 30 e-86 1)) eta-0)))) ((31) (let ((e-87 (vector-ref sc0 1))) (let ((e-88 (vector-ref sc0 2))) (Desugar-Idris-expandDo arg-0 arg-2 arg-4 arg-3 arg-5 arg-6 e-87 e-88)))) ((32) (let ((e-89 (vector-ref sc0 1))) (let ((e-90 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-90) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (vector 0 (Prelude-C-43_Num__Int e-0 (Prelude-fromInteger_Num__Int 1)) (vector 1 (vector 0 bn (vector 0 e-89 e-5)) e-1))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-89 bn)) eta-0)))))))))))))))))))) ((33) (let ((e-91 (vector-ref sc0 1))) (let ((e-92 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-92) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Desugar-Idris-idiomise e-91 e-5)) eta-0)))))))))) ((34) (let ((e-93 (vector-ref sc0 1))) (let ((e-94 (vector-ref sc0 2))) (Desugar-Idris-expandList arg-0 arg-1 arg-2 arg-4 arg-3 arg-5 arg-6 e-93 e-94)))) ((35) (let ((e-95 (vector-ref sc0 1))) (let ((e-96 (vector-ref sc0 2))) (let ((e-97 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-96) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-97) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((pval (TTImp-TTImp-apply (vector 0 e-95 (Desugar-Idris-mkpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-95 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-95 (Desugar-Idris-pairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) (vector 1 pval (vector 0 ))))) eta-0))))))))))))))))) ((36) (let ((e-98 (vector-ref sc0 1))) (let ((e-99 (vector-ref sc0 2))) (let ((e-100 (vector-ref sc0 3))) (let ((e-101 (vector-ref sc0 4))) (let ((sc1 e-99)) (case (vector-ref sc1 0) ((0) (let ((e-146 (vector-ref sc1 1))) (let ((e-147 (vector-ref sc1 2))) (let ((sc2 e-147)) (case (vector-ref sc2 0) ((1) (let ((e-148 (vector-ref sc2 1))) (let ((sc3 e-100)) (case (vector-ref sc3 0) ((23) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((pval (TTImp-TTImp-apply (vector 0 e-98 (Desugar-Idris-mkdpairname)) (vector 1 (vector 0 e-146 (vector 1 e-148)) (vector 1 e-5 (vector 0 )))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-98 (vector 2 pval) (vector 1 (TTImp-TTImp-apply (vector 0 e-98 (Desugar-Idris-dpairname)) (vector 1 (vector 30 e-146 1) (vector 1 (vector 2 e-146 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-148)) (vector 30 e-146 1) e-5) (vector 0 )))) (vector 1 pval (vector 0 ))))) eta-0)))))))))(else (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-100) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TTImp-TTImp-apply (vector 0 e-98 (Desugar-Idris-dpairname)) (vector 1 e-5 (vector 1 (vector 2 e-146 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 1 (vector 1 e-148)) e-5 e-6) (vector 0 ))))) eta-0)))))))))))))))))(else (let ((sc2 e-100)) (case (vector-ref sc2 0) ((23) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-99) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TTImp-TTImp-apply (vector 0 e-98 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 ))))) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-98 "Invalid dependent pair type") eta-0)))))))))))(else (let ((sc1 e-100)) (case (vector-ref sc1 0) ((23) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-99) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-101) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (TTImp-TTImp-apply (vector 0 e-98 (Desugar-Idris-mkdpairname)) (vector 1 e-5 (vector 1 e-6 (vector 0 ))))) eta-0)))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-98 "Invalid dependent pair type") eta-0))))))))))))) ((37) (let ((e-102 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-102 (vector 2 (vector 0 e-102 (vector 1 "MkUnit"))) (vector 1 (vector 0 e-102 (vector 1 "Unit")) (vector 1 (vector 0 e-102 (vector 1 "MkUnit")) (vector 0 ))))) eta-0)))) ((38) (let ((e-103 (vector-ref sc0 1))) (let ((e-104 (vector-ref sc0 2))) (let ((e-105 (vector-ref sc0 3))) (let ((e-106 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-104) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-105 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Desugar-Idris-desugar arg-0 arg-2 arg-3 arg-4 arg-5 arg-6 e-106 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-103 e-5 (vector 0 e-103 (vector 1 "Bool")) (vector 1 (vector 0 e-103 (vector 0 e-103 (vector 1 "True")) e-6) (vector 1 (vector 0 e-103 (vector 0 e-103 (vector 1 "False")) e-7) (vector 0 ))))) eta-0)))))))))))))))))))))) ((39) (let ((e-107 (vector-ref sc0 1))) (let ((e-108 (vector-ref sc0 2))) (let ((e-109 (vector-ref sc0 3))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 31 e-107 (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Desugar-Idris-n--24065-4224-guard e-109 e-108 e-107 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) e-109) (vector 1 (Desugar-Idris-n--24065-4225-toPure e-109 e-108 e-107 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-108) (vector 0 ))))))))) ((40) (let ((e-110 (vector-ref sc0 1))) (let ((e-111 (vector-ref sc0 2))) (let ((e-112 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-111) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-112) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 13 e-110 e-5 e-6)) eta-0)))))))))))))))) ((41) (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 ((sc1 e-115)) (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-113 (vector 7 e-113 (vector 0 e-113 (vector 1 "rangeFromTo")) e-114) e-116))) (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-113 (vector 7 e-113 (vector 7 e-113 (vector 0 e-113 (vector 1 "rangeFromThenTo")) e-114) e-2) e-116))))))))))) ((42) (let ((e-117 (vector-ref sc0 1))) (let ((e-118 (vector-ref sc0 2))) (let ((e-119 (vector-ref sc0 3))) (let ((sc1 e-119)) (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-117 (vector 0 e-117 (vector 1 "rangeFrom")) 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-117 (vector 7 e-117 (vector 0 e-117 (vector 1 "rangeFromThen")) e-118) e-2)))))))))) ((45) (let ((e-120 (vector-ref sc0 1))) (let ((e-121 (vector-ref sc0 2))) (let ((e-122 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-122) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 29 e-120 e-121 e-5)) eta-0))))))))))) ((43) (let ((e-123 (vector-ref sc0 1))) (let ((e-124 (vector-ref sc0 2))) (let ((e-125 (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-123 (vector 0 e-123 f) r))) e-124 e-125)))))) ((44) (let ((e-126 (vector-ref sc0 1))) (let ((e-127 (vector-ref sc0 2))) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (vector 2 e-126 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 1 ) (vector 0 e-126 (vector 2 "rec" 0)) (vector 23 e-126) (Prelude-foldl_Foldable__List 'erased 'erased (lambda (r) (lambda (f) (vector 7 e-126 (vector 0 e-126 f) r))) (vector 0 e-126 (vector 2 "rec" 0)) e-127)))))) (else (let ((e-128 (vector-ref sc0 1))) (let ((e-129 (vector-ref sc0 2))) (let ((e-130 (vector-ref sc0 3))) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 31 e-128 e-129 eta-2)) eta-1)) (Desugar-Idris-desugarB arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-130) 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-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Desugar.Bang" ) (Desugar-Idris-initBangs) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Desugar-Idris-desugarB arg-0 e-5 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Desugar-Idris-bindBangs (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) e-6)) ext-0))))))))))))))))))
(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 30 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--6548-2401 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0)))(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--6411-2154 (lambda (arg-0 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-15 (Shunting-Utils-emit 'erased 'erased arg-9 (vector 0 arg-3 arg-4 arg-5) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-9 arg-6 arg-7 arg-8) eta-0))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-3 (vector 0 arg-4 arg-5)) arg-6)) eta-0)))))))
(define Shunting-Utils-case--6218-2035 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-62_Ord__Nat (Shunting-Utils-getPrec arg-5) arg-4)) eta-0)))))))
(define Shunting-Utils-case--6218-1966 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Prelude-C-62_Ord__Nat arg-3 (Shunting-Utils-getPrec arg-5))) eta-0)))))))
(define Shunting-Utils-n--6548-2307-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--6548-2306-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--6548-2305-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-15 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 1 e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 arg-4 e-10 e-11) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-15 ((Core-Core-traverse 'erased 'erased (lambda (s) (lambda (eta-1) (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 (Shunting-Utils-n--6548-2305-sloc 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--6548-2306-sop 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--6548-2307-sprec 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s)) eta-1))) arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-1) eta-0))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Shunting-Utils-higher 'erased arg-2 e-6 e-10 e-11 arg-5 arg-6) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((sc4 e-5)) (cond ((equal? sc4 0) (let ((act-16 (Shunting-Utils-emit 'erased 'erased arg-3 (vector 0 e-6 e-10 e-11) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else ((Shunting-Utils-processStack 'erased 'erased arg-2 arg-3 e-3 arg-5 arg-6) eta-0)))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-6 (vector 0 e-10 e-11)) e-3)) eta-0)))))))))))))))))))))))
(define Shunting-Utils-parseOps (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Shunting.Out" ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-2) arg-2)) eta-0))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-22 e-23 e-5) e-6)) eta-0)))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14)) eta-0)))))(else (let ((sc3 arg-3)) (case (vector-ref sc3 0) ((1) (let ((e-2 (vector-ref sc3 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-2) arg-2)) eta-0))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-2) arg-2)) eta-0))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-17 e-18 e-13 e-5) e-14)) eta-0)))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-2 (vector-ref sc2 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-2) arg-2)) eta-0))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-2) arg-2)) eta-0))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-2) arg-2)) eta-0))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))(else (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((2) (let ((e-1 (vector-ref sc0 1))) (Shunting-Utils-case--6218-1966 '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--6218-2035 '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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))))) eta-0)))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Shunting-Utils-output 'erased 'erased e-5 arg-3) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (IORef-Data-writeIORef 'erased arg-2 e-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0))))))))))))))
(define Interface-Elab-Idris-case--24413-22220 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (let ((sc4 e-15)) (let ((e-18 (vector-ref sc4 1))) (let ((e-19 (vector-ref sc4 2))) (vector 0 e-14 (vector 0 e-6 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))))
(define Interface-Elab-Idris-case--24437-21938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5 e-14)) eta-0))))))))))) (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--24437-21727 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-15 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-15 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 n (Interface-Elab-Idris-n--24437-21575-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-10 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)))) eta-1)))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-19)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((dty (Utils-TTImp-substNames arg-6 e-5 e-3))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((dtydecl (vector 0 arg-15 e-2 arg-9 (vector 0 ) (vector 0 arg-15 arg-21 e-6)))) (let ((act-18 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--24437-21577-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-10 arg-16 arg-17 arg-18 arg-19 arg-21 eta-1)) arg-18))) (let ((act-19 (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-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 ((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-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-17 arg-18)) eta-0)))))))))))))))))))))))))))))))))))))
(define Interface-Elab-Idris-case--24759-21601 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24282-21208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-8)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (vector 0 e-0 e-1 (ANameMap-Data-addName 'erased arg-5 arg-10 e-2) e-3 e-4 e-5))))))))))
(define Interface-Elab-Idris-case--23731-20749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--23541-20451 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--23501-20438-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--23501-20438-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--23176-20296 (lambda (arg-0 arg-1 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--24282-21125-totMeth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 (Context-Core-getDefaultTotalityOption arg-7 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((treq (Maybe-Data-fromMaybe 'erased (lambda () e-5) (Interface-Elab-Idris-n--24282-21124-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-10)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 (vector 0 e-6 (vector 0 treq e-11)))) eta-0)))))))))))))))))))
(define Interface-Elab-Idris-n--23501-20438-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--23541-20451 '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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) n arg-13))) e-3)))))))))(else arg-14)))))
(define Interface-Elab-Idris-n--24435-21280-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--24413-21244-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--24413-21244-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 (Prelude-C-43_Num__Int arg-15 1) e-3)))))))))))
(define Interface-Elab-Idris-n--23176-20114-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--23176-20114-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--23731-20636-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 30 arg-1 1) (Interface-Elab-Idris-n--23731-20636-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--23731-20638-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--23731-20637-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--23176-20111-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-3)))))))
(define Interface-Elab-Idris-n--23731-20635-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--23731-20635-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 (Prelude-C-43_Num__Int arg-15 1) e-5)))(else (Interface-Elab-Idris-n--23731-20635-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--24282-21124-findSetTotal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Interface-Elab-Idris-n--24282-21124-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))))))
(define Interface-Elab-Idris-n--24413-21246-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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-0) (let ((act-18 ((Context-Core-inCurrentNS arg-14 n) eta-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-setFlag arg-14 arg-10 e-8 (vector 0 ) eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (Context-Core-setFlag arg-14 arg-10 e-8 (vector 3 ) eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Context-Core-setFlag arg-14 arg-10 e-8 (vector 2 ) eta-0)))))))))))))))) arg-16) ext-0)))))))))))))))))
(define Interface-Elab-Idris-n--24413-21247-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-15 ((Context-Core-inCurrentNS arg-14 dn_in) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Interface-Elab-Idris-case--24437-21938 arg-0 arg-1 arg-2 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-10 arg-15)) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-17 ((Core-Core-traverse 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-17 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-1))) (else (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 n (Interface-Elab-Idris-n--24437-21575-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-10 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)))) eta-1)))))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-15)) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-12 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc6 1))) (let ((dty (Utils-TTImp-substNames arg-6 e-12 e-4))) (let ((act-18 (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-18)) (case (vector-ref sc7 0) ((0) (let ((e-13 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-19 (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-19)) (case (vector-ref sc8 0) ((0) (let ((e-14 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((dtydecl (vector 0 e-2 e-9 arg-9 (vector 0 ) (vector 0 e-2 e-5 e-13)))) (let ((act-20 ((Check-Elab-TTImp-processDecl arg-6 arg-14 arg-11 arg-13 (vector 0 ) arg-7 arg-8 dtydecl) eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-15 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-0))) (else (let ((csC-39 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Interface-Elab-Idris-n--24437-21577-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-10 e-6 e-10 e-11 arg-15 e-5 eta-1)) e-11))) (let ((act-21 (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-21)) (case (vector-ref sc10 0) ((0) (let ((e-16 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-0))) (else (let ((act-22 ((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-22)) (case (vector-ref sc11 0) ((0) (let ((e-17 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-17) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-10 e-11)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Interface-Elab-Idris-n--24413-21248-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--24413-21244-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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-18 ((Context-Core-inCurrentNS arg-14 n) eta-1))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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--24413-21245-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-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) c)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--24435-21280-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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 ((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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 (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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-22 (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-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))))))))))
(define Interface-Elab-Idris-n--24042-20903-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--24042-20902-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--24437-21576-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--24759-21601 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24437-21576-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--24437-21576-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--24437-21577-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--24437-21576-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))) (vector 1 e-3 (Interface-Elab-Idris-n--24437-21576-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 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--24437-21577-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-6))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (vector 2 e-7 (Interface-Elab-Idris-n--24437-21576-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-8)))))))))
(define Interface-Elab-Idris-n--23176-20112-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
(define Interface-Elab-Idris-n--23731-20633-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-n--23731-20633-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--24042-20902-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--24042-20902-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--23731-20637-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--23731-20637-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--23176-20113-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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
(define Interface-Elab-Idris-n--24437-21575-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--24437-21575-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--24437-21575-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--23731-20634-applyCon (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (vector 0 arg-15 (vector 9 arg-1 (vector 0 arg-1 arg-15) (vector 1 (vector 1 "__con")) (vector 0 arg-1 (vector 1 "__con"))))))
(define Interface-Elab-Idris-updateIfaceSyn (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--24282-21125-totMeth arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) arg-6) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((info (vector 0 arg-3 arg-4 arg-5 e-6 arg-7))) (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-7 (vector-ref sc2 6))) (vector 0 e-0 e-1 (ANameMap-Data-addName 'erased arg-2 info e-2) e-3 e-4 e-7)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))))))))))))))
(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 (Prelude-C-43_Num__Int arg-0 1) 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 (Prelude-C-43_Num__Int arg-0 1) 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--23176-20296 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--23176-20114-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--23176-20111-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--23176-20114-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--23176-20113-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--23176-20112-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-15 (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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((con (vector 0 arg-2 arg-7 e-5))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 arg-2 arg-3 (vector 0 arg-2 arg-6 e-6 opts (vector 1 con (vector 0 ))))) eta-0))))))))))))))))))
(define Interface-Elab-Idris-mkDataTy (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 27 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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--23731-20633-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--23731-20634-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-15 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) arg-0 (Interface-Elab-Idris-bindIFace e-2 ity ty_constr) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((Context-Core-inCurrentNS arg-1 e-14) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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 30 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--23731-20637-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--23731-20635-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--23731-20636-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--23731-20638-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 ))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 tydecl (vector 1 fndef (vector 0 )))) eta-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-15 (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-15)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-14 (vector 0 e-6 (Interface-Elab-Idris-n--23501-20438-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)))) eta-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-15 (BindImplicits-TTImp-bindTypeNames arg-1 (vector 0 ) (List-Prelude-C-43C-43 'erased arg-8 arg-0) fty eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--24042-20902-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 30 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--24042-20903-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 ))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 hintname (vector 1 tydecl (vector 1 fndef (vector 0 ))))) eta-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-15 ((Context-Core-getFullName arg-1 arg-10) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((conName_in (Prelude-maybe 'erased 'erased (lambda () (Interface-Elab-Idris-mkCon arg-5 e-5)) (lambda () (lambda (eta-0) eta-0)) arg-13))) (let ((act-16 ((Context-Core-inCurrentNS arg-1 conName_in) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((meth_sigs (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getSig eta-0)) arg-14))) (let ((meth_decls (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-3 (vector-ref sc2 2))) (let ((sc3 e-3)) (let ((e-8 (vector-ref sc3 1))) (let ((e-7 (vector-ref sc3 2))) (let ((sc4 e-7)) (let ((e-10 (vector-ref sc4 1))) (let ((e-11 (vector-ref sc4 2))) (let ((sc5 e-11)) (let ((e-14 (vector-ref sc5 1))) (let ((e-15 (vector-ref sc5 2))) (let ((sc6 e-15)) (let ((e-18 (vector-ref sc6 1))) (let ((e-19 (vector-ref sc6 2))) (vector 0 e-14 (vector 0 e-8 (vector 0 e-10 (vector 0 e-18 e-19))))))))))))))))))) meth_sigs))) (let ((meth_names (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) meth_decls))) (let ((defaults (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-getDefault eta-0)) arg-14))) (let ((act-17 (Interface-Elab-Idris-n--24413-21245-elabAsData arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 ((Interface-Elab-Idris-n--24413-21248-elabConstraintHints arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Interface-Elab-Idris-n--24413-21246-elabMethods arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-6 meth_names meth_sigs ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--24413-21247-elabDefault arg-14 arg-13 arg-12 arg-11 arg-10 arg-9 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 meth_decls eta-0)) defaults) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (mt) (lambda (eta-0) (let ((act-21 ((Context-Core-inCurrentNS arg-1 (Builtin-fst 'erased 'erased mt)) eta-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-11 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-11 (Builtin-snd 'erased 'erased mt))) eta-0)))))))) meth_decls) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((Context-Core-inCurrentNS arg-1 e-5) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (Interface-Elab-Idris-updateIfaceSyn arg-1 arg-3 e-12 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) arg-11) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) arg-9) e-11 e-10 ext-0)))))))))))))))))))))))))))))))))))))))))))))
(define Interface-Elab-Idris-bindIFace (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (vector 1 e-0 e-1 (vector 0 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5))) ((2) (vector 1 e-0 e-1 (vector 2 ) e-3 e-4 (Interface-Elab-Idris-bindIFace e-0 arg-1 e-5)))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2)))))))))))(else (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) (vector 2 ) (vector 1 (vector 1 "__con")) arg-1 arg-2))))))
(define Implementation-Elab-Idris-case--25686-22449 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47 arg-48) (let ((sc0 arg-48)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-19 ((Core-Core-traverse_ 'erased 'erased (lambda (n) (lambda (eta-1) (let ((act-19 (Context-Core-checkUnambig arg-17 arg-13 n eta-1))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-9 (vector-ref sc5 1))) (Context-Core-addOpenHint arg-17 e-9 eta-1)))))))) arg-1) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 ((Implementation-Elab-Idris-n--23418-20347-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (vector 0 ) arg-19 arg-46 arg-29 (let ((sc7 arg-23)) (let ((e-1 (vector-ref sc7 2))) e-1)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) (let ((sc7 arg-23)) (let ((e-11 (vector-ref sc7 4))) e-11))) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 ((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--23418-20348-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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((con (let ((sc9 arg-23)) (let ((e-0 (vector-ref sc9 1))) e-0)))) (let ((ilhs (Implementation-Elab-Idris-n--23418-20339-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (vector 0 arg-13 arg-19) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-46))))) (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-13 (vector-ref sc9 1))) (let ((act-24 (Normalise-Core-normaliseHoles (vector 0 ) e-13 (vector 0 ) arg-27 eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-14 (vector-ref sc10 1))) (let ((fldTys (Implementation-Elab-Idris-n--23418-20338-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-25 (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-25)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((irhs (TTImp-TTImp-apply (vector 0 arg-13 con) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (vector 11 arg-13 (Prelude-fromInteger_Num__Nat 500))) (let ((sc12 arg-23)) (let ((e-17 (vector-ref sc12 3))) e-17))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--23418-20342-mkMethField arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-46 fldTys eta-1)) e-11))))) (let ((impFn (vector 2 arg-13 arg-19 (vector 1 (vector 0 arg-13 ilhs irhs) (vector 0 ))))) (let ((act-26 (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-26)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-27 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (x) (lambda (eta-1) (Context-Core-addOpenHint arg-17 arg-19 eta-1)))) arg-2) eta-0))) (let ((sc13 act-27)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-28 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 5 ) eta-0))) (let ((sc14 act-28)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-29 ((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-29)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-30 (Context-Core-unsetFlag arg-17 arg-13 arg-19 (vector 5 ) eta-0))) (let ((sc16 act-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-31 (Context-Core-setFlag arg-17 arg-13 arg-19 (vector 3 ) eta-0))) (let ((sc17 act-31)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((upds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--23418-20349-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-32 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--23418-20353-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 ((sc18 act-32)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-33 (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-22))) eta-0))) (let ((sc19 act-33)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-34 ((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-22) eta-0))) (let ((sc20 act-34)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-35 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--23418-20354-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 ((sc21 arg-23)) (let ((e-25 (vector-ref sc21 4))) e-25))) eta-0))) (let ((sc21 act-35)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-36 (Context-Core-setOpenHints arg-17 hs eta-0))) (let ((sc22 act-36)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Implementation-Elab-Idris-case--25218-22302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44) (let ((sc0 arg-44)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Implementation-Elab-Idris-case--25686-22449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 e-1 _-0 e-5 e-6 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-1))) (let ((sc3 arg-23)) (let ((e-3 (vector-ref sc3 4))) e-3))) (let ((sc3 arg-23)) (let ((e-4 (vector-ref sc3 5))) e-4)) arg-42)) eta-0))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-0)))))))
(define Implementation-Elab-Idris-case--25218-22139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36) (let ((sc0 arg-36)) (cond ((equal? sc0 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) arg-35)) (else (vector 0 ))))))
(define Implementation-Elab-Idris-case--25133-21887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27) (let ((sc0 arg-27)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-15 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) arg-25 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc2 arg-23)) (let ((e-6 (vector-ref sc2 2))) e-6))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc2 arg-23)) (let ((e-2 (vector-ref sc2 3))) e-2))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__TotalReq x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc2 arg-23)) (let ((e-3 (vector-ref sc2 4))) e-3))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc2 arg-23)) (let ((e-0 (vector-ref sc2 1))) e-0))) "\xa;")))))))))))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-1 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (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-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-19 (Context-Core-isUnboundImplicits arg-17 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-20 (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-17 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-1)))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-12 (vector-ref sc9 1))) (let ((act-23 (Context-Core-lookupTyExact arg-19 (let ((sc10 e-12)) (let ((e-0 (vector-ref sc10 1))) e-0)) eta-1))) (let ((sc10 act-23)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (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-24 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-2) eta-1))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-14 (vector-ref sc12 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-14))) eta-1))) (let ((sc13 act-25)) (case (vector-ref sc13 0) ((0) (let ((e-3 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-15 (vector-ref sc13 1))) (let ((_-1 (vector 1 e-2))) ((Implementation-Elab-Idris-case--25686-22449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 e-1 _-0 impsp e-5 e-6 e-7 e-8 opts initTy e-9 paramBinds impTy impTyDecl e-10 e-11 body_in e-12 e-2 _-1 e-14 e-15 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc14 arg-23)) (let ((e-3 (vector-ref sc14 4))) e-3))) (let ((sc14 arg-23)) (let ((e-4 (vector-ref sc14 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0)))))))
(define Implementation-Elab-Idris-case--25046-21827 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25) (let ((sc0 arg-25)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Context-Core-lookupTyExact (let ((sc1 arg-23)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-24)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-16 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name arg-22))) e-1 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-17 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc4 arg-23)) (let ((e-8 (vector-ref sc4 2))) e-8))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc4 arg-23)) (let ((e-7 (vector-ref sc4 3))) e-7))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__TotalReq x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc4 arg-23)) (let ((e-3 (vector-ref sc4 4))) e-3))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc4 arg-23)) (let ((e-0 (vector-ref sc4 1))) e-0))) "\xa;")))))))))))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-2 eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 (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-19)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-20 (Context-Core-isUnboundImplicits arg-17 eta-0))) (let ((sc7 act-20)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-21 (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-21)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-11 (vector-ref sc8 1))) (let ((act-22 (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc9 act-22)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-17 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-1)))) (let ((sc11 act-23)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-13 (vector-ref sc11 1))) (let ((act-24 (Context-Core-lookupTyExact arg-19 (let ((sc12 e-13)) (let ((e-0 (vector-ref sc12 1))) e-0)) eta-1))) (let ((sc12 act-24)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (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-25 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-3) eta-1))) (let ((sc14 act-25)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-15 (vector-ref sc14 1))) (let ((act-26 (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-26)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-16 (vector-ref sc15 1))) (let ((_-2 (vector 1 e-3))) ((Implementation-Elab-Idris-case--25686-22449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 e-1 _-0 e-2 _-1 impsp e-6 e-7 e-8 e-9 opts initTy e-10 paramBinds impTy impTyDecl e-11 e-12 body_in e-13 e-3 _-2 e-15 e-16 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc16 arg-23)) (let ((e-17 (vector-ref sc16 4))) e-17))) (let ((sc16 arg-23)) (let ((e-4 (vector-ref sc16 5))) e-4)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc3 arg-23)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-22) eta-0)))))))
(define Implementation-Elab-Idris-case--23418-21760 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21) (let ((sc0 arg-21)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((0) (let ((cn (Builtin-fst 'erased 'erased e-1))) (let ((cdata (Builtin-snd 'erased 'erased e-1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-17 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-lookupTyExact cn (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-3 (vector-ref sc4 1))) (let ((act-17 (Context-Core-lookupTyExact (let ((sc5 cdata)) (let ((e-0 (vector-ref sc5 1))) e-0)) (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-3))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((1) (let ((e-4 (vector-ref sc6 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-18 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Found interface " (Name-Core-show_Show__Name cn))) e-3 eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (let ((act-19 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 " with params: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) (let ((sc8 cdata)) (let ((e-12 (vector-ref sc8 2))) e-12))) (Strings-Prelude-C-43C-43 " and parents: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (TTImp-TTImp-show_Show__RawImp x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__RawImp d x)))) (let ((sc8 cdata)) (let ((e-11 (vector-ref sc8 3))) e-11))) (Strings-Prelude-C-43C-43 " using implicits: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) impsp) (Strings-Prelude-C-43C-43 " and methods: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-2) (TT-Core-show_Show__TotalReq x-2)) (lambda (d) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-0) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-1) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq 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) (TT-Core-show_Show__TotalReq x-2)) (lambda (d-2) (lambda (x-2) (TT-Core-showPrec_Show__TotalReq d-2 x-2)))) (vector 0 (lambda (x-2) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-2) (lambda (x-3) (Prelude-showPrec_Show__Bool d-2 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-2) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-2 x-3))))) x-2)) (lambda (d-2) (lambda (x-2) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-3) (Prelude-show_Show__Bool x-3)) (lambda (d-3) (lambda (x-3) (Prelude-showPrec_Show__Bool d-3 x-3)))) (vector 0 (lambda (x-3) (TTImp-TTImp-show_Show__RawImp x-3)) (lambda (d-3) (lambda (x-3) (TTImp-TTImp-showPrec_Show__RawImp d-3 x-3))))) d-2 x-2))))) d-1 x-1))))) d-0 x-0))))) d x)))) (let ((sc8 cdata)) (let ((e-10 (vector-ref sc8 4))) e-10))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc8 cdata)) (let ((e-0 (vector-ref sc8 1))) e-0))) "\xa;")))))))))))) eta-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-9 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc8 1))) (let ((act-20 (Context-Core-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-4 eta-0))) (let ((sc9 act-20)) (case (vector-ref sc9 0) ((0) (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (let ((act-21 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Making implementation " (Name-Core-show_Show__Name arg-19))) eta-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-11 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-11) eta-0))) (else (let ((e-11 (vector-ref sc10 1))) (let ((opts (Prelude-maybe 'erased 'erased (lambda () (vector 1 (vector 0 ) (vector 1 (vector 2 0) (vector 0 )))) (lambda () (lambda (eta-1) (vector 1 (vector 0 ) (vector 0 )))) arg-2))) (let ((initTy (Implementation-Elab-Idris-bindImpls arg-13 arg-6 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (TTImp-TTImp-apply (vector 0 arg-13 arg-4) arg-3))))) (let ((act-22 (Context-Core-isUnboundImplicits arg-17 eta-0))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-12 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-12) eta-0))) (else (let ((e-12 (vector-ref sc11 1))) (let ((paramBinds (let ((sc12 e-12)) (cond ((equal? sc12 0) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) initTy)) (else (vector 0 )))))) (let ((impTy (BindImplicits-TTImp-doBind paramBinds initTy))) (let ((impTyDecl (vector 0 arg-13 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-12 opts (vector 0 arg-13 arg-19 impTy)))) (let ((act-23 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Implementation type: " (TTImp-TTImp-show_Show__RawImp impTy))) eta-0))) (let ((sc12 act-23)) (case (vector-ref sc12 0) ((0) (let ((e-13 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (else (let ((e-13 (vector-ref sc12 1))) (let ((act-24 (let ((sc13 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc13 0) ((Check-Elab-TTImp-processDecl arg-7 arg-17 arg-14 arg-16 (vector 0 ) arg-8 arg-9 impTyDecl) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))) (let ((sc13 act-24)) (case (vector-ref sc13 0) ((0) (let ((e-14 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-14) eta-0))) (else (let ((e-14 (vector-ref sc13 1))) (let ((sc14 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc14 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-25 (let ((act-25 (IORef-Data-readIORef 'erased arg-17 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) eta-1)))) (let ((sc15 act-25)) (case (vector-ref sc15 0) ((0) (let ((e-15 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-15) eta-1))) (else (let ((e-15 (vector-ref sc15 1))) (let ((act-26 (Context-Core-lookupTyExact arg-19 (let ((sc16 e-15)) (let ((e-0 (vector-ref sc16 1))) e-0)) eta-1))) (let ((sc16 act-26)) (case (vector-ref sc16 0) ((0) (let ((e-16 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-16) eta-1))) (else (let ((e-16 (vector-ref sc16 1))) (let ((_-1 (vector 1 e-4))) (let ((sc17 e-16)) (case (vector-ref sc17 0) ((1) (let ((e-17 (vector-ref sc17 1))) (let ((act-27 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-17) eta-1))) (let ((sc18 act-27)) (case (vector-ref sc18 0) ((0) (let ((e-18 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-18) eta-1))) (else (let ((e-18 (vector-ref sc18 1))) (let ((act-28 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Bind implicits to each method: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-0) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-0 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-0) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega x-1)) (lambda (d-1) (lambda (x-1) (ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega d-1 x-1)))) (vector 0 (lambda (x-1) (TTImp-TTImp-show_Show__RawImp x-1)) (lambda (d-1) (lambda (x-1) (TTImp-TTImp-showPrec_Show__RawImp d-1 x-1))))) d-0 x-0))))) d x)))) e-18))) eta-1))) (let ((sc19 act-28)) (case (vector-ref sc19 0) ((0) (let ((e-19 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-19) eta-1))) (else (let ((e-19 (vector-ref sc19 1))) (let ((_-2 (vector 1 e-17))) ((Implementation-Elab-Idris-case--25686-22449 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 e-1 cn cdata e-5 e-3 _-0 e-4 _-1 impsp e-8 e-9 e-10 e-11 opts initTy e-12 paramBinds impTy impTyDecl e-13 e-14 body_in e-15 e-17 _-2 e-18 e-19 (Implementation-Elab-Idris-addDefaults arg-13 arg-19 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-2) (Name-Core-dropNS (Builtin-fst 'erased 'erased eta-2))) (let ((sc20 cdata)) (let ((e-21 (vector-ref sc20 4))) e-21))) (let ((sc20 cdata)) (let ((e-20 (vector-ref sc20 5))) e-20)) body_in)) eta-1)))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't happen, can't find type of " (Name-Core-show_Show__Name arg-19))) eta-1)))))))))))))))))) arg-0) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))))))))))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 (let ((sc7 cdata)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 cn) eta-0))))))))))))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))) ((0) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-13 arg-4) eta-0)))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 17 arg-13 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-21)) eta-0)))))))
(define Implementation-Elab-Idris-case--23458-21569 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-15 (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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Implementation-Elab-Idris-case--23454-21319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define Implementation-Elab-Idris-case--23451-21199 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26) (let ((sc0 arg-26)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Implementation-Elab-Idris-n--23418-20347-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-3 arg-25) arg-24 arg-23 arg-22 arg-21 arg-20 arg-19) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-5)) eta-0))))))))))))
(define Implementation-Elab-Idris-case--23839-20947 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 arg-34 arg-35 arg-36 arg-37 arg-38 arg-39 arg-40 arg-41 arg-42 arg-43 arg-44 arg-45 arg-46 arg-47) (let ((sc0 arg-47)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 0 arg-29 (Implementation-Elab-Idris-n--23418-20339-impsApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (vector 0 arg-13 arg-29) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) arg-46))) (vector 0 )))))))
(define Implementation-Elab-Idris-case--23450-20713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33) (let ((sc0 arg-33)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((mty_in (Utils-TTImp-substNames arg-7 arg-28 e-2))) (let ((mbase (Implementation-Elab-Idris-n--23418-20345-bindImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-26 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 (Utils-TTImp-substNames arg-7 (List-Data-zip 'erased 'erased arg-24 arg-3) mty_in))))) (let ((ibound (TTImp-TTImp-findImplicits mbase))) (lambda (eta-0) (let ((act-15 (BindImplicits-TTImp-bindTypeNamesUsed arg-17 ibound arg-7 mbase eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Method " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-18) (Strings-Prelude-C-43C-43 " ==> " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name arg-29) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-5))))))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "    (initially " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp mty_in) ")"))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d) (lambda (x-0) (Name-Core-showPrec_Show__Name d x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Name-Core-show_Show__Name x-0)) (lambda (d-0) (lambda (x-0) (Name-Core-showPrec_Show__Name d-0 x-0)))) (vector 0 (lambda (x-0) (TTImp-TTImp-show_Show__RawImp x-0)) (lambda (d-0) (lambda (x-0) (TTImp-TTImp-showPrec_Show__RawImp d-0 x-0))))) d x)))) arg-28))) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From " (TTImp-TTImp-show_Show__RawImp mbase))) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Name updates " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__String d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__String x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__String d-0 x-0))))) d x)))) e-3))) eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((act-21 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () (Strings-Prelude-C-43C-43 "Param names: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Name-Core-show_Show__Name x)) (lambda (d) (lambda (x) (Name-Core-showPrec_Show__Name d x)))) arg-24))) eta-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-11 (vector-ref sc7 1))) (let ((act-22 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () (Strings-Prelude-C-43C-43 "Used names " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) ibound))) eta-0))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((ibinds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-26))) (let ((methupdsC-39 (Implementation-Elab-Idris-case--23839-20947 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 e-2 e-3 mty_in mbase ibound e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 ibinds (List-Data-isNil 'erased ibinds)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 arg-18 (vector 0 arg-29 (vector 0 e-3 (vector 0 arg-19 (vector 0 arg-20 e-5))))) methupdsC-39)) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Implementation-Elab-Idris-case--23229-20168 (lambda (arg-0 arg-1 arg-2 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--23223-20147-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--23223-20147-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--23418-20352-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-15 ((Implementation-Elab-Idris-n--23418-20351-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5 e-2)) 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))) (lambda (eta-0) (let ((act-15 ((Implementation-Elab-Idris-n--23418-20351-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--23418-20352-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-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-3 e-7 e-5 e-8)) eta-0))))))))))))))))) (else (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Implementation-Elab-Idris-n--23418-20351-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-8) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-7 e-5)) eta-0))))))))))))))
(define Implementation-Elab-Idris-n--23418-20353-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--23418-20352-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Implementation-Elab-Idris-n--23418-20350-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-0 e-6 e-5)) eta-0))))))))))))))))(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--23418-20351-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-15 ((Implementation-Elab-Idris-n--23418-20350-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5)) eta-0)))))))))) ((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-15 ((Implementation-Elab-Idris-n--23418-20351-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-2 e-5 e-4)) eta-0))))))))))) ((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-15 ((Implementation-Elab-Idris-n--23418-20351-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-5 e-9 e-7 e-8)) eta-0))))))))))))(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--23418-20347-topMethTypes (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Implementation-Elab-Idris-n--23418-20346-topMethType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 ((Implementation-Elab-Idris-n--23418-20347-topMethTypes arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 (List-Prelude-C-43C-43 'erased e-4 arg-18) arg-19 arg-20 arg-21 arg-22 arg-23 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7)) eta-0))))))))))))))))))))))
(define Implementation-Elab-Idris-n--23418-20346-topMethType (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24) (let ((sc0 arg-24)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (let ((sc3 e-11)) (let ((e-14 (vector-ref sc3 1))) (let ((e-15 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--23418-20343-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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Implementation-Elab-Idris-n--23418-20344-applyCon arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-19 eta-1 eta-2))) arg-23) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--23450-20713 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 e-2 e-6 e-10 e-14 e-15 arg-23 arg-22 arg-21 arg-20 arg-19 arg-18 e-5 e-8 updsC-39 mty_in (State-Monad-Control-runState 'erased 'erased (BindImplicits-TTImp-renameIBinds arg-21 (TTImp-TTImp-findImplicits mty_in) mty_in) (vector 0 ))) eta-0))))))))))))))))))))))))))))
(define Implementation-Elab-Idris-n--23418-20348-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))) (vector 0 arg-13 e-14 arg-12 (vector 1 (vector 7 e-18) arg-11) (vector 0 arg-13 e-6 e-19)))))))))))))))))
(define Implementation-Elab-Idris-n--23418-20342-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--23446-20527-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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--23418-20340-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--23418-20339-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--23418-20341-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--23418-20340-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 30 arg-13 1) (Implementation-Elab-Idris-n--23418-20340-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--23418-20349-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--23418-20343-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--23418-20343-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--23418-20339-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--23418-20339-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--23418-20338-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--23442-20365-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--23418-20338-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--23442-20365-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--23442-20365-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--23418-20350-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--23454-21319 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-20 arg-18))))
(define Implementation-Elab-Idris-n--23223-20147-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--23229-20168 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) e-2 arg-1)))))))))
(define Implementation-Elab-Idris-n--23223-20148-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--23223-20148-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--23223-20148-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))
(define Implementation-Elab-Idris-n--23418-20345-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--23418-20345-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--23446-20527-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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-4 arg-20)))))(else arg-26)))))(else arg-26))))))(else arg-26)))))
(define Implementation-Elab-Idris-n--23418-20341-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--23418-20341-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--23418-20341-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--23418-20341-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--23418-20341-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--23418-20344-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-15 ((Context-Core-inCurrentNS arg-17 (Implementation-Elab-Idris-n--23418-20343-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Name-Core-dropNS arg-19) (vector 0 arg-13 e-5))) ext-0))))))))
(define Implementation-Elab-Idris-n--23418-20354-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-15 (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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--23458-21569 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) (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-15 (Unelab-TTImp-unelabNoSugar arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-2 (vector 0 e-6 e-5)) e-9)) eta-0)))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Context-Core-inCurrentNS arg-1 impName_in) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-3 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Implementation-Elab-Idris-case--23418-21760 arg-17 arg-16 arg-15 arg-14 arg-13 arg-12 arg-11 arg-0 arg-10 arg-9 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 impName_in e-5 e-6 (ANameMap-Data-lookupName 'erased arg-13 (let ((sc2 e-6)) (let ((e-2 (vector-ref sc2 3))) e-2)))) eta-0)))))))))))))))
(define Implementation-Elab-Idris-bindImpls (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) arg-2) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (vector 1 arg-0 e-10 (vector 0 ) (vector 1 e-6) e-11 (Implementation-Elab-Idris-bindImpls arg-0 e-3 arg-2)))))))))))))))
(define Implementation-Elab-Idris-bindConstraints (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) arg-3) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 arg-0 (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega) arg-1 e-6 e-7 (Implementation-Elab-Idris-bindConstraints arg-0 arg-1 e-3 arg-3))))))))))))
(define Implementation-Elab-Idris-addDefaults (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((missing (Implementation-Elab-Idris-n--23223-20148-dropGot arg-4 arg-3 arg-2 arg-1 arg-0 arg-2 arg-4))) (Implementation-Elab-Idris-n--23223-20147-extendBody arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) missing arg-4))))
(define Inline-Compiler-case--14628-3844 (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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Inline-Compiler-case--14561-3785 (lambda (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-15 ((Inline-Compiler-mergeLam arg-1 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Inline-Compiler-case--14545-3773 (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--14561-3785 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Inline-Compiler-case--14481-3715 (lambda (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-15 ((Inline-Compiler-fixArity arg-1 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Inline-Compiler-case--14465-3703 (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--14481-3715 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Inline-Compiler-case--14401-3645 (lambda (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-15 ((Inline-Compiler-inline arg-1 arg-0 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Context-Core-setCompiled arg-1 arg-0 e-5 eta-0))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Inline-Compiler-case--14385-3633 (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--14401-3645 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Inline-Compiler-case--14355-3601 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0)))))))
(define Inline-Compiler-case--14199-3466 (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--13632-2928 (lambda (arg-0 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 arity (vector 4 arg-2 (vector 1 arg-2 arg-1) (vector 0 )) arg-3)) eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))) eta-0)))))))
(define Inline-Compiler-case--13608-2910 (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--13632-2928 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-3 (vector 1 arg-2 arg-1))) eta-0)))))))
(define Inline-Compiler-case--11657-2806 (lambda (arg-0 arg-1 arg-2 arg-3 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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 1 eta-2)) eta-1)) (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--13243-2616 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-0))))))))))))))
(define Inline-Compiler-case--11650-2575 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13243-2616 arg-0 arg-1 arg-2 arg-3 arg-4 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--11638-2441 (lambda (arg-0 arg-1 arg-2 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-5 arg-4 arg-0 (CompileExpr-Core-refsToLocals arg-0 arg-1 e-2 e-5))) eta-0))))))))))))
(define Inline-Compiler-case--11633-2397 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-2 arg-7 e-2) (vector 1 (vector 1 arg-5 arg-7) e-3))) eta-0)))))))
(define Inline-Compiler-case--11627-2251 (lambda (arg-0 arg-1 arg-2 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 arg-5 arg-11 e-6 e-5)) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define Inline-Compiler-case--11627-2144 (lambda (arg-0 arg-1 arg-2 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 arg-5 arg-11 e-6 e-5)) eta-0))))))))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))
(define Inline-Compiler-case--11627-2045 (lambda (arg-0 arg-1 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-4 (vector 8 arg-3 arg-9))) eta-0)))))))
(define Inline-Compiler-case--11627-1810 (lambda (arg-0 arg-1 arg-2 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-15 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) arg-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 (Inline-Compiler-genName arg-9 "letv" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Inline-Compiler-eval arg-2 arg-1 arg-10 arg-9 arg-8 arg-7 (vector 0 ) arg-4) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 arg-5 arg-0 0 e-7 (Inline-Compiler-refToLocal arg-1 e-5 arg-0 e-6))) eta-0))))))))))))))))))))))
(define Inline-Compiler-case--12066-1558 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)) eta-0)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unloadApp 'erased arg-13 arg-4 (vector 1 arg-3 arg-2))) eta-0)))))))
(define Inline-Compiler-case--12029-1519 (lambda (arg-0 arg-1 arg-2 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--12066-1558 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-621) (lambda (arg-622) (Context-Core-C-61C-61_Eq__DefFlag arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Context-Core-C-47C-61_Eq__DefFlag arg-623 arg-624)))) (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-621) (lambda (arg-622) (Name-Core-C-61C-61_Eq__Name arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Name-Core-C-47C-61_Eq__Name arg-623 arg-624)))) arg-2 arg-6)))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2))) eta-0)))))))
(define Inline-Compiler-case--11627-1493 (lambda (arg-0 arg-1 arg-2 arg-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--12029-1519 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-4 (vector 1 arg-3 arg-2))) eta-0)))))))
(define Inline-Compiler-case--11622-1294 (lambda (arg-0 arg-1 arg-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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-7)) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Inline-Compiler-case--11615-1206 (lambda (arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))(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--11115-1062 (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--11112-743 (lambda (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) (Prelude-fromInteger_Num__Int 1000)) (else arg-8)))))
(define Inline-Compiler-case--11112-649 (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--11050-596 (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--10918-484 (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--13608-3097-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-fixArityTm arg-7 arg-5 e-3 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Inline-Compiler-n--13608-3097-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0)))))))))))))))))))
(define Inline-Compiler-n--14625-3828-nonErased (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) ext-0))))))))))))))))
(define Inline-Compiler-n--11650-2538-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--13608-3265-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-15 ((Inline-Compiler-fixArityTm arg-0 arg-6 e-2 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-5)) eta-0))))))))))))
(define Inline-Compiler-n--13608-3208-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-15 ((Inline-Compiler-fixArityTm (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-6 e-4 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-2 e-3 e-5)) eta-0))))))))))))))
(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--11115-1062 '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--11112-649 '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 (Prelude-C-43_Num__Int (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)))) (Inline-Compiler-case--11112-743 '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) (Prelude-C-43_Num__Int (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)))(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) (Prelude-C-43_Num__Int eta-0 eta-1))) (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) (Prelude-C-43_Num__Int eta-0 eta-1))) 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) (Prelude-C-43_Num__Int eta-0 eta-1))) 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) (Prelude-C-43_Num__Int eta-0 eta-1))) 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))) (Prelude-C-43_Num__Int (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-41) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (Prelude-maybe 'erased 'erased (lambda () (Prelude-fromInteger_Num__Int 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))))))) ((11) (let ((e-46 (vector-ref sc0 2))) (let ((e-47 (vector-ref sc0 3))) (let ((e-48 (vector-ref sc0 4))) (Prelude-C-43_Num__Int (Inline-Compiler-used 'erased arg-1 arg-2 'erased e-46) (Inline-Compiler-largest 'erased (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Prelude-compare_Ord__Int arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Prelude-C-60_Ord__Int arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Prelude-C-62_Ord__Int arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Prelude-C-60C-61_Ord__Int arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Prelude-C-62C-61_Ord__Int arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Prelude-max_Ord__Int arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Prelude-min_Ord__Int arg-896 arg-897)))) (Prelude-maybe 'erased 'erased (lambda () (Prelude-fromInteger_Num__Int 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)))))))(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--11622-1294 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--11657-2806 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--11650-2575 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--11650-2538-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--14199-3466 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--14561-3785 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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--14355-3601 e-0 e-1 arg-0 (Inline-Compiler-mergeLambdas e-0 e-1)))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(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--11050-596 '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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--14401-3645 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (Inline-Compiler-doEval e-0 arg-0 arg-1 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5)) eta-0))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))))))
(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) (Prelude-C-43_Num__Int arg-2 1) (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Prelude-C-43_Num__Int e-5 1) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-1 e-5)) ext-0))))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--13632-2928 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-3 (vector 1 e-2 e-3))) 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-15 ((Inline-Compiler-fixArityTm (vector 1 e-6 arg-0) arg-1 e-7 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 (vector 2 e-5 e-6 e-8) arg-3)) 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) (let ((act-15 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-12 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Inline-Compiler-fixArityTm (vector 1 e-10 arg-0) arg-1 e-13 (vector 0 )) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 (vector 3 e-9 e-10 e-11 e-5 e-6) arg-3)) eta-0)))))))))))))))))) ((4) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-17) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-22) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-19 e-20 e-21 e-5)) eta-0))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)) eta-0))))))))))))) ((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-15 ((Inline-Compiler-n--13608-3097-traverseArgs arg-0 e-24 e-27 e-26 e-25 arg-1 'erased arg-0 e-27) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-24 e-25 e-26 e-5)) eta-0))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)) eta-0))))))))))))) ((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-15 ((Core-Core-traverse 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-31) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-29 e-30 e-5)) eta-0))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)) eta-0)))))))))))) ((8) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-34 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 (vector 8 e-33 e-5) arg-3)) eta-0)))))))))) ((9) (let ((e-36 (vector-ref sc0 1))) (let ((e-37 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-37 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 (vector 9 e-36 e-5) arg-3)) eta-0)))))))))) ((10) (let ((e-39 (vector-ref sc0 1))) (let ((e-40 (vector-ref sc0 2))) (let ((e-41 (vector-ref sc0 3))) (let ((e-42 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-40 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--13608-3208-fixArityAlt arg-0 e-42 e-41 e-40 e-39 arg-3 arg-1 eta-1)) e-41) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-42) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 (vector 10 e-39 e-5 e-6 e-7) arg-3)) eta-0)))))))))))))))))))))) ((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-15 ((Inline-Compiler-fixArityTm arg-0 arg-1 e-45 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Inline-Compiler-n--13608-3265-fixArityConstAlt arg-0 e-47 e-46 e-45 e-44 arg-3 arg-1 eta-1)) e-46) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverseOpt 'erased 'erased (lambda (tm) (Inline-Compiler-fixArityTm arg-0 arg-1 tm (vector 0 ))) e-47) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 (vector 11 e-44 e-5 e-6 e-7) arg-3)) eta-0))))))))))))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (CompileExpr-Compiler-expandToArity arg-0 0 arg-2 arg-3)) eta-0))))))))))
(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--14481-3715 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 ((Inline-Compiler-fixArityTm e-0 arg-0 e-1 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 e-5)) eta-0)))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-fixArityTm (vector 0 ) arg-0 e-2 (vector 0 )) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-5)) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-1) eta-0)))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) arg-4)) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Inline-Compiler-genName arg-2 "cv" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Inline-Compiler-extendLoc 'erased 'erased arg-2 arg-3 arg-4 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-2 e-5 e-7) (vector 1 (vector 1 arg-3 e-5) e-4))) eta-0))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-7 (vector 0 arg-9 arg-5))) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) eta-0)))(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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 0 e-1 eta-2)) eta-1)) (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-15 ((Inline-Compiler-extendLoc 'erased 'erased arg-3 arg-4 arg-6 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-2 e-3 (CompileExpr-Core-refsToLocals e-3 arg-1 e-7 e-8))) eta-0))))))))))))))))))))))
(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-15 (Inline-Compiler-genName arg-3 "act" eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc13 e-5)) (let ((e-0 (vector-ref sc13 1))) e-0))) eta-0))) (let ((sc13 act-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-15)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-16 ((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-16)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-17)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-18 ((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-18)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-18 ((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-18)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc14 act-15)) (case (vector-ref sc14 0) ((0) (let ((e-6 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((act-16 ((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-16)) (case (vector-ref sc15 0) ((0) (let ((e-7 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc16 act-17)) (case (vector-ref sc16 0) ((0) (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc12 1))) (let ((e-26 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc12 1))) (let ((e-29 (vector-ref sc12 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-18 ((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-18)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc14 1))) (let ((sc15 e-6)) (case (vector-ref sc15 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc16 1))) (let ((act-18 ((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-18)) (case (vector-ref sc17 0) ((0) (let ((e-2 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc12 1))) (let ((e-42 (vector-ref sc12 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc12 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc12 1))) (let ((e-47 (vector-ref sc12 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-18 ((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-18)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-18 ((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-18)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc12 e-5)) (let ((e-0 (vector-ref sc12 1))) e-0))) eta-0))) (let ((sc12 act-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-18 ((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-18)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-18 ((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-18)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc13 act-15)) (case (vector-ref sc13 0) ((0) (let ((e-6 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((act-16 ((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-16)) (case (vector-ref sc14 0) ((0) (let ((e-7 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc15 act-17)) (case (vector-ref sc15 0) ((0) (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc11 1))) (let ((e-26 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc11 1))) (let ((e-29 (vector-ref sc11 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-18 ((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-18)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc13 1))) (let ((sc14 e-6)) (case (vector-ref sc14 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc15 1))) (let ((act-18 ((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-18)) (case (vector-ref sc16 0) ((0) (let ((e-2 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc11 1))) (let ((e-42 (vector-ref sc11 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc11 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc11 1))) (let ((e-47 (vector-ref sc11 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-18 ((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-18)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-18 ((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-18)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc11 e-5)) (let ((e-0 (vector-ref sc11 1))) e-0))) eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-18 ((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-18)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-18 ((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-18)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc12 act-15)) (case (vector-ref sc12 0) ((0) (let ((e-6 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((act-16 ((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-16)) (case (vector-ref sc13 0) ((0) (let ((e-7 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc14 act-17)) (case (vector-ref sc14 0) ((0) (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc10 1))) (let ((e-26 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc10 1))) (let ((e-29 (vector-ref sc10 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-18 ((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-18)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc12 1))) (let ((sc13 e-6)) (case (vector-ref sc13 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc14 1))) (let ((act-18 ((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-18)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc10 1))) (let ((e-42 (vector-ref sc10 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc10 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc10 1))) (let ((e-47 (vector-ref sc10 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-18 ((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-18)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-18 ((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-18)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc10 e-5)) (let ((e-0 (vector-ref sc10 1))) e-0))) eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-18 ((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-18)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-18 ((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-18)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc11 act-15)) (case (vector-ref sc11 0) ((0) (let ((e-6 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((act-16 ((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-16)) (case (vector-ref sc12 0) ((0) (let ((e-7 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc13 act-17)) (case (vector-ref sc13 0) ((0) (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc9 1))) (let ((e-26 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc9 1))) (let ((e-29 (vector-ref sc9 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-18 ((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-18)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc11 1))) (let ((sc12 e-6)) (case (vector-ref sc12 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc13 1))) (let ((act-18 ((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-18)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc9 1))) (let ((e-42 (vector-ref sc9 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc9 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc9 1))) (let ((e-47 (vector-ref sc9 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-18 ((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-18)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-18 ((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-18)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc9 e-5)) (let ((e-0 (vector-ref sc9 1))) e-0))) eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-18 ((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-18)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-18 ((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-18)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-6 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((act-16 ((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-16)) (case (vector-ref sc11 0) ((0) (let ((e-7 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc12 act-17)) (case (vector-ref sc12 0) ((0) (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc8 1))) (let ((e-26 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc8 1))) (let ((e-29 (vector-ref sc8 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-18 ((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-18)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc10 1))) (let ((sc11 e-6)) (case (vector-ref sc11 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc12 1))) (let ((act-18 ((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-18)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc8 1))) (let ((e-42 (vector-ref sc8 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc8 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc8 1))) (let ((e-47 (vector-ref sc8 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-18 ((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-18)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-18 ((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-18)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc8 e-5)) (let ((e-0 (vector-ref sc8 1))) e-0))) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-18 ((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-18)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-18 ((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-18)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-6 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((act-16 ((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-16)) (case (vector-ref sc10 0) ((0) (let ((e-7 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc11 act-17)) (case (vector-ref sc11 0) ((0) (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc7 1))) (let ((e-26 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc7 1))) (let ((e-29 (vector-ref sc7 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-18 ((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-18)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc9 1))) (let ((sc10 e-6)) (case (vector-ref sc10 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc11 1))) (let ((act-18 ((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-18)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc7 1))) (let ((e-42 (vector-ref sc7 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc7 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc7 1))) (let ((e-47 (vector-ref sc7 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc7 e-5)) (let ((e-0 (vector-ref sc7 1))) e-0))) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-6 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-7 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc6 1))) (let ((e-26 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc6 1))) (let ((e-29 (vector-ref sc6 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((sc9 e-6)) (case (vector-ref sc9 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc6 1))) (let ((e-42 (vector-ref sc6 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc6 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc6 1))) (let ((e-47 (vector-ref sc6 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((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-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((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-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc6 e-5)) (let ((e-0 (vector-ref sc6 1))) e-0))) eta-0))) (let ((sc6 act-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((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-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((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-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((act-16 ((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-16)) (case (vector-ref sc8 0) ((0) (let ((e-7 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc5 1))) (let ((e-26 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc5 1))) (let ((e-29 (vector-ref sc5 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((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-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (let ((sc8 e-6)) (case (vector-ref sc8 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-18 ((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-18)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc5 1))) (let ((e-42 (vector-ref sc5 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc5 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc5 1))) (let ((e-47 (vector-ref sc5 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((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-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((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-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) e-0))) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((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-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((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-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-6 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((act-16 ((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-16)) (case (vector-ref sc7 0) ((0) (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc8 act-17)) (case (vector-ref sc8 0) ((0) (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc4 1))) (let ((e-26 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc4 1))) (let ((e-29 (vector-ref sc4 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((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-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc6 1))) (let ((sc7 e-6)) (case (vector-ref sc7 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-18 ((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-18)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc4 1))) (let ((e-42 (vector-ref sc4 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc4 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc4 1))) (let ((e-47 (vector-ref sc4 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc4 e-5)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((act-16 ((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-16)) (case (vector-ref sc6 0) ((0) (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc3 1))) (let ((e-26 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (let ((sc6 e-6)) (case (vector-ref sc6 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-18 ((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-18)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc3 1))) (let ((e-42 (vector-ref sc3 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc3 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc3 1))) (let ((e-47 (vector-ref sc3 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0))) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((act-16 ((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-16)) (case (vector-ref sc5 0) ((0) (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc2 1))) (let ((e-26 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc2 1))) (let ((e-29 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-18 ((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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc2 1))) (let ((e-42 (vector-ref sc2 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc2 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc2 1))) (let ((e-47 (vector-ref sc2 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))))))))))(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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Context-Core-lookupCtxtExact e-62 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--12029-1519 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 1 e-61 e-62))) eta-0))))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "lamv" eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-53 e-54 (Inline-Compiler-refToLocal arg-1 e-5 e-54 e-6))) eta-0))))))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0))))))))))) ((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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((act-16 ((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-16)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((act-18 ((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-18)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc1 1))) (let ((e-42 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc1 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc1 1))) (let ((e-47 (vector-ref sc1 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))(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-15 (Inline-Compiler-genName arg-3 "letv" eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((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-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-4) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--11627-1810 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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 5 e-11 e-12 e-13 e-5))) eta-0)))))))))))) ((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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 6 e-16 e-17 e-18 e-5))) eta-0)))))))))))) ((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-15 ((Core-Core-traverse 'erased '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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 7 e-21 e-22 e-5))) eta-0))))))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 8 e-25 e-5))) eta-0))))))))))))) ((9) (let ((e-28 (vector-ref sc0 1))) (let ((e-29 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-29) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 9 e-28 e-5))) eta-0)))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-32) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 ((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-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-31 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((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-15 ((Inline-Compiler-eval arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-37) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((0) (let ((act-17 ((Core-Core-traverseOpt 'erased '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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-18 ((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-18)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-36 e-5 e-8 e-7)) eta-0)))))))))))) (else (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-2) eta-0))))))))))))))))))))) ((12) (let ((e-41 (vector-ref sc0 1))) (let ((e-42 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 12 e-41 e-42))) eta-0))))) ((13) (let ((e-44 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 13 e-44))) eta-0)))) (else (let ((e-46 (vector-ref sc0 1))) (let ((e-47 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Inline-Compiler-unload 'erased arg-6 (vector 14 e-46 e-47))) eta-0)))))))))))))))))))))
(define Inline-Compiler-doEval (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Compiler.Inline.LVar" ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 ((Inline-Compiler-eval (vector 0 ) arg-0 arg-1 e-5 (vector 0 ) (vector 0 ) (vector 0 ) arg-3) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-7) ext-0)))))))))))))))))))))
(define Inline-Compiler-compileAndInlineAll (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Inline-Compiler-n--14625-3828-nonErased arg-0 eta-0 eta-1))) ns) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 ((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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 ((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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 ((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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-22 ((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-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 MakeClause-IDEMode-Idris-case--2898-953 (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--2833-939 (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--2898-953 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--2833-878-readLHS arg-0 arg-1 0 (Prelude-unpack src))))) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2833-880-mkWithArg arg-0 arg-1 e-2 indent lhs) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2833-881-mkWithPat arg-0 arg-1 e-2 indent lhs) "\xa;"))))))))))))
(define MakeClause-IDEMode-Idris-case--2808-865 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "op") (else arg-1)))))
(define MakeClause-IDEMode-Idris-n--2833-878-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--2833-878-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc3 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2833-878-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--2833-878-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc2 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2833-878-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--2833-878-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc1 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2833-878-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))
(define MakeClause-IDEMode-Idris-n--2833-879-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--2833-881-mkWithPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2833-879-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--2833-880-mkWithArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2833-879-pref arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 arg-4 "with (_)"))))
(define MakeClause-IDEMode-Idris-showRHSName (lambda (arg-0) (let ((fn (Name-Core-show_Show__Name (Name-Core-dropNS arg-0)))) (MakeClause-IDEMode-Idris-case--2808-865 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--2833-939 arg-1 arg-0 (Unlit-Parser-isLitLine arg-1))))
(define CaseSplit-IDEMode-Idris-case--24376-1157 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 (CaseSplit-IDEMode-Idris-n--24252-1014-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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"))))))) eta-0))))))
(define CaseSplit-IDEMode-Idris-case--24317-1125 (lambda (arg-0 arg-1 arg-2 arg-3 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--24376-1157 arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseSplit-IDEMode-Idris-case--24252-1074 (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-15 ((Context-Core-getFullName arg-4 e-9) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((act-16 (let ((act-16 ((Normalise-Core-nf (vector 0 ) arg-5 (vector 0 ) e-14) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-17 (REPLOpts-Idris-getSourceLine arg-2 arg-1 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--24376-1157 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseSplit-IDEMode-Idris-case--24223-997 (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--24218-984 (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--24020-859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((stok (TokenLine-IDEMode-Idris-tokens arg-10))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Idris.IDEMode.CaseSplit.UPD" ) (vector 0 ) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--23983-800 (lambda (arg-0 arg-1 arg-2 arg-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--23892-696-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--23892-697-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--24020-859 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--23930-772 (lambda (arg-0 arg-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--23892-696-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--23892-697-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--24020-859 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--23892-725 (lambda (arg-0 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-15 (let ((act-15 (File-System-readFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--23892-696-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--23892-697-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--24020-859 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--23512-514 (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-15 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 arg-3 arg-2 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 arg-0) e-5)) eta-0)))))))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((CaseSplit-IDEMode-Idris-doUpdates arg-4 arg-3 arg-2 arg-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 6 e-2) e-5)) eta-0)))))))))))))
(define CaseSplit-IDEMode-Idris-case--23574-416 (lambda (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-15 ((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-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7))))) eta-0)))))))) ((5) (lambda (eta-0) (let ((act-15 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-3) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-7))))) eta-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)))))))(else (CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 arg-0))))))
(define CaseSplit-IDEMode-Idris-case--23512-388 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (arg-5) (List-Prelude-C-43C-43 'erased (vector 1 (vector 3 ) e-2) arg-5)) eta-1)) (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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8))))) eta-1)))))))) ((5) (lambda (eta-1) (let ((act-15 ((CaseSplit-IDEMode-Idris-doUpdates arg-3 arg-2 arg-1 e-6) eta-1))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-1))) (else (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 1 e-5) (vector 1 (vector 0 " ") (vector 1 (vector 5 ) (vector 1 (vector 0 " ") e-8))))) eta-1))))))))(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--23512-341-spanSpace (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (vector 0 (vector 0 ) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((4) (vector 0 (vector 0 ) (vector 1 (vector 4 ) e-3))) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-mapFst 'erased 'erased 'erased (lambda (arg-5) (let ((w (vector 0 e-4))) (vector 1 w arg-5))) (CaseSplit-IDEMode-Idris-n--23512-341-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--23512-341-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))))))))))
(define CaseSplit-IDEMode-Idris-n--24252-1014-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 (Prelude-fromInteger_Num__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--23892-696-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--23892-697-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--23447-277-bracket (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-4) ((34) arg-4) ((35) arg-4) ((37) arg-4) ((39) arg-4) ((14) arg-4)(else (vector 30 (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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((CaseSplit-IDEMode-Idris-case--23892-725 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 e-2 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((CaseSplit-IDEMode-Idris-updateAll arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String))) (lambda (eta-1) (TokenLine-IDEMode-Idris-toString eta-1))) e-5) e-6)) eta-0)))))))))))))))))))
(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-15 (Resugar-Idris-pterm arg-0 arg-1 e-3 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-4 (Syntax-Idris-show_Show__PTerm (CaseSplit-IDEMode-Idris-n--23447-277-bracket e-4 e-3 arg-1 arg-0 e-5))) (vector 0 ))) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define CaseSplit-IDEMode-Idris-showImpossible (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Resugar-Idris-pterm arg-0 arg-1 arg-3 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) " impossible")) ext-0))))))))
(define CaseSplit-IDEMode-Idris-getReplaces (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5)) ext-0))))))))
(define CaseSplit-IDEMode-Idris-getClause (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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-17 ((Context-Core-getFullName arg-0 e-9) ext-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-18 (let ((act-18 ((Normalise-Core-nf (vector 0 ) e-5 (vector 0 ) e-14) ext-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-19 (REPLOpts-Idris-getSourceLine arg-2 arg-3 ext-0))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--24376-1157 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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--24218-984 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) ((3) (CaseSplit-IDEMode-Idris-case--23512-388 e-3 arg-2 arg-1 arg-0 (CaseSplit-IDEMode-Idris-n--23512-341-spanSpace e-3 arg-2 arg-1 arg-0 e-3))) ((1) (let ((e-4 (vector-ref sc1 1))) (CaseSplit-IDEMode-Idris-case--23512-514 e-4 e-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-4 arg-2)))) ((2) (let ((e-5 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 (Utils-TTImp-uniqueName arg-1 e-6 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-0 (vector 1 e-7 e-6) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-18 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 2 e-7) e-9)) eta-0)))))))))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((CaseSplit-IDEMode-Idris-doUpdates arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-2 e-5)) eta-0)))))))))))))))))
(define Extra-List-Data-elemAt (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (vector 1 e-2))(else (let ((e-4 (- arg-2 1))) (Extra-List-Data-elemAt 'erased e-3 e-4))))))))))))
(define TokenLine-IDEMode-Idris-case--2572-363 (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--2567-333 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (let ((e-10 (vector-ref sc2 1))) (let ((e-11 (vector-ref sc2 2))) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (let ((sc3 eta-0)) (let ((e-4 (vector-ref sc3 3))) e-4))) e-2) (TokenLine-IDEMode-Idris-case--2572-363 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--2567-333 arg-0 (Core-Lexer-Text-lex 'erased (TokenLine-IDEMode-Idris-srcTokens) arg-0))))
(define TokenLine-IDEMode-Idris-toString (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) ((1) (let ((e-1 (vector-ref sc0 1))) e-1)) ((2) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "?" e-2))) ((3) "{") ((4) "}") ((5) "=") (else (let ((e-3 (vector-ref sc0 1))) e-3))))))
(define TokenLine-IDEMode-Idris-srcTokens (lambda () (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (vector 1 eta-0))) (vector 1 (vector 0 (TokenLine-IDEMode-Idris-holeIdent) (lambda (x) (vector 2 (substring x 1 (string-length x))))) (vector 1 (vector 0 (Lexer-Text-space) (lambda (eta-0) (vector 0 eta-0))) (vector 1 (vector 0 (Lexer-Text-is #\{) (lambda (eta-0) (vector 3 ))) (vector 1 (vector 0 (Lexer-Text-is #\}) (lambda (eta-0) (vector 4 ))) (vector 1 (vector 0 (Lexer-Text-is #\=) (lambda (eta-0) (vector 5 ))) (vector 1 (vector 0 (Lexer-Text-any) (lambda (eta-0) (vector 6 eta-0))) (vector 0 ))))))))))
(define TokenLine-IDEMode-Idris-holeIdent (lambda () (vector 4 (Lexer-Text-is #\?) (lambda () (Common-Lexer-Parser-identNormal)))))
(define Common-Compiler-case--15088-12984 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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 Common-Compiler-case--15066-12967 (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-15 (let ((act-15 (Binary-Utils-writeToFile arg-0 e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Common-Compiler-case--15053-12945 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (Binary-Utils-readFromFile arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (Binary-Utils-writeToFile arg-0 e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))
(define Common-Compiler-case--14947-12854 (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--14940-12833 (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--14947-12854 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Char arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Char arg-623 arg-624)))) #\. (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--14817-12759 (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--14817-12713-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))))
(define Common-Compiler-case--14821-12725 (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--14817-12713-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))
(define Common-Compiler-case--14777-12685 (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-15 (File-System-closeFile e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased 0 eta-0))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased 1 eta-0)))))))
(define Common-Compiler-case--14020-12513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (VMCode-Compiler-allDefs arg-27)) eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Common-Compiler-case--14342-12381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-15 ((ANF-Compiler-toANF e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-5)) eta-0))))))))))))
(define Common-Compiler-case--14020-12316 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-15 ((ANF-Compiler-toANF e-3) eta-1))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-5)) eta-1))))))))))) arg-26) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Common-Compiler-case--14020-12192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Common-Compiler-case--13825-12028 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--14020-12192 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-6))))) (let ((act-17 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--14020-12316 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--14020-12513 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-20 (let ((act-20 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping case trees to " f) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-20)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-21 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-21 (let ((act-21 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-1)))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-21)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-22 (let ((act-22 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-1)))) (let ((sc8 act-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-22)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-23 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (f) (lambda (eta-1) (let ((act-23 (let ((act-23 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping VM defs to " f) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-1)))) (let ((sc9 act-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (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-23)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-24 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Common-Compiler-replaceEntry arg-2 eta-1)) arg-12) eta-0))) (let ((sc10 act-24)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-19 (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) eta-1) e-5) lifted e-7 e-8)) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Common-Compiler-case--13830-11839 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Common-Compiler-case--13756-11795 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--13687-11730 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--13618-11665 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--13472-11596 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--13494-11541 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 (Common-Compiler-n--13472-11496-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;")))) eta-0))))))))
(define Common-Compiler-case--13477-11516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--13494-11541 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--13341-11396 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Common-Compiler-warnIfHole arg-0 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 (vector 0 (let ((sc2 arg-3)) (let ((e-0 (vector-ref sc2 1))) e-0)) e-2)))) eta-0))))))))))))
(define Common-Compiler-case--13325-11374 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((bind-0 (vector 1 e-2))) (Common-Compiler-case--13341-11396 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--13135-11231 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (let ((act-15 ((IOArray-Data-writeArray 'erased arg-4 arg-0 (vector 0 arg-0 arg-11)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((refs (Context-Core-refersToRuntime arg-10))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toResolvedNames 'erased arg-5 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) eta-1 eta-2))) (NameMap-Data-keys 'erased refs)) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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--13082-11192 (lambda (arg-0 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-15 (Context-Core-addDef arg-5 arg-1 e-2 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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--13135-11231 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))
(define Common-Compiler-case--13056-11146 (lambda (arg-0 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-15 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-16 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-8 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (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--13135-11231 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))
(define Common-Compiler-case--13034-11125 (lambda (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-15 ((Context-Core-lookupContextEntry arg-1 (let ((sc1 arg-3)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Common-Compiler-getMinimalDef e-6) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-17 (Context-Core-addDef arg-5 arg-1 e-4 eta-0))) (let ((sc6 act-17)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (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--13135-11231 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
(define Common-Compiler-case--12672-10812 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Common-Compiler-case--12673-10798 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Common-Compiler-n--12667-10847-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--13825-11823-nonErased (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-3 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) ext-0))))))))))))))))
(define Common-Compiler-n--14817-12713-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--14821-12725 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1)))))))
(define Common-Compiler-n--13756-11757-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--13687-11692-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--13618-11627-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--13472-11496-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--13756-11758-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--13756-11757-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--13687-11693-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--13687-11692-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--13618-11628-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--13618-11627-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--13472-11497-dumpCase (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 ((Context-Core-lookupCtxtExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") ext-0)) (else (let ((e-2 (vector-ref sc1 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--13494-11541 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--12673-10798 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--12672-10812 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--12667-10847-tag arg-1 arg-0 arg-0) (Common-Compiler-n--12667-10847-tag arg-1 arg-0 arg-1))))
(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-621) (lambda (arg-622) (Common-Compiler-C-61C-61_Eq__UsePhase arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Common-Compiler-C-47C-61_Eq__UsePhase arg-623 arg-624)))) (lambda (arg-884) (lambda (arg-885) (Common-Compiler-compare_Ord__UsePhase arg-884 arg-885))) (lambda (arg-886) (lambda (arg-887) (Common-Compiler-C-60_Ord__UsePhase arg-886 arg-887))) (lambda (arg-888) (lambda (arg-889) (Common-Compiler-C-62_Ord__UsePhase arg-888 arg-889))) (lambda (arg-890) (lambda (arg-891) (Common-Compiler-C-60C-61_Ord__UsePhase arg-890 arg-891))) (lambda (arg-892) (lambda (arg-893) (Common-Compiler-C-62C-61_Ord__UsePhase arg-892 arg-893))) (lambda (arg-894) (lambda (arg-895) (Common-Compiler-max_Ord__UsePhase arg-894 arg-895))) (lambda (arg-896) (lambda (arg-897) (Common-Compiler-min_Ord__UsePhase arg-896 arg-897))))))
(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-621) (lambda (arg-622) (Common-Compiler-C-61C-61_Eq__UsePhase arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Common-Compiler-C-47C-61_Eq__UsePhase arg-623 arg-624))))))
(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-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Warning: compiling hole " (Name-Core-show_Show__Name arg-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (Context-Core-addContextEntry arg-0 (vector 9 e-2) e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))
(define Common-Compiler-parseCC (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--14817-12759 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--14940-12833 arg-1 arg-0 (Strings-Data-words arg-1)))) (lambda (eta-0) (let ((act-15 (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-1) (Directory-Core-findLibraryFile arg-0 fname eta-1)) (lambda (err) (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased fname) eta-1))) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 fname e-5)) eta-0))))))))))
(define Common-Compiler-getNamedDef (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-2 (vector-ref sc2 1))) (let ((bind-0 (vector 1 e-2))) ((Common-Compiler-case--13341-11396 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-0 (vector 0 ))) eta-0)))) (else (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Utils.Binary.Bin" ) e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__CDef arg-1253 arg-1255))) (lambda (arg-1256) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-1256 eta-1)))) e-5 eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1254) (lambda (arg-1256) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1257) (lambda (arg-1258) (TTC-Core-toBuf_TTC__Name arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1257) (lambda (arg-1258) (Binary-Utils-toBuf_TTC__Bool arg-1257 arg-1258))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2))))) arg-1254 arg-1256))) (lambda (arg-1256) (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-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-3)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-3))))) arg-1256 eta-2)))) arg-1253 arg-1255 eta-1)))) (lambda (arg-1256) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-1254) (lambda (arg-1257) (TTC-Core-toBuf_TTC__Name arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-1257 eta-2)))) (vector 0 (lambda (arg-1254) (lambda (arg-1257) (Binary-Utils-toBuf_TTC__Bool arg-1254 arg-1257))) (lambda (arg-1257) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-1257 eta-2))))) arg-1253 arg-1255))) (lambda (arg-1257) (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-1253) (lambda (arg-1255) (TTC-Core-toBuf_TTC__Name arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-1258 eta-3)))) (vector 0 (lambda (arg-1253) (lambda (arg-1255) (Binary-Utils-toBuf_TTC__Bool arg-1253 arg-1255))) (lambda (arg-1258) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-1258 eta-3))))) arg-1257 eta-2)))) arg-1256 eta-1)))) e-5 eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-18 (TTC-Core-fromBuf_TTC__FC e-5 eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (TTC-Core-fromBuf_TTC__RigCount e-5 eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (TTC-Core-fromBuf_TTC__Name e-5 eta-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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 )))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 def (vector 1 e-1))) eta-0))))))))))))))))))))))))))))))))))))))))
(define Common-Compiler-getCompileData (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Context-Core-getSession arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((ns (TT-Core-getRefs 'erased (vector 9 (Prelude-negate_Neg__Int (Prelude-fromInteger_Num__Int 1))) arg-2))) (let ((act-17 (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-4574 arg-4575)))) arg-2 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toResolvedNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) eta-0 eta-1))) (Common-Compiler-natHackNames)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Context-Core-getNextEntry arg-0 ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((act-20 (IOArray-Data-newArray 'erased e-9 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (let ((act-22 ((IOArray-Data-toList 'erased e-10) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) ext-0)))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-23 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Context-Core-toFullNames 'erased arg-0 (vector 0 (lambda (arg-4572) (lambda (arg-4573) (Context-Core-full_HasNames__Name arg-4572 arg-4573))) (lambda (arg-4574) (lambda (arg-4575) (Context-Core-resolved_HasNames__Name arg-4574 arg-4575)))) eta-0 eta-1))) allNs) ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-13 (vector-ref sc8 1))) (let ((act-24 ((Core-Core-filterM 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--13825-11823-nonErased arg-2 arg-1 arg-0 eta-0 eta-1))) e-13) ext-0))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-25 (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-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-26 (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-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-16 (vector-ref sc11 1))) (let ((act-27 (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-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-17 (vector-ref sc12 1))) (let ((act-28 (let ((act-28 (CompileExpr-Compiler-compileExp arg-0 e-7 ext-0))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc13 1))) ((Inline-Compiler-fixArityExp (vector 0 ) arg-0 e-18) ext-0)))))))) (let ((sc13 act-28)) (case (vector-ref sc13 0) ((0) (let ((e-2 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((mainname (vector 2 "__mainExpression" 0))) (let ((act-29 (LambdaLift-Compiler-liftBody (vector 0 ) mainname e-18 ext-0))) (let ((sc14 act-29)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-30 ((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-30)) (case (vector-ref sc16 0) ((0) (let ((e-4 (vector-ref sc16 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-20 (vector-ref sc16 1))) (let ((act-31 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--14020-12192 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-31)) (case (vector-ref sc17 0) ((0) (let ((e-4 (vector-ref sc17 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-21))))) (let ((act-32 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--14020-12316 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-32)) (case (vector-ref sc18 0) ((0) (let ((e-4 (vector-ref sc18 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-22 (vector-ref sc18 1))) (let ((act-33 (let ((_-0 (vector 0 e-2 e-3))) ((Common-Compiler-case--14020-12513 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-33)) (case (vector-ref sc19 0) ((0) (let ((e-4 (vector-ref sc19 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-23 (vector-ref sc19 1))) (let ((act-34 (let ((act-34 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-34) ext-0)))) (let ((sc20 act-34)) (case (vector-ref sc20 0) ((0) (let ((e-4 (vector-ref sc20 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-24 (vector-ref sc20 1))) (let ((act-35 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-35 (let ((act-35 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping case trees to " f) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-35) eta-0)))) (let ((sc21 act-35)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-35)) (case (vector-ref sc21 0) ((0) (let ((e-4 (vector-ref sc21 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-36 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-36 (let ((act-36 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping lambda lifted defs to " f) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-36) eta-0)))) (let ((sc22 act-36)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-36)) (case (vector-ref sc22 0) ((0) (let ((e-4 (vector-ref sc22 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-37 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-37 (let ((act-37 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping ANF defs to " f) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-37) eta-0)))) (let ((sc23 act-37)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-37)) (case (vector-ref sc23 0) ((0) (let ((e-4 (vector-ref sc23 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-38 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (f) (lambda (eta-0) (let ((act-38 (let ((act-38 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Dumping VM defs to " f) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-38) eta-0)))) (let ((sc24 act-38)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-38)) (case (vector-ref sc24 0) ((0) (let ((e-4 (vector-ref sc24 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-39 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-replaceEntry arg-0 eta-0)) entries) ext-0))) (let ((sc25 act-39)) (case (vector-ref sc25 0) ((0) (let ((e-4 (vector-ref sc25 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-18 (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) eta-0) e-20) lifted e-22 e-23)) ext-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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) ((9) (let ((e-4 (vector-ref sc1 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((IOArray-Data-readArray 'erased arg-2 e-4) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-16 ((Context-Core-lookupContextEntry n (let ((sc4 arg-3)) (let ((e-0 (vector-ref sc4 1))) e-0))) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (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-17 ((Common-Compiler-getMinimalDef e-8) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (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-18 (Context-Core-addDef arg-0 n e-12 eta-0))) (let ((sc9 act-18)) (case (vector-ref sc9 0) ((0) (let ((e-13 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-13) eta-0))) (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--13135-11231 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-242) (lambda (arg-243) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-242 arg-243))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-244) (lambda (arg-245) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-244 arg-245))) (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-15 (File-System-openFile arg-0 (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (File-System-closeFile e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased 0 ext-0)))) (else (Prelude-pure_Applicative__IO 'erased 1 ext-0)))))))
(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-15 (Directory-Core-makeExecDirectory arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Context-Core-getDirs arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 2))) ((((e-1 arg-0) (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))) arg-2) ext-0))))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define Common-Compiler-dylib_suffix (lambda () (Core-Core-cond 'erased (vector 1 (vector 0 (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (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--13756-11758-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile arg-0 (Strings-Data-fastAppend cstrs) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--13618-11628-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile arg-0 (Strings-Data-fastAppend cstrs) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (lambda (eta-1) (Common-Compiler-n--13472-11497-dumpCase arg-2 arg-1 arg-0 eta-0 eta-1))) arg-2) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (File-System-writeFile arg-1 (Strings-Data-fastAppend e-5) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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--13687-11693-dumpDef arg-1 arg-0 eta-0)) arg-1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile arg-0 (Strings-Data-fastAppend cstrs) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--15053-12945 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-15 (Directory-Core-makeExecDirectory arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 (Context-Core-getDirs arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (Context-Core-logTime 'erased arg-0 (lambda () "Code generation overall") (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) ((((e-0 arg-0) (let ((sc3 e-6)) (let ((e-3 (vector-ref sc3 4))) e-3))) arg-2) arg-3))) ext-0))))))))))))
(define VMCode-Compiler-case--10515-3436 (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--10442-3376 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--10439-3361-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--10439-3361-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3)))))))
(define VMCode-Compiler-case--9718-2785 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL ")))))
(define VMCode-Compiler-n--10038-3115-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--10038-3051-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--10038-3050-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--10038-3050-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--10038-3050-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--10038-3050-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (Prelude-C-43_Num__Int arg-6 1) e-3)))))))))
(define VMCode-Compiler-n--10242-3245-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
(define VMCode-Compiler-n--10242-3297-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
(define VMCode-Compiler-n--10439-3361-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--10442-3376 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) e-2 arg-2)))))))))
(define VMCode-Compiler-show_Show__VMInst (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "DECLARE " (VMCode-Compiler-show_Show__Reg e-0)))) ((1) "START") ((2) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-1) (Strings-Prelude-C-43C-43 " := " (VMCode-Compiler-show_Show__Reg e-2)))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-3) (Strings-Prelude-C-43C-43 " := MKCON " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-4) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-5)) ")"))))))))) ((4) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-6) (Strings-Prelude-C-43C-43 " := MKCLOSURE " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-8) (Strings-Prelude-C-43C-43 " (" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-9)) ")")))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-10) (Strings-Prelude-C-43C-43 " := MKCONSTANT " (TT-Core-show_Show__Constant e-11)))))) ((6) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-12) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-13) (Strings-Prelude-C-43C-43 " @ " (VMCode-Compiler-show_Show__Reg e-14))))))))) ((7) (let ((e-15 (vector-ref sc0 1))) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (let ((e-18 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-15) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 (let ((sc1 e-16)) (cond ((equal? sc1 0) "TAILCALL ") (else "CALL "))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-17) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-18)) ")"))))))))))) ((8) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (let ((e-22 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-20) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "OP " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-21) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) ((List-Data-toList 'erased 'erased (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldr_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Vect-Data-foldl_Foldable__C-40VectC-32C-36nC-41 'erased 'erased 'erased func init input)))))))) e-22))) ")")))))))))) ((9) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-23) (Strings-Prelude-C-43C-43 " := " (Strings-Prelude-C-43C-43 "EXTPRIM " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-24) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-show_Show__Reg eta-0)) e-25)) ")")))))))))) ((10) (let ((e-26 (vector-ref sc0 1))) (let ((e-27 (vector-ref sc0 2))) (let ((e-28 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-26) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d) (lambda (x-1) (Prelude-showPrec_Show__Int d x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d) (lambda (x-1) (Name-Core-showPrec_Show__Name d x-1))))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-0) (lambda (x-1) (Prelude-showPrec_Show__Int d-0 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-0) (lambda (x-1) (Name-Core-showPrec_Show__Name d-0 x-1))))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased (vector 0 (vector 0 (lambda (x-1) (Prelude-show_Show__Int x-1)) (lambda (d-1) (lambda (x-1) (Prelude-showPrec_Show__Int d-1 x-1)))) (vector 0 (lambda (x-1) (Name-Core-show_Show__Name x-1)) (lambda (d-1) (lambda (x-1) (Name-Core-showPrec_Show__Name d-1 x-1))))) d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-27) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d x)))) e-28) "}")))))))))) ((11) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "CASE " (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-29) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d) (lambda (x-0) (TT-Core-showPrec_Show__Constant d x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d x-1)))) x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) d x-0))))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (x-0) (TT-Core-show_Show__Constant x-0)) (lambda (d-0) (lambda (x-0) (TT-Core-showPrec_Show__Constant d-0 x-0)))) (vector 0 (lambda (x-0) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-0) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-1)))) x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-1) (VMCode-Compiler-show_Show__VMInst x-1)) (lambda (d-1) (lambda (x-1) (VMCode-Compiler-showPrec_Show__VMInst d-1 x-1)))) d-0 x-0))))) d x)))) e-30) (Strings-Prelude-C-43C-43 " {default: " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d x-0)))) x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x-0) (VMCode-Compiler-show_Show__VMInst x-0)) (lambda (d-0) (lambda (x-0) (VMCode-Compiler-showPrec_Show__VMInst d-0 x-0)))) d x)))) e-31) "}")))))))))) ((12) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-32) (Strings-Prelude-C-43C-43 " := PROJECT(" (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-33) (Strings-Prelude-C-43C-43 ", " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-34) ")"))))))))) ((13) (let ((e-35 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 (VMCode-Compiler-show_Show__Reg e-35) " := NULL"))) (else (let ((e-36 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "ERROR " (Prelude-show_Show__String e-36))))))))
(define VMCode-Compiler-show_Show__VMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x)))) e-0) (Strings-Prelude-C-43C-43 ": " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-1)))))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x)))) e-2))))))))
(define VMCode-Compiler-show_Show__Reg (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "RVAL") ((1) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "v" (Prelude-show_Show__Int e-0)))) (else "DISCARD")))))
(define VMCode-Compiler-showPrec_Show__VMInst (lambda (arg-0 arg-1) (VMCode-Compiler-show_Show__VMInst arg-1)))
(define VMCode-Compiler-__Impl_Show_VMInst (lambda () (vector 0 (lambda (x) (VMCode-Compiler-show_Show__VMInst x)) (lambda (d) (lambda (x) (VMCode-Compiler-showPrec_Show__VMInst d x))))))
(define VMCode-Compiler-toVMDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 0 e-0 (VMCode-Compiler-declareVars e-0 (VMCode-Compiler-toVM 0 (vector 0 ) e-1))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (vector 1 (vector 1 (VMCode-Compiler-declareVars (vector 0 ) (VMCode-Compiler-toVM 0 (vector 0 ) e-2))))))(else (vector 0 ))))))
(define VMCode-Compiler-toVM (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((2) (vector 0 ))(else (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((0) (let ((e-40 (vector-ref sc1 1))) (vector 1 (vector 2 arg-1 (vector 1 e-40)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))) ((1) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 (vector 7 arg-1 arg-0 e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-4)) (vector 0 ))))) ((2) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (vector 1 (vector 4 arg-1 e-6 e-7 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-8)) (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc0 2))) (let ((e-11 (vector-ref sc0 3))) (vector 1 (vector 6 arg-1 (VMCode-Compiler-toReg e-10) (VMCode-Compiler-toReg e-11)) (vector 0 ))))) ((4) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (VMCode-Compiler-toVM 1 (vector 1 e-13) e-14) (VMCode-Compiler-toVM arg-0 arg-1 e-15)))))) ((5) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (vector 1 (vector 3 arg-1 e-18 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-19)) (vector 0 ))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (vector 1 (vector 8 arg-1 e-22 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-23)) (vector 0 ))))) ((7) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (vector 1 (vector 9 arg-1 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toReg eta-0)) e-26)) (vector 0 ))))) ((8) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (let ((e-29 (vector-ref sc0 3))) (let ((e-30 (vector-ref sc0 4))) (let ((sc1 e-28)) (case (vector-ref sc1 0) ((0) (let ((e-41 (vector-ref sc1 1))) (vector 1 (vector 10 (vector 1 e-41) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--10038-3051-toVMConAlt e-41 e-30 e-29 e-27 arg-1 arg-0 eta-0)) e-29) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-30)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((9) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (let ((e-33 (vector-ref sc0 3))) (let ((e-34 (vector-ref sc0 4))) (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (let ((e-42 (vector-ref sc1 1))) (vector 1 (vector 11 (vector 1 e-42) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (VMCode-Compiler-n--10038-3115-toVMConstAlt e-42 e-34 e-33 e-31 arg-1 arg-0 eta-0)) e-33) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (VMCode-Compiler-toVM arg-0 arg-1 eta-0)) e-34)) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 )))))))))) ((10) (let ((e-36 (vector-ref sc0 2))) (vector 1 (vector 5 arg-1 e-36) (vector 0 )))) ((11) (vector 1 (vector 13 arg-1) (vector 0 ))) ((12) (let ((e-39 (vector-ref sc0 2))) (vector 1 (vector 14 e-39) (vector 0 ))))(else (vector 1 (vector 13 arg-1) (vector 0 ))))))))))
(define VMCode-Compiler-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--10242-3245-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--10242-3297-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-2871 arg-2872))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--10439-3361-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--10699-4697 (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-15 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-3 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (List-Prelude-C-43C-43 'erased arg-4 (List-Data-reverse 'erased e-2)) e-5)) eta-0))))))))))))
(define ANF-Compiler-case--10593-4664 (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-15 ((ANF-Compiler-n--10593-4573-bindArgs arg-0 arg-1 arg-2 'erased arg-3 arg-0 vs) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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-16 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-0 arg-1) arg-3 e-4 arg-2) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (List-Prelude-C-43C-43 'erased e-2 (List-Data-reverse 'erased e-6)) e-7)) eta-0)))))))))))))))))))))
(define ANF-Compiler-case--10598-4610 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-8 e-2) (vector 1 arg-8 e-3))) eta-0)))))))
(define ANF-Compiler-case--10127-4534 (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-15 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased arg-1 arg-0) arg-6 e-3 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 arg-4 arg-3 e-2 e-5)) eta-0))))))))))))
(define ANF-Compiler-case--10449-4487 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 arg-11 e-2) (vector 1 arg-11 e-3))) eta-0)))))))
(define ANF-Compiler-case--10124-4326 (lambda (arg-0 arg-1 arg-2 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--10124-4236 (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--9753-3825-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--10016-4062-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--10016-4062-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--10016-4062-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--10016-4062-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))))))))))
(define ANF-Compiler-n--10593-4573-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) arg-6)) eta-0))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (ANF-Compiler-nextVar arg-4 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ANF-Compiler-n--10593-4573-bindArgs arg-0 arg-1 arg-2 'erased arg-4 e-3 arg-6) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))) eta-0)))))))))))))))))))))
(define ANF-Compiler-n--10127-4456-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) arg-9)) eta-0))) (else (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (ANF-Compiler-nextVar arg-6 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ANF-Compiler-n--10127-4456-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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-5 e-7) (vector 1 e-5 e-4))) eta-0)))))))))))))))))))))
(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--9753-3825-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-15 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ANF-Compiler-n--10593-4573-bindArgs e-1 e-0 e-2 'erased e-5 e-0 (vector 0 )) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-17 ((ANF-Compiler-n--10593-4573-bindArgs e-1 e-0 e-2 'erased e-5 e-1 vs) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (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-18 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-1 e-0) e-5 e-8 e-2) eta-0))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-10) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (List-Prelude-C-43C-43 'erased e-4 (List-Data-reverse 'erased e-9)) e-10)) eta-0))))))))))))))))))))))))))))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-3 e-4)) eta-0))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-6 e-7 e-8)) eta-0)))))) (else (let ((e-9 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Compiler.ANF.Next" ) 0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ANF-Compiler-anf (vector 0 ) e-5 (vector 0 ) e-9) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-6)) eta-0))))))))))))))))))
(define ANF-Compiler-nextVar (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-0 (Prelude-C-43_Num__Int e-5 1) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-5) ext-0))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (arg-3 e-1)) eta-0))))(else (lambda (eta-0) (let ((act-15 (ANF-Compiler-nextVar arg-0 eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 arg-1 e-5 arg-2 (arg-3 (vector 0 e-5)))) eta-0))))))))))))
(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-15 ((ANF-Compiler-bindArgs arg-0 arg-2) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (ANF-Compiler-n--10016-4062-doBind arg-3 arg-2 arg-1 arg-0 (vector 0 ) e-5)) ext-0))))))))
(define ANF-Compiler-bindArgs (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-5 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-5 (vector 0 )) e-6)) eta-0))))))))) ((11) (lambda (eta-0) (let ((act-15 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (vector 1 ) (vector 0 )) e-5)) eta-0))))))))(else (lambda (eta-0) (let ((act-15 (ANF-Compiler-nextVar arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((ANF-Compiler-bindArgs arg-0 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 (vector 0 e-5) (vector 1 e-2)) e-6)) eta-0))))))))))))))))))))))
(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-15 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-5)) eta-0))))))))))))
(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-15 ((ANF-Compiler-n--10127-4456-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-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (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-16 ((ANF-Compiler-anf (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-1 e-6 e-4) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-2 e-7 e-8)) eta-0))))))))))))))))))))))
(define ANF-Compiler-anfArgs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 ((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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 (vector 0 (ANF-Compiler-lookup 'erased 'erased e-2 'erased arg-2)))) 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) (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-15 (ANF-Compiler-nextVar arg-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((vsC-39 (vector 1 e-5 arg-2))) (let ((act-16 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-21) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((ANF-Compiler-anf (vector 1 e-20 arg-0) arg-1 vsC-39 e-22) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-19 e-5 e-6 e-7)) eta-0))))))))))))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (ANF-Compiler-letBind arg-1 e-30 e-5 (lambda (args) (ANF-Compiler-case--10124-4326 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-15 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-39) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((ANF-Compiler-anf arg-0 arg-1 arg-2 e-44) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-48 e-49)) eta-0))))) ((11) (let ((e-51 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-51)) eta-0)))) (else (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-53 e-54)) eta-0)))))))))
(define LambdaLift-Compiler-case--10471-2595 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define LambdaLift-Compiler-case--10455-2583 (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--10471-2595 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define LambdaLift-Compiler-case--10359-2550 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-1 (vector 3 e-2)) e-3)) eta-0)))))))
(define LambdaLift-Compiler-case--10359-2497 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-2 (vector 0 arg-0 (vector 0 ) e-2)) e-3)) eta-0)))))))
(define LambdaLift-Compiler-case--9842-2106 (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--9869-2045 (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--9771-1961 (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 (Prelude-C-43_Num__Int arg-2 1)))))))
(define LambdaLift-Compiler-n--9846-2253-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((LambdaLift-Compiler-n--9846-2253-traverseArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0)))))))))))))))))))
(define LambdaLift-Compiler-n--9771-1924-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--9771-1924-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--9771-1924-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2))))))
(define LambdaLift-Compiler-n--9846-2389-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-15 ((LambdaLift-Compiler-liftExp arg-0 arg-5 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-5)) eta-0))))))))))))
(define LambdaLift-Compiler-n--9846-2344-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-15 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased e-3 arg-0) arg-5 e-4) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-1 e-2 e-3 e-5)) eta-0))))))))))))))
(define LambdaLift-Compiler-n--9842-2008-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--9842-2007-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))))
(define LambdaLift-Compiler-n--9842-2007-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--9842-2007-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) eta-0))) (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-15 ((LambdaLift-Compiler-liftExp (List-Prelude-C-43C-43 'erased arg-3 arg-1) arg-0 arg-4) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (LambdaLift-Compiler-genName arg-0 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-writeIORef 'erased 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))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 arg-2 e-6 (List-Data-length 'erased arg-3) (LambdaLift-Compiler-n--9842-2008-allVars arg-3 arg-1 arg-4 arg-2 arg-0 arg-1))) eta-0))))))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-2 e-3)) eta-0))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6 e-7 (vector 0 ))) eta-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-15 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-16) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((LambdaLift-Compiler-liftExp (vector 1 e-14 arg-0) arg-1 e-17) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 4 e-13 e-14 e-5 e-6)) 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 ((sc1 e-20)) (case (vector-ref sc1 0) ((1) (let ((e-62 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-19 e-62 e-5)) eta-0)))))))))(else (lambda (eta-0) (let ((act-15 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-20) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-21) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 5 e-23 e-24 e-25 e-5)) 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-15 ((LambdaLift-Compiler-n--9846-2253-traverseArgs arg-0 e-28 e-31 e-30 e-29 arg-1 'erased e-31) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 6 e-28 e-29 e-30 e-5)) 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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-35) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 7 e-33 e-34 e-5)) eta-0))))))))))) ((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-15 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-44) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--9846-2344-liftConAlt arg-0 e-46 e-45 e-44 e-43 arg-1 eta-1)) e-45) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-46) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 8 e-43 e-5 e-6 e-7)) 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-15 ((LambdaLift-Compiler-liftExp arg-0 arg-1 e-49) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-n--9846-2389-liftConstAlt arg-0 e-51 e-50 e-49 e-48 arg-1 eta-1)) e-50) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-1) (LambdaLift-Compiler-liftExp arg-0 arg-1 eta-1)) e-51) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 9 e-48 e-5 e-6 e-7)) eta-0)))))))))))))))))))))) ((12) (let ((e-53 (vector-ref sc0 1))) (let ((e-54 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 10 e-53 e-54)) eta-0))))) ((13) (let ((e-56 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 11 e-56)) eta-0)))) (else (let ((e-58 (vector-ref sc0 1))) (let ((e-59 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 12 e-58 e-59)) eta-0)))))))))
(define LambdaLift-Compiler-liftBody (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Compiler.LambdaLift.Lifts" ) (vector 0 arg-1 (vector 0 ) 0) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((LambdaLift-Compiler-liftExp arg-0 e-5 arg-2) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)))) ext-0))))))))))))))))))
(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-15 (LambdaLift-Compiler-liftBody e-0 arg-0 e-1 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 (vector 0 e-0 (vector 0 ) e-2)) e-3)) 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 (vector 1 e-2 e-3 e-4)) (vector 0 ))) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 (vector 2 e-5 e-6 e-7)) (vector 0 ))) eta-0)))))) (else (let ((e-8 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (LambdaLift-Compiler-liftBody (vector 0 ) arg-0 e-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 arg-0 (vector 3 e-2)) e-3)) eta-0))))))))))))))))
(define LambdaLift-Compiler-lambdaLift (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Context-Core-lookupCtxtExact arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (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--10471-2595 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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))))))))
(define LambdaLift-Compiler-genName (lambda (arg-0 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-writeIORef 'erased 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 (Prelude-C-43_Num__Int i 1))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (LambdaLift-Compiler-n--9771-1924-mkName arg-0 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)) i)) ext-0)))))))))))))
(define LDefs-LambdaLift-Compiler-defs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define LDefs-LambdaLift-Compiler-basename (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define Gambit-Scheme-Compiler-case--14758-11144 (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-2) (vector 0 )) eta-1)) (lambda (eta-1) (let ((act-15 (System-system e-1 eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1))) eta-0)))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Gambit-Scheme-Compiler-case--14649-11083 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-0)))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Gambit-Scheme-Compiler-case--14447-10949 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-9)) 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 Gambit-Scheme-Compiler-case--14265-10732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) arg-11) (Strings-Prelude-C-43C-43 arg-12 (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-9)) (Strings-Prelude-C-43C-43 ") " (Strings-Prelude-C-43C-43 e-3 "))\xa;")))))))))) eta-0)))))))))))))))))
(define Gambit-Scheme-Compiler-case--14131-10597 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) arg-3)) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-2 (vector 1 arg-1 arg-4) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-n--14131-10554-showFld arg-0 arg-1 arg-2 eta-1)) arg-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))) eta-0))))))))))))))))
(define Gambit-Scheme-Compiler-case--13896-10349 (lambda (arg-0 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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) e-7)) eta-0))))))))(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-15 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-15) e-7)) eta-0)))))))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (let ((act-15 (Gambit-Scheme-Compiler-cCall arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-15) e-7)) eta-0))))))))(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--13851-10306 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld arg-4)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define Gambit-Scheme-Compiler-case--13634-10244 (lambda (arg-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)) (case (vector-ref sc0 0) ((8) (Gambit-Scheme-Compiler-handleRet arg-8 arg-10))(else arg-10)))))
(define Gambit-Scheme-Compiler-case--13018-9491 (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--14131-10554-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-15 ((Gambit-Scheme-Compiler-cftySpec (FC-Core-emptyFC) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 ")"))))) eta-0))))))))))))
(define Gambit-Scheme-Compiler-n--13634-10099-notWorld (lambda (arg-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) 1)(else 0)))))
(define Gambit-Scheme-Compiler-n--13634-10096-mkNs (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (vector 1 (vector 0 ) (Gambit-Scheme-Compiler-n--13634-10096-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))(else (vector 1 (vector 1 (Strings-Prelude-C-43C-43 "cb" (Prelude-show_Show__Int arg-7))) (Gambit-Scheme-Compiler-n--13634-10096-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Prelude-C-43_Num__Int arg-7 1) e-3))))))))))))
(define Gambit-Scheme-Compiler-n--13634-10098-mkFun (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((argns (Gambit-Scheme-Compiler-n--13634-10096-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7))) (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--13634-10097-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 argns) ")")))))))
(define Gambit-Scheme-Compiler-n--13565-10051-funTySpec (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((6) (Gambit-Scheme-Compiler-n--13565-10051-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--13565-10051-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-15 ((Gambit-Scheme-Compiler-cftySpec arg-2 arg-4) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-2 eta-1)) (List-Data-reverse 'erased arg-3)) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))) eta-0)))))))))))))))))
(define Gambit-Scheme-Compiler-n--13634-10100-callback (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--13634-10100-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (vector 1 e-0 arg-8) e-1))))(else (let ((args (List-Data-reverse 'erased arg-8))) (lambda (eta-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-cftySpec arg-4 eta-1)) (List-Data-filter 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-n--13634-10099-notWorld arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-1)) args)) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Gambit-Scheme-Compiler-cftySpec arg-4 arg-9) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Gambit-Scheme-Compiler-n--13634-10098-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 args arg-9 arg-7)) eta-0))))))))))))))))
(define Gambit-Scheme-Compiler-n--13634-10101-buildArg (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) ((7) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Gambit-Scheme-Compiler-n--13634-10100-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Common-Scheme-Compiler-schName e-2) (vector 1 e-4 (vector 0 )) e-5))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-schName e-2)) eta-0))))))))))
(define Gambit-Scheme-Compiler-n--13634-10097-applyLams (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (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)) (case (vector-ref sc1 0) ((0) (Gambit-Scheme-Compiler-n--13634-10097-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-7 " #f)")) e-3)) (else (let ((e-6 (vector-ref sc1 1))) (Gambit-Scheme-Compiler-n--13634-10097-applyLams arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-6 ")")))) e-3))))))))))))
(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--13896-10349 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "int") 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)))))) ((equal? sc2 "String") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "UTF-8-string") 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)))))) ((equal? sc2 "Double") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "double") 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)))))) ((equal? sc2 "Char") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "char") 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))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(pointer void)") eta-0)))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void") eta-0)))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "AnyPtr"))) (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(pointer void)") eta-0)))) (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--13018-9491 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) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld call)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased call) eta-0))))))))
(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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Gambit-Scheme-Compiler-mkStruct arg-2 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Gambit-Scheme-Compiler-mkStruct arg-2 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 ((Context-Core-full_HasNames__Name (let ((sc6 e-8)) (let ((e-34 (vector-ref sc6 1))) e-34)) arg-4) eta-0))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))))))) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 0 ) "")) eta-0)))))))
(define Gambit-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Gambit-Scheme-Compiler-case--14131-10597 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 e-6)) eta-0))))))))))))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-mkStruct arg-0 e-2))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Gambit-Scheme-Compiler-mkStruct arg-0 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Gambit-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))))))
(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) ((6) (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 (Prelude-C-43_Num__Int arg-0 1) 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Gambit-Scheme-Compiler-getFArgs e-13) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-7 e-10) e-6)) 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))))))))(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) ((2) (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-15 ((Gambit-Scheme-Compiler-getFArgs e-17) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-17 ((Gambit-Scheme-Compiler-tySpec e-1) eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) ")")))))))))) eta-0)))))))))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-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) ((2) (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) ((2) (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-15 ((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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))))) eta-0))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-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) ((2) (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) ((2) (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-15 ((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-15)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-16 ((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-16)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))))))) eta-0)))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "\"gambit\"") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-Scheme-Compiler-gambitPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Gambit-Scheme-Compiler-gambitString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Gambit-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-15 (System-getEnv "GAMBIT_GSC" ext-0))) (Prelude-pure_Applicative__IO 'erased (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env gsc") act-15) ext-0))))
(define Gambit-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Gambit-Scheme-Compiler-compileExpr arg-0 arg-1 arg-2 "_tmpgambit") ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (vector 0 )) eta-0)) (lambda (eta-0) (let ((act-16 (System-system e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0))) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define Gambit-Scheme-Compiler-compileToSCM (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Common-Compiler-getCompileData arg-0 (vector 0 ) arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Loaded" ) (vector 0 ) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Gambit.Structs" ) (vector 0 ) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((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-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 ((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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-21 ((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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 (Directory-Core-readDataFile arg-0 "gambit/support.scm" ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (Directory-Core-readDataFile arg-0 "gambit/foreign.scm" ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-24 (let ((act-24 (File-System-writeFile arg-2 scm ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) e-9)) ext-0)))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-2 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Gambit-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3) (let ((outn (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-3 ".scm"))))) (lambda (eta-0) (let ((act-15 (Gambit-Scheme-Compiler-compileToSCM arg-0 arg-2 outn eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Directory-Core-findLibraryFile arg-0 eta-1 eta-2))) (List-Data-nub 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) (Prelude-map_Functor__List 'erased 'erased (lambda (arg-4) (Strings-Prelude-C-43C-43 arg-4 ".a")) e-5))) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (Gambit-Scheme-Compiler-findGSC eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((cmd (Strings-Prelude-C-43C-43 e-7 (Strings-Prelude-C-43C-43 " -exe -cc-options \"-Wno-implicit-function-declaration\" -ld-options \"" (Strings-Prelude-C-43C-43 (Name-Core-showSep " " e-6) (Strings-Prelude-C-43C-43 "\" " outn)))))) (let ((act-18 (let ((act-18 (System-system cmd eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) ((Gambit-Scheme-Compiler-case--14649-11083 arg-3 arg-2 arg-1 arg-0 outn e-5 e-6 e-7 cmd e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0))))))))))))))))))))))))))
(define Gambit-Scheme-Compiler-codegenGambit (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-compileExpr eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Gambit-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
(define Gambit-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void") eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "int") eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "UTF-8-string") eta-0))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "double") eta-0))) ((4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "char") eta-0))) ((5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(pointer void)") eta-0))) ((8) (let ((e-0 (vector-ref sc0 1))) (Gambit-Scheme-Compiler-cftySpec arg-0 e-0))) ((9) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-1 "*/nonnull")) eta-0)))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Gambit-Scheme-Compiler-n--13565-10051-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 ext-0) (let ((act-15 ((Core-Core-traverse 'erased 'erased (lambda (a) (Gambit-Scheme-Compiler-cftySpec arg-2 (Builtin-snd 'erased 'erased a))) arg-5) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Gambit-Scheme-Compiler-cftySpec arg-2 arg-6) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Gambit-Scheme-Compiler-n--13634-10101-buildArg arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) arg-5) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (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 " " e-7) ")")))))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc3 arg-6)) (case (vector-ref sc3 0) ((8) (Gambit-Scheme-Compiler-handleRet e-6 call))(else call)))) ext-0)))))))))))))))))))
(define Common-Scheme-Compiler-case--14861-8574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--14719-8564-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-43_Num__Int arg-11 1) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--14719-8564-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-43_Num__Int arg-11 1) arg-9 arg-10))))))
(define Common-Scheme-Compiler-case--14748-8476 (lambda (arg-0 arg-1 arg-2 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--14718-8466-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-43_Num__Int arg-11 1) arg-9 arg-10) ")")))))))))) (else (Common-Scheme-Compiler-n--14718-8466-bindArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-43_Num__Int arg-11 1) arg-9 arg-10))))))
(define Common-Scheme-Compiler-case--14473-8239 (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--12912-6679 (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--12874-6656 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-0) eta-0))) (else (Common-Scheme-Compiler-firstExists arg-1))))))
(define Common-Scheme-Compiler-n--14722-8980-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") 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-5 (vector-ref sc1 2))) (let ((sc2 e-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-5 1) e-5) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-6 ")"))) eta-0))))))))(else (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-5 1) arg-6 e-2) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-16 ((Common-Scheme-Compiler-n--14722-8980-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " " e-7))) eta-0)))))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-5 1) arg-6 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Common-Scheme-Compiler-n--14722-8980-showConstAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))) eta-0))))))))))))))))))))))
(define Common-Scheme-Compiler-n--14722-8857-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") 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) (let ((act-15 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-5 1) arg-6 e-2) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(else " (Strings-Prelude-C-43C-43 e-5 ")"))) eta-0))))))))(else (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schConAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-5 1) arg-6 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Common-Scheme-Compiler-n--14722-8857-showAlts arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 e-5 (Strings-Prelude-C-43C-43 " " e-6))) eta-0))))))))))))))))))))))
(define Common-Scheme-Compiler-n--12910-6671-okchar (lambda (arg-0 arg-1) (Common-Scheme-Compiler-case--12912-6679 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--14719-8564-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--14861-8574 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--14718-8466-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--14748-8476 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") (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 0 )))))))))))))) (vector 13 arg-0))))(else (vector 13 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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Common-Scheme-Compiler-n--12910-6671-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) ((6) (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 )))))))))))))))(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) ((6) (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 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-38 (vector-ref sc4 1))) (let ((e-39 (vector-ref sc4 2))) (let ((sc5 e-39)) (let ((e-42 (vector-ref sc5 1))) (let ((e-43 (vector-ref sc5 2))) (let ((sc6 e-43)) (Common-Scheme-Compiler-op "-" (vector 1 e-38 (vector 1 e-42 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-38 (vector-ref sc3 1))) (let ((e-39 (vector-ref sc3 2))) (let ((sc4 e-39)) (let ((e-42 (vector-ref sc4 1))) (let ((e-43 (vector-ref sc4 2))) (let ((sc5 e-43)) (Common-Scheme-Compiler-op "-" (vector 1 e-38 (vector 1 e-42 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-38 (vector-ref sc2 1))) (let ((e-39 (vector-ref sc2 2))) (let ((sc3 e-39)) (let ((e-42 (vector-ref sc3 1))) (let ((e-43 (vector-ref sc3 2))) (let ((sc4 e-43)) (Common-Scheme-Compiler-op "-" (vector 1 e-38 (vector 1 e-42 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (let ((sc2 e-39)) (let ((e-42 (vector-ref sc2 1))) (let ((e-43 (vector-ref sc2 2))) (let ((sc3 e-43)) (Common-Scheme-Compiler-op "-" (vector 1 e-38 (vector 1 e-42 (vector 0 )))))))))))))))) ((2) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((6) (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 "63" (vector 0 ))))))(else (let ((sc4 arg-2)) (let ((e-56 (vector-ref sc4 1))) (let ((e-57 (vector-ref sc4 2))) (let ((sc5 e-57)) (let ((e-60 (vector-ref sc5 1))) (let ((e-61 (vector-ref sc5 2))) (let ((sc6 e-61)) (Common-Scheme-Compiler-op "*" (vector 1 e-56 (vector 1 e-60 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-56 (vector-ref sc3 1))) (let ((e-57 (vector-ref sc3 2))) (let ((sc4 e-57)) (let ((e-60 (vector-ref sc4 1))) (let ((e-61 (vector-ref sc4 2))) (let ((sc5 e-61)) (Common-Scheme-Compiler-op "*" (vector 1 e-56 (vector 1 e-60 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-56 (vector-ref sc2 1))) (let ((e-57 (vector-ref sc2 2))) (let ((sc3 e-57)) (let ((e-60 (vector-ref sc3 1))) (let ((e-61 (vector-ref sc3 2))) (let ((sc4 e-61)) (Common-Scheme-Compiler-op "*" (vector 1 e-56 (vector 1 e-60 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (let ((sc2 e-57)) (let ((e-60 (vector-ref sc2 1))) (let ((e-61 (vector-ref sc2 2))) (let ((sc3 e-61)) (Common-Scheme-Compiler-op "*" (vector 1 e-56 (vector 1 e-60 (vector 0 )))))))))))))))) ((3) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((6) (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 ))))))))))))))) ((7) (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 "quotient" (vector 1 e-92 (vector 1 e-96 (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 )))))))))))))))) ((4) (let ((sc1 arg-2)) (let ((e-101 (vector-ref sc1 1))) (let ((e-102 (vector-ref sc1 2))) (let ((sc2 e-102)) (let ((e-105 (vector-ref sc2 1))) (let ((e-106 (vector-ref sc2 2))) (let ((sc3 e-106)) (Common-Scheme-Compiler-op "remainder" (vector 1 e-101 (vector 1 e-105 (vector 0 )))))))))))) ((5) (let ((sc1 arg-2)) (let ((e-110 (vector-ref sc1 1))) (let ((e-111 (vector-ref sc1 2))) (let ((sc2 e-111)) (Common-Scheme-Compiler-op "-" (vector 1 e-110 (vector 0 )))))))) ((6) (let ((sc1 arg-2)) (let ((e-115 (vector-ref sc1 1))) (let ((e-116 (vector-ref sc1 2))) (let ((sc2 e-116)) (let ((e-119 (vector-ref sc2 1))) (let ((e-120 (vector-ref sc2 2))) (let ((sc3 e-120)) (Common-Scheme-Compiler-op "blodwen-shl" (vector 1 e-115 (vector 1 e-119 (vector 0 )))))))))))) ((7) (let ((sc1 arg-2)) (let ((e-124 (vector-ref sc1 1))) (let ((e-125 (vector-ref sc1 2))) (let ((sc2 e-125)) (let ((e-128 (vector-ref sc2 1))) (let ((e-129 (vector-ref sc2 2))) (let ((sc3 e-129)) (Common-Scheme-Compiler-op "blodwen-shr" (vector 1 e-124 (vector 1 e-128 (vector 0 )))))))))))) ((8) (let ((sc1 arg-2)) (let ((e-133 (vector-ref sc1 1))) (let ((e-134 (vector-ref sc1 2))) (let ((sc2 e-134)) (let ((e-137 (vector-ref sc2 1))) (let ((e-138 (vector-ref sc2 2))) (let ((sc3 e-138)) (Common-Scheme-Compiler-op "blodwen-and" (vector 1 e-133 (vector 1 e-137 (vector 0 )))))))))))) ((9) (let ((sc1 arg-2)) (let ((e-142 (vector-ref sc1 1))) (let ((e-143 (vector-ref sc1 2))) (let ((sc2 e-143)) (let ((e-146 (vector-ref sc2 1))) (let ((e-147 (vector-ref sc2 2))) (let ((sc3 e-147)) (Common-Scheme-Compiler-op "blodwen-or" (vector 1 e-142 (vector 1 e-146 (vector 0 )))))))))))) ((10) (let ((sc1 arg-2)) (let ((e-151 (vector-ref sc1 1))) (let ((e-152 (vector-ref sc1 2))) (let ((sc2 e-152)) (let ((e-155 (vector-ref sc2 1))) (let ((e-156 (vector-ref sc2 2))) (let ((sc3 e-156)) (Common-Scheme-Compiler-op "blodwen-xor" (vector 1 e-151 (vector 1 e-155 (vector 0 )))))))))))) ((11) (let ((e-11 (vector-ref sc0 1))) (let ((sc1 e-11)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-169 (vector-ref sc2 1))) (let ((e-170 (vector-ref sc2 2))) (let ((sc3 e-170)) (case (vector-ref sc3 0) ((1) (let ((e-173 (vector-ref sc3 1))) (let ((e-174 (vector-ref sc3 2))) (let ((sc4 e-174)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char<?" (vector 1 e-169 (vector 1 e-173 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-160 (vector-ref sc4 1))) (let ((e-161 (vector-ref sc4 2))) (let ((sc5 e-161)) (let ((e-164 (vector-ref sc5 1))) (let ((e-165 (vector-ref sc5 2))) (let ((sc6 e-165)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-160 (vector 1 e-164 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-160 (vector-ref sc3 1))) (let ((e-161 (vector-ref sc3 2))) (let ((sc4 e-161)) (let ((e-164 (vector-ref sc4 1))) (let ((e-165 (vector-ref sc4 2))) (let ((sc5 e-165)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-160 (vector 1 e-164 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-160 (vector-ref sc2 1))) (let ((e-161 (vector-ref sc2 2))) (let ((sc3 e-161)) (let ((e-164 (vector-ref sc3 1))) (let ((e-165 (vector-ref sc3 2))) (let ((sc4 e-165)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-160 (vector 1 e-164 (vector 0 ))))))))))))))) ((8) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-178 (vector-ref sc2 1))) (let ((e-179 (vector-ref sc2 2))) (let ((sc3 e-179)) (case (vector-ref sc3 0) ((1) (let ((e-182 (vector-ref sc3 1))) (let ((e-183 (vector-ref sc3 2))) (let ((sc4 e-183)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string<?" (vector 1 e-178 (vector 1 e-182 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-160 (vector-ref sc4 1))) (let ((e-161 (vector-ref sc4 2))) (let ((sc5 e-161)) (let ((e-164 (vector-ref sc5 1))) (let ((e-165 (vector-ref sc5 2))) (let ((sc6 e-165)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-160 (vector 1 e-164 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-160 (vector-ref sc3 1))) (let ((e-161 (vector-ref sc3 2))) (let ((sc4 e-161)) (let ((e-164 (vector-ref sc4 1))) (let ((e-165 (vector-ref sc4 2))) (let ((sc5 e-165)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-160 (vector 1 e-164 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-160 (vector-ref sc2 1))) (let ((e-161 (vector-ref sc2 2))) (let ((sc3 e-161)) (let ((e-164 (vector-ref sc3 1))) (let ((e-165 (vector-ref sc3 2))) (let ((sc4 e-165)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-160 (vector 1 e-164 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-160 (vector-ref sc1 1))) (let ((e-161 (vector-ref sc1 2))) (let ((sc2 e-161)) (let ((e-164 (vector-ref sc2 1))) (let ((e-165 (vector-ref sc2 2))) (let ((sc3 e-165)) (Common-Scheme-Compiler-boolop "<" (vector 1 e-160 (vector 1 e-164 (vector 0 )))))))))))))))) ((12) (let ((e-12 (vector-ref sc0 1))) (let ((sc1 e-12)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-196 (vector-ref sc2 1))) (let ((e-197 (vector-ref sc2 2))) (let ((sc3 e-197)) (case (vector-ref sc3 0) ((1) (let ((e-200 (vector-ref sc3 1))) (let ((e-201 (vector-ref sc3 2))) (let ((sc4 e-201)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char<=?" (vector 1 e-196 (vector 1 e-200 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-187 (vector-ref sc4 1))) (let ((e-188 (vector-ref sc4 2))) (let ((sc5 e-188)) (let ((e-191 (vector-ref sc5 1))) (let ((e-192 (vector-ref sc5 2))) (let ((sc6 e-192)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-187 (vector 1 e-191 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-187 (vector-ref sc3 1))) (let ((e-188 (vector-ref sc3 2))) (let ((sc4 e-188)) (let ((e-191 (vector-ref sc4 1))) (let ((e-192 (vector-ref sc4 2))) (let ((sc5 e-192)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-187 (vector 1 e-191 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-187 (vector-ref sc2 1))) (let ((e-188 (vector-ref sc2 2))) (let ((sc3 e-188)) (let ((e-191 (vector-ref sc3 1))) (let ((e-192 (vector-ref sc3 2))) (let ((sc4 e-192)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-187 (vector 1 e-191 (vector 0 ))))))))))))))) ((8) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-205 (vector-ref sc2 1))) (let ((e-206 (vector-ref sc2 2))) (let ((sc3 e-206)) (case (vector-ref sc3 0) ((1) (let ((e-209 (vector-ref sc3 1))) (let ((e-210 (vector-ref sc3 2))) (let ((sc4 e-210)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string<=?" (vector 1 e-205 (vector 1 e-209 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-187 (vector-ref sc4 1))) (let ((e-188 (vector-ref sc4 2))) (let ((sc5 e-188)) (let ((e-191 (vector-ref sc5 1))) (let ((e-192 (vector-ref sc5 2))) (let ((sc6 e-192)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-187 (vector 1 e-191 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-187 (vector-ref sc3 1))) (let ((e-188 (vector-ref sc3 2))) (let ((sc4 e-188)) (let ((e-191 (vector-ref sc4 1))) (let ((e-192 (vector-ref sc4 2))) (let ((sc5 e-192)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-187 (vector 1 e-191 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-187 (vector-ref sc2 1))) (let ((e-188 (vector-ref sc2 2))) (let ((sc3 e-188)) (let ((e-191 (vector-ref sc3 1))) (let ((e-192 (vector-ref sc3 2))) (let ((sc4 e-192)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-187 (vector 1 e-191 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-187 (vector-ref sc1 1))) (let ((e-188 (vector-ref sc1 2))) (let ((sc2 e-188)) (let ((e-191 (vector-ref sc2 1))) (let ((e-192 (vector-ref sc2 2))) (let ((sc3 e-192)) (Common-Scheme-Compiler-boolop "<=" (vector 1 e-187 (vector 1 e-191 (vector 0 )))))))))))))))) ((13) (let ((e-13 (vector-ref sc0 1))) (let ((sc1 e-13)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-223 (vector-ref sc2 1))) (let ((e-224 (vector-ref sc2 2))) (let ((sc3 e-224)) (case (vector-ref sc3 0) ((1) (let ((e-227 (vector-ref sc3 1))) (let ((e-228 (vector-ref sc3 2))) (let ((sc4 e-228)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char=?" (vector 1 e-223 (vector 1 e-227 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-214 (vector-ref sc4 1))) (let ((e-215 (vector-ref sc4 2))) (let ((sc5 e-215)) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-214 (vector 1 e-218 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-214 (vector-ref sc3 1))) (let ((e-215 (vector-ref sc3 2))) (let ((sc4 e-215)) (let ((e-218 (vector-ref sc4 1))) (let ((e-219 (vector-ref sc4 2))) (let ((sc5 e-219)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-214 (vector 1 e-218 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-214 (vector-ref sc2 1))) (let ((e-215 (vector-ref sc2 2))) (let ((sc3 e-215)) (let ((e-218 (vector-ref sc3 1))) (let ((e-219 (vector-ref sc3 2))) (let ((sc4 e-219)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-214 (vector 1 e-218 (vector 0 ))))))))))))))) ((8) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-232 (vector-ref sc2 1))) (let ((e-233 (vector-ref sc2 2))) (let ((sc3 e-233)) (case (vector-ref sc3 0) ((1) (let ((e-236 (vector-ref sc3 1))) (let ((e-237 (vector-ref sc3 2))) (let ((sc4 e-237)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string=?" (vector 1 e-232 (vector 1 e-236 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-214 (vector-ref sc4 1))) (let ((e-215 (vector-ref sc4 2))) (let ((sc5 e-215)) (let ((e-218 (vector-ref sc5 1))) (let ((e-219 (vector-ref sc5 2))) (let ((sc6 e-219)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-214 (vector 1 e-218 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-214 (vector-ref sc3 1))) (let ((e-215 (vector-ref sc3 2))) (let ((sc4 e-215)) (let ((e-218 (vector-ref sc4 1))) (let ((e-219 (vector-ref sc4 2))) (let ((sc5 e-219)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-214 (vector 1 e-218 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-214 (vector-ref sc2 1))) (let ((e-215 (vector-ref sc2 2))) (let ((sc3 e-215)) (let ((e-218 (vector-ref sc3 1))) (let ((e-219 (vector-ref sc3 2))) (let ((sc4 e-219)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-214 (vector 1 e-218 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-214 (vector-ref sc1 1))) (let ((e-215 (vector-ref sc1 2))) (let ((sc2 e-215)) (let ((e-218 (vector-ref sc2 1))) (let ((e-219 (vector-ref sc2 2))) (let ((sc3 e-219)) (Common-Scheme-Compiler-boolop "=" (vector 1 e-214 (vector 1 e-218 (vector 0 )))))))))))))))) ((14) (let ((e-14 (vector-ref sc0 1))) (let ((sc1 e-14)) (case (vector-ref sc1 0) ((9) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-250 (vector-ref sc2 1))) (let ((e-251 (vector-ref sc2 2))) (let ((sc3 e-251)) (case (vector-ref sc3 0) ((1) (let ((e-254 (vector-ref sc3 1))) (let ((e-255 (vector-ref sc3 2))) (let ((sc4 e-255)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "char>=?" (vector 1 e-250 (vector 1 e-254 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-241 (vector-ref sc4 1))) (let ((e-242 (vector-ref sc4 2))) (let ((sc5 e-242)) (let ((e-245 (vector-ref sc5 1))) (let ((e-246 (vector-ref sc5 2))) (let ((sc6 e-246)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-241 (vector 1 e-245 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-241 (vector-ref sc3 1))) (let ((e-242 (vector-ref sc3 2))) (let ((sc4 e-242)) (let ((e-245 (vector-ref sc4 1))) (let ((e-246 (vector-ref sc4 2))) (let ((sc5 e-246)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-241 (vector 1 e-245 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-241 (vector-ref sc2 1))) (let ((e-242 (vector-ref sc2 2))) (let ((sc3 e-242)) (let ((e-245 (vector-ref sc3 1))) (let ((e-246 (vector-ref sc3 2))) (let ((sc4 e-246)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-241 (vector 1 e-245 (vector 0 ))))))))))))))) ((8) (let ((sc2 arg-2)) (case (vector-ref sc2 0) ((1) (let ((e-259 (vector-ref sc2 1))) (let ((e-260 (vector-ref sc2 2))) (let ((sc3 e-260)) (case (vector-ref sc3 0) ((1) (let ((e-263 (vector-ref sc3 1))) (let ((e-264 (vector-ref sc3 2))) (let ((sc4 e-264)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-boolop "string>=?" (vector 1 e-259 (vector 1 e-263 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-241 (vector-ref sc4 1))) (let ((e-242 (vector-ref sc4 2))) (let ((sc5 e-242)) (let ((e-245 (vector-ref sc5 1))) (let ((e-246 (vector-ref sc5 2))) (let ((sc6 e-246)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-241 (vector 1 e-245 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-241 (vector-ref sc3 1))) (let ((e-242 (vector-ref sc3 2))) (let ((sc4 e-242)) (let ((e-245 (vector-ref sc4 1))) (let ((e-246 (vector-ref sc4 2))) (let ((sc5 e-246)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-241 (vector 1 e-245 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-241 (vector-ref sc2 1))) (let ((e-242 (vector-ref sc2 2))) (let ((sc3 e-242)) (let ((e-245 (vector-ref sc3 1))) (let ((e-246 (vector-ref sc3 2))) (let ((sc4 e-246)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-241 (vector 1 e-245 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-241 (vector-ref sc1 1))) (let ((e-242 (vector-ref sc1 2))) (let ((sc2 e-242)) (let ((e-245 (vector-ref sc2 1))) (let ((e-246 (vector-ref sc2 2))) (let ((sc3 e-246)) (Common-Scheme-Compiler-boolop ">=" (vector 1 e-241 (vector 1 e-245 (vector 0 )))))))))))))))) ((15) (let ((e-15 (vector-ref sc0 1))) (let ((sc1 e-15)) (case (vector-ref sc1 0) ((9) (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-boolop "char>?" (vector 1 e-277 (vector 1 e-281 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (let ((e-272 (vector-ref sc5 1))) (let ((e-273 (vector-ref sc5 2))) (let ((sc6 e-273)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-268 (vector 1 e-272 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-268 (vector-ref sc3 1))) (let ((e-269 (vector-ref sc3 2))) (let ((sc4 e-269)) (let ((e-272 (vector-ref sc4 1))) (let ((e-273 (vector-ref sc4 2))) (let ((sc5 e-273)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-268 (vector 1 e-272 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-268 (vector-ref sc2 1))) (let ((e-269 (vector-ref sc2 2))) (let ((sc3 e-269)) (let ((e-272 (vector-ref sc3 1))) (let ((e-273 (vector-ref sc3 2))) (let ((sc4 e-273)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-268 (vector 1 e-272 (vector 0 ))))))))))))))) ((8) (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-boolop "string>?" (vector 1 e-286 (vector 1 e-290 (vector 0 )))))(else (let ((sc4 arg-2)) (let ((e-268 (vector-ref sc4 1))) (let ((e-269 (vector-ref sc4 2))) (let ((sc5 e-269)) (let ((e-272 (vector-ref sc5 1))) (let ((e-273 (vector-ref sc5 2))) (let ((sc6 e-273)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-268 (vector 1 e-272 (vector 0 )))))))))))))))))(else (let ((sc3 arg-2)) (let ((e-268 (vector-ref sc3 1))) (let ((e-269 (vector-ref sc3 2))) (let ((sc4 e-269)) (let ((e-272 (vector-ref sc4 1))) (let ((e-273 (vector-ref sc4 2))) (let ((sc5 e-273)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-268 (vector 1 e-272 (vector 0 )))))))))))))))))(else (let ((sc2 arg-2)) (let ((e-268 (vector-ref sc2 1))) (let ((e-269 (vector-ref sc2 2))) (let ((sc3 e-269)) (let ((e-272 (vector-ref sc3 1))) (let ((e-273 (vector-ref sc3 2))) (let ((sc4 e-273)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-268 (vector 1 e-272 (vector 0 )))))))))))))))(else (let ((sc1 arg-2)) (let ((e-268 (vector-ref sc1 1))) (let ((e-269 (vector-ref sc1 2))) (let ((sc2 e-269)) (let ((e-272 (vector-ref sc2 1))) (let ((e-273 (vector-ref sc2 2))) (let ((sc3 e-273)) (Common-Scheme-Compiler-boolop ">" (vector 1 e-268 (vector 1 e-272 (vector 0 )))))))))))))))) ((16) (let ((sc1 arg-2)) (let ((e-295 (vector-ref sc1 1))) (let ((e-296 (vector-ref sc1 2))) (let ((sc2 e-296)) (Common-Scheme-Compiler-op "string-length" (vector 1 e-295 (vector 0 )))))))) ((17) (let ((sc1 arg-2)) (let ((e-300 (vector-ref sc1 1))) (let ((e-301 (vector-ref sc1 2))) (let ((sc2 e-301)) (Common-Scheme-Compiler-op "string-ref" (vector 1 e-300 (vector 1 "0" (vector 0 ))))))))) ((18) (let ((sc1 arg-2)) (let ((e-305 (vector-ref sc1 1))) (let ((e-306 (vector-ref sc1 2))) (let ((sc2 e-306)) (Common-Scheme-Compiler-op "substring" (vector 1 e-305 (vector 1 "1" (vector 1 (Common-Scheme-Compiler-op "string-length" (vector 1 e-305 (vector 0 ))) (vector 0 )))))))))) ((19) (let ((sc1 arg-2)) (let ((e-310 (vector-ref sc1 1))) (let ((e-311 (vector-ref sc1 2))) (let ((sc2 e-311)) (let ((e-314 (vector-ref sc2 1))) (let ((e-315 (vector-ref sc2 2))) (let ((sc3 e-315)) (Common-Scheme-Compiler-op "string-ref" (vector 1 e-310 (vector 1 e-314 (vector 0 )))))))))))) ((20) (let ((sc1 arg-2)) (let ((e-319 (vector-ref sc1 1))) (let ((e-320 (vector-ref sc1 2))) (let ((sc2 e-320)) (let ((e-323 (vector-ref sc2 1))) (let ((e-324 (vector-ref sc2 2))) (let ((sc3 e-324)) (Common-Scheme-Compiler-op "string-cons" (vector 1 e-319 (vector 1 e-323 (vector 0 )))))))))))) ((21) (let ((sc1 arg-2)) (let ((e-328 (vector-ref sc1 1))) (let ((e-329 (vector-ref sc1 2))) (let ((sc2 e-329)) (let ((e-332 (vector-ref sc2 1))) (let ((e-333 (vector-ref sc2 2))) (let ((sc3 e-333)) (Common-Scheme-Compiler-op "string-append" (vector 1 e-328 (vector 1 e-332 (vector 0 )))))))))))) ((22) (let ((sc1 arg-2)) (let ((e-337 (vector-ref sc1 1))) (let ((e-338 (vector-ref sc1 2))) (let ((sc2 e-338)) (Common-Scheme-Compiler-op "string-reverse" (vector 1 e-337 (vector 0 )))))))) ((23) (let ((sc1 arg-2)) (let ((e-342 (vector-ref sc1 1))) (let ((e-343 (vector-ref sc1 2))) (let ((sc2 e-343)) (let ((e-346 (vector-ref sc2 1))) (let ((e-347 (vector-ref sc2 2))) (let ((sc3 e-347)) (let ((e-350 (vector-ref sc3 1))) (let ((e-351 (vector-ref sc3 2))) (let ((sc4 e-351)) (Common-Scheme-Compiler-op "string-substr" (vector 1 e-342 (vector 1 e-346 (vector 1 e-350 (vector 0 )))))))))))))))) ((24) (let ((sc1 arg-2)) (let ((e-355 (vector-ref sc1 1))) (let ((e-356 (vector-ref sc1 2))) (let ((sc2 e-356)) (Common-Scheme-Compiler-op "exp" (vector 1 e-355 (vector 0 )))))))) ((25) (let ((sc1 arg-2)) (let ((e-360 (vector-ref sc1 1))) (let ((e-361 (vector-ref sc1 2))) (let ((sc2 e-361)) (Common-Scheme-Compiler-op "log" (vector 1 e-360 (vector 0 )))))))) ((26) (let ((sc1 arg-2)) (let ((e-365 (vector-ref sc1 1))) (let ((e-366 (vector-ref sc1 2))) (let ((sc2 e-366)) (Common-Scheme-Compiler-op "sin" (vector 1 e-365 (vector 0 )))))))) ((27) (let ((sc1 arg-2)) (let ((e-370 (vector-ref sc1 1))) (let ((e-371 (vector-ref sc1 2))) (let ((sc2 e-371)) (Common-Scheme-Compiler-op "cos" (vector 1 e-370 (vector 0 )))))))) ((28) (let ((sc1 arg-2)) (let ((e-375 (vector-ref sc1 1))) (let ((e-376 (vector-ref sc1 2))) (let ((sc2 e-376)) (Common-Scheme-Compiler-op "tan" (vector 1 e-375 (vector 0 )))))))) ((29) (let ((sc1 arg-2)) (let ((e-380 (vector-ref sc1 1))) (let ((e-381 (vector-ref sc1 2))) (let ((sc2 e-381)) (Common-Scheme-Compiler-op "asin" (vector 1 e-380 (vector 0 )))))))) ((30) (let ((sc1 arg-2)) (let ((e-385 (vector-ref sc1 1))) (let ((e-386 (vector-ref sc1 2))) (let ((sc2 e-386)) (Common-Scheme-Compiler-op "acos" (vector 1 e-385 (vector 0 )))))))) ((31) (let ((sc1 arg-2)) (let ((e-390 (vector-ref sc1 1))) (let ((e-391 (vector-ref sc1 2))) (let ((sc2 e-391)) (Common-Scheme-Compiler-op "atan" (vector 1 e-390 (vector 0 )))))))) ((32) (let ((sc1 arg-2)) (let ((e-395 (vector-ref sc1 1))) (let ((e-396 (vector-ref sc1 2))) (let ((sc2 e-396)) (Common-Scheme-Compiler-op "sqrt" (vector 1 e-395 (vector 0 )))))))) ((33) (let ((sc1 arg-2)) (let ((e-400 (vector-ref sc1 1))) (let ((e-401 (vector-ref sc1 2))) (let ((sc2 e-401)) (Common-Scheme-Compiler-op "floor" (vector 1 e-400 (vector 0 )))))))) ((34) (let ((sc1 arg-2)) (let ((e-405 (vector-ref sc1 1))) (let ((e-406 (vector-ref sc1 2))) (let ((sc2 e-406)) (Common-Scheme-Compiler-op "ceiling" (vector 1 e-405 (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) ((6) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((8) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-415 (vector-ref sc3 1))) (let ((e-416 (vector-ref sc3 2))) (let ((sc4 e-416)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-415 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((7) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-420 (vector-ref sc3 1))) (let ((e-421 (vector-ref sc3 2))) (let ((sc4 e-421)) (case (vector-ref sc4 0) ((0) e-420)(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-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-op "exact->inexact" (vector 1 e-425 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((9) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-430 (vector-ref sc3 1))) (let ((e-431 (vector-ref sc3 2))) (let ((sc4 e-431)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-int-char" (vector 1 e-430 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-411 (vector-ref sc2 2))) (let ((sc3 e-411)) (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) "\")"))))))))))) ((7) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((8) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-435 (vector-ref sc3 1))) (let ((e-436 (vector-ref sc3 2))) (let ((sc4 e-436)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-435 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((6) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-440 (vector-ref sc3 1))) (let ((e-441 (vector-ref sc3 2))) (let ((sc4 e-441)) (case (vector-ref sc4 0) ((0) e-440)(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-445 (vector-ref sc3 1))) (let ((e-446 (vector-ref sc3 2))) (let ((sc4 e-446)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact->inexact" (vector 1 e-445 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-411 (vector-ref sc2 2))) (let ((sc3 e-411)) (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 ((sc2 e-17)) (case (vector-ref sc2 0) ((8) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-450 (vector-ref sc3 1))) (let ((e-451 (vector-ref sc3 2))) (let ((sc4 e-451)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "number->string" (vector 1 e-450 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((7) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-455 (vector-ref sc3 1))) (let ((e-456 (vector-ref sc3 2))) (let ((sc4 e-456)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact-floor" (vector 1 e-455 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((6) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-460 (vector-ref sc3 1))) (let ((e-461 (vector-ref sc3 2))) (let ((sc4 e-461)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "exact-floor" (vector 1 e-460 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-411 (vector-ref sc2 2))) (let ((sc3 e-411)) (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) "\")"))))))))))) ((9) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((8) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-465 (vector-ref sc3 1))) (let ((e-466 (vector-ref sc3 2))) (let ((sc4 e-466)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "string" (vector 1 e-465 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((7) (let ((sc3 arg-2)) (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-op "char->integer" (vector 1 e-470 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((6) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-475 (vector-ref sc3 1))) (let ((e-476 (vector-ref sc3 2))) (let ((sc4 e-476)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "char->integer" (vector 1 e-475 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-411 (vector-ref sc2 2))) (let ((sc3 e-411)) (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) "\")"))))))))))) ((8) (let ((sc2 e-17)) (case (vector-ref sc2 0) ((7) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-480 (vector-ref sc3 1))) (let ((e-481 (vector-ref sc3 2))) (let ((sc4 e-481)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-int" (vector 1 e-480 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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) "\")"))))))))))) ((6) (let ((sc3 arg-2)) (case (vector-ref sc3 0) ((1) (let ((e-485 (vector-ref sc3 1))) (let ((e-486 (vector-ref sc3 2))) (let ((sc4 e-486)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-int" (vector 1 e-485 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-490 (vector-ref sc3 1))) (let ((e-491 (vector-ref sc3 2))) (let ((sc4 e-491)) (case (vector-ref sc4 0) ((0) (Common-Scheme-Compiler-op "cast-string-double" (vector 1 e-490 (vector 0 ))))(else (let ((sc4 arg-2)) (let ((e-411 (vector-ref sc4 2))) (let ((sc5 e-411)) (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-411 (vector-ref sc3 2))) (let ((sc4 e-411)) (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-411 (vector-ref sc2 2))) (let ((sc3 e-411)) (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-411 (vector-ref sc1 2))) (let ((sc2 e-411)) (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-496 (vector-ref sc1 2))) (let ((sc2 e-496)) (let ((e-500 (vector-ref sc2 2))) (let ((sc3 e-500)) (let ((e-503 (vector-ref sc3 1))) (let ((e-504 (vector-ref sc3 2))) (let ((sc4 e-504)) e-503))))))))) (else (let ((sc1 arg-2)) (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)) (Strings-Prelude-C-43C-43 "(blodwen-error-quit (string-append \"ERROR: \" " (Strings-Prelude-C-43C-43 e-512 "))")))))))))))))
(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) ((2) (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-15 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-18 eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) eta-0))))))))(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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc10 act-15)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc10 1))) (let ((act-16 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc11 act-16)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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 (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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc9 act-15)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-16 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc10 act-16)) (case (vector-ref sc10 0) ((0) (let ((e-4 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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 (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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc8 1))) (let ((act-16 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc9 act-16)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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 (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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc7 1))) (let ((act-16 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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 (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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-5) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc6 1))) (let ((act-16 (Common-Scheme-Compiler-readArgs arg-0 arg-1 arg-2 e-8 eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-10 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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)))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-28) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(box " (Strings-Prelude-C-43C-43 e-5 ")")))) 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)))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-38) eta-0))) (let ((sc5 act-15)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld (Strings-Prelude-C-43C-43 "(unbox " (Strings-Prelude-C-43C-43 e-5 ")")))) 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)))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-48) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-51) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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)))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-61) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-64) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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)))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-74) eta-0))) (let ((sc6 act-15)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc6 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-77) eta-0))) (let ((sc7 act-16)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))) 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)))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-87) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc7 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-90) eta-0))) (let ((sc8 act-16)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-17 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-93) eta-0))) (let ((sc9 act-17)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))))) 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)))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(display \"Error: Executed 'void'\")") 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)))))) ((11) (let ((sc1 arg-4)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(blodwen-os)") 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)))))) ((13) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-schName e-1)) eta-0)))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-schName e-3)) eta-0)))) ((2) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))) eta-0)))))))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-9) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-10) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))))) eta-0)))))))))))))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-12) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))) eta-0))))))))(else (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-12) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) ")"))))) eta-0)))))))))))))))))) ((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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-schConstructor arg-1 e-15 e-16 e-5)) eta-0))))))))))) ((6) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased arg-2 e-21) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-schOp 'erased e-20 e-5)) eta-0)))))))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-26) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 e-5 ")"))) eta-0))))))))) ((9) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-28) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(lambda () " (Strings-Prelude-C-43C-43 e-5 ")"))) eta-0))))))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "'erased") eta-1))) (lambda () (lambda (eta-1) (Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 eta-1))) e-32) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))))) eta-0)))))))))))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-16 ((Common-Scheme-Compiler-schConUncheckedAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) n e-46) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))))) eta-0))))))))))))))(else (let ((sc3 e-32)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc4 act-15)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc4 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-16 ((Common-Scheme-Compiler-n--14722-8857-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) eta-0))) (let ((sc5 act-16)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 "))"))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-1))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-1))))))))) e-32) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) n eta-1)) e-31) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) "))")))))))))) eta-0)))))))))))))))))))))))))(else (let ((sc2 e-32)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc3 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-16 ((Common-Scheme-Compiler-n--14722-8857-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 "))"))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-1))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-1))))))))) e-32) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) n eta-1)) e-31) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) "))")))))))))) eta-0)))))))))))))))))))))))))))(else (let ((sc1 e-32)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-16 ((Common-Scheme-Compiler-n--14722-8857-showAlts arg-0 arg-1 e-31 e-30 e-29 arg-2 n e-31) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 "))"))))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-30) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-6)) eta-1))))))))) e-32) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) n eta-1)) e-31) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) "))")))))))))) eta-0))))))))))))))))))))))))))))) ((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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-34) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-16 ((Common-Scheme-Compiler-n--14722-8980-showConstAlts arg-0 arg-1 e-35 e-34 e-33 arg-2 n e-35) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 "))"))))))) eta-0))))))))))))))(else (lambda (eta-0) (let ((act-15 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (v) (lambda (eta-1) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 v) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5)) eta-1))))))))) e-36) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) e-34) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((n (Strings-Prelude-C-43C-43 "sc" (Prelude-show_Show__Int arg-2)))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Common-Scheme-Compiler-schConstAlt arg-0 arg-1 (Prelude-C-43_Num__Int arg-2 1) n eta-1)) e-35) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) "))")))))))) eta-0)))))))))))))))))))))))))) ((12) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-schConstant arg-1 e-38)) eta-0)))) ((13) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "'erased") eta-0))) (else (let ((e-41 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(blodwen-error-quit " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-41) ")"))) eta-0))))))))
(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-15 ((Context-Core-getFullName arg-2 arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 0 e-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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;"))))))) eta-0))))))))))))))) ((3) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((Context-Core-getFullName arg-2 arg-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Common-Scheme-Compiler-schExp arg-0 arg-1 0 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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;"))))) eta-0)))))))))))))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))))))
(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))) (arg-0 e-2))) ((3) (let ((e-3 (vector-ref sc0 1))) (Common-Scheme-Compiler-case--14473-8239 arg-0 e-3 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Int (Prelude-cast_Cast__Char_Int e-3) 32) (lambda () (Prelude-C-60_Ord__Int (Prelude-cast_Cast__Char_Int e-3) (Prelude-fromInteger_Num__Int 127))))))) ((4) (let ((e-4 (vector-ref sc0 1))) (Prelude-show_Show__Double e-4))) ((5) "#f") ((6) "#t") ((7) "#t") ((8) "#t") ((9) "#t") ((10) "#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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))))) eta-0))))))))))))
(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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-n--14719-8564-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5)) eta-0))))))))))))))
(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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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--14718-8466-bindArgs arg-0 arg-1 e-3 e-2 e-1 e-0 arg-3 arg-2 1 e-2 e-5) ")"))))) eta-0))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-3 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Common-Scheme-Compiler-schArgs arg-0 arg-1 'erased arg-3 e-4) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 e-5 e-6)) eta-0)))))))))))))))))))
(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-15 ((Common-Scheme-Compiler-schExp arg-0 arg-1 arg-2 arg-3) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(blodwen-read-args " (Strings-Prelude-C-43C-43 e-5 ")"))) ext-0))))))))
(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) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (Common-Compiler-exists e-2 eta-0))) (let ((sc1 act-15)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (vector 1 e-2) eta-0)) (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--15880-12078 (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-15 (let ((act-15 (System-system e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
(define Racket-Scheme-Compiler-case--15218-11967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-15 (System-system (Strings-Prelude-C-43C-43 arg-16 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 arg-14 (Strings-Prelude-C-43C-43 " " arg-13)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-1))) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))
(define Racket-Scheme-Compiler-case--15418-11846 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0)))))))
(define Racket-Scheme-Compiler-case--15418-11725 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11))))))
(define Racket-Scheme-Compiler-case--15340-11681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20) (let ((sc0 arg-20)) (cond ((equal? sc0 0) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (Racket-Scheme-Compiler-makeShWindows "" arg-19 arg-5 arg-12)) (else (Racket-Scheme-Compiler-makeShWindows (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11))))) (else (let ((sc1 arg-4)) (cond ((equal? sc1 0) (lambda (eta-0) (Racket-Scheme-Compiler-makeSh "" arg-19 arg-5 arg-12 eta-0))) (else (lambda (eta-0) (Racket-Scheme-Compiler-makeSh (Strings-Prelude-C-43C-43 arg-17 " ") arg-19 arg-5 arg-11 eta-0))))))))))
(define Racket-Scheme-Compiler-case--15218-11617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (let ((outShRel (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-0)))) (lambda (eta-0) (let ((act-15 ((Racket-Scheme-Compiler-case--15340-11681 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 outShRel (Options-Core-isWindows)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (File-System-chmodRaw outShRel (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 outShRel)) eta-0)))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Racket-Scheme-Compiler-case--15218-11534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) ".exe") (else "")))))
(define Racket-Scheme-Compiler-case--15198-11512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((ext (let ((_-0 (vector 1 e-1))) (Racket-Scheme-Compiler-case--15218-11534 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 (Options-Core-isWindows))))) (let ((outRktFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ".rkt"))))) (let ((outBinFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ext))))) (let ((outRktAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outRktFile)))))) (let ((outBinAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outBinFile)))))) (lambda (eta-0) (let ((act-15 (Racket-Scheme-Compiler-compileToRKT arg-3 arg-6 arg-1 outRktAbs eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (Racket-Scheme-Compiler-findRacoExe eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (Racket-Scheme-Compiler-findRacket eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((sc4 arg-4)) (cond ((equal? sc4 0) (Context-Core-logTime 'erased arg-3 (lambda () "Build racket") (lambda (eta-1) (let ((act-18 (System-system (Strings-Prelude-C-43C-43 e-6 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--15218-11617 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-5 e-6 e-7 e-8 (Prelude-C-61C-61_Eq__Int e-8 0)) eta-0)))))))))))))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
(define Racket-Scheme-Compiler-case--15108-11437 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--15095-11414 (lambda (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-15 (let ((act-15 (File-System-writeFile arg-2 (Racket-Scheme-Compiler-startRacketWinSh arg-3 arg-1 arg-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--15048-11371 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--14823-11250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-15 (let ((act-15 (File-System-chmodRaw arg-0 (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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 Racket-Scheme-Compiler-case--14561-10960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))))) eta-0)))))))))))))))))
(define Racket-Scheme-Compiler-case--14427-10822 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) arg-3)) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-2 (vector 1 arg-1 arg-4) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--14427-10779-showFld arg-0 arg-1 arg-2 eta-1)) arg-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))) eta-0))))))))))))))))
(define Racket-Scheme-Compiler-case--14190-10577 (lambda (arg-0 arg-1 arg-2 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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 "" e-7)) eta-0))))))))(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) (lambda (eta-0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (Racket-Scheme-Compiler-cCall arg-8 arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0)))(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--14145-10532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld arg-4)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define Racket-Scheme-Compiler-case--13687-10440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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) ((8) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-handleRet e-0 arg-18)))(else arg-18)))))
(define Racket-Scheme-Compiler-case--13687-10339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-8 (vector 1 arg-3 arg-10) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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;"))))))))) eta-0)))))))))))
(define Racket-Scheme-Compiler-case--13784-10290 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 ((Common-Compiler-copyLib (vector 0 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e-2)) e-3)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-loadlib arg-11 arg-12)) eta-0)))))))))))
(define Racket-Scheme-Compiler-case--13687-10214 (lambda (arg-0 arg-1 arg-2 arg-3 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-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-6 (vector 1 arg-11 arg-9) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Common-Compiler-locate arg-7 arg-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-17 ((Common-Compiler-copyLib (vector 0 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e-2)) e-3)) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-loadlib arg-11 arg-12)) eta-0)))))))))))))))))))))))
(define Racket-Scheme-Compiler-case--13514-10127 (lambda (arg-0 arg-1 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-15 ((Racket-Scheme-Compiler-case--13687-10214 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-2 arg-9)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (a) (lambda (eta-1) (let ((act-16 ((Racket-Scheme-Compiler-cftySpec arg-4 (Builtin-snd 'erased 'erased a)) eta-1))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-1))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 a e-6)) eta-1)))))))) arg-1) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((Racket-Scheme-Compiler-cftySpec arg-4 arg-0) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 ((Racket-Scheme-Compiler-case--13687-10339 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-3 arg-10)) eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-n--13514-9975-useArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 eta-1)) e-6) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) ")")))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (Strings-Prelude-C-43C-43 e-5 e-8) (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((8) (let ((e-0 (vector-ref sc6 1))) (Racket-Scheme-Compiler-handleRet e-0 call)))(else call))))) eta-0)))))))))))))))))))))))))))))))))
(define Racket-Scheme-Compiler-case--13423-9901 (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--13419-9877 (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--13423-9901 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--13027-9540 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (arg-2) (Strings-Prelude-C-43C-43 (Strings-Prelude-C-43C-43 "\\u" (Racket-Scheme-Compiler-n--13027-9489-pad arg-0 (Hex-Utils-asHex (Prelude-cast_Cast__Char_Int arg-0)))) arg-2))) (else (lambda (eta-0) (Prelude-strCons arg-0 eta-0)))))))
(define Racket-Scheme-Compiler-case--13031-9498 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (+ 1 (+ 1 (+ 1 (+ 1 0)))) (Prelude-length arg-1)) #\0)) arg-1)) (else arg-1)))))
(define Racket-Scheme-Compiler-n--13514-9975-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 ((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) ((7) (let ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (Racket-Scheme-Compiler-n--13514-9974-callback arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Common-Scheme-Compiler-schName e-6) (vector 1 e-8 (vector 0 )) e-9))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-rktToC e-7 (Common-Scheme-Compiler-schName e-6))) eta-0))))))))))))
(define Racket-Scheme-Compiler-n--14427-10779-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-15 ((Racket-Scheme-Compiler-cftySpec (FC-Core-emptyFC) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))) eta-0))))))))))))
(define Racket-Scheme-Compiler-n--13027-9489-pad (lambda (arg-0 arg-1) (Racket-Scheme-Compiler-case--13031-9498 arg-0 arg-1 (Nat-Data-isLTE (Prelude-length arg-1) (+ 1 (+ 1 (+ 1 (+ 1 0))))))))
(define Racket-Scheme-Compiler-n--13514-9973-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) ((6) 1)(else 0)))))
(define Racket-Scheme-Compiler-n--13514-9970-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) ((6) (vector 1 (vector 0 ) (Racket-Scheme-Compiler-n--13514-9970-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--13514-9970-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 (Prelude-C-43_Num__Int arg-9 1) e-3))))))))))))
(define Racket-Scheme-Compiler-n--13514-9972-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--13514-9970-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--13514-9971-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--13341-9826-funTySpec (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 ((sc1 e-0)) (case (vector-ref sc1 0) ((6) (Racket-Scheme-Compiler-n--13341-9826-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Racket-Scheme-Compiler-n--13341-9826-funTySpec arg-0 arg-1 arg-2 (vector 1 e-0 arg-3) e-1)))))))(else (lambda (eta-0) (let ((act-15 ((Racket-Scheme-Compiler-cftySpec arg-2 arg-4) eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((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-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))) eta-0)))))))))))))))))
(define Racket-Scheme-Compiler-n--13514-9974-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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--13514-9974-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-15 ((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--13514-9973-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Racket-Scheme-Compiler-cftySpec arg-4 arg-11) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Racket-Scheme-Compiler-n--13514-9972-mkFun arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 args arg-11 arg-9)) eta-0))))))))))))))))
(define Racket-Scheme-Compiler-n--13514-9971-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--13514-9971-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--13514-9971-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--14190-10577 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 "DIR=\"`realpath \"$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 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 "DIR=\"`realpath $0`\"" (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--13027-9540 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 (Prelude-fromInteger_Num__Int 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) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld call)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased call) eta-0))))))))
(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 () ")"))
(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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Racket-Scheme-Compiler-mkStruct arg-3 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Racket-Scheme-Compiler-mkStruct arg-3 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 ((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-19)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))))) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 "" "")) eta-0)))))))
(define Racket-Scheme-Compiler-rktToC (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((4) (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) ((2) (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) ((2) (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-15 ((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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))))) eta-0))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-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) ((2) (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) ((2) (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-15 ((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-15)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-16 ((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-16)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))))))) eta-0)))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") 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))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-Scheme-Compiler-racketPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Racket-Scheme-Compiler-racketString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Racket-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "\"racket\"") 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))))))
(define Racket-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Racket-Scheme-Compiler-case--14427-10822 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 e-6)) eta-0))))))))))))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Racket-Scheme-Compiler-mkStruct arg-0 e-2))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Racket-Scheme-Compiler-mkStruct arg-0 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Racket-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))))))
(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) ((6) (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 (Prelude-C-43_Num__Int arg-0 1) 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-15 (let ((act-15 (File-System-writeFile cmdFile (Racket-Scheme-Compiler-startRacketCmd arg-0 arg-2 arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacketWinSh arg-0 arg-2 arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (File-System-writeFile arg-1 (Racket-Scheme-Compiler-startRacket arg-0 arg-2 arg-3) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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 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--13419-9877 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-15 (System-getEnv "RACKET_RACO" ext-0))) (Prelude-pure_Applicative__IO 'erased (Strings-Prelude-C-43C-43 (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env raco") act-15) " exe") ext-0))))
(define Racket-Scheme-Compiler-findRacket (lambda (ext-0) (let ((act-15 (System-getEnv "RACKET" ext-0))) (Prelude-pure_Applicative__IO 'erased (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env racket") act-15) ext-0))))
(define Racket-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Racket-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-2 "_tmpracket") ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (System-system e-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-15 (Common-Compiler-getCompileData arg-0 (vector 0 ) arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Done" ) (Prelude-empty_Alternative__List 'erased) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Loaded" ) (vector 0 ) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Racket.Structs" ) (vector 0 ) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 ((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-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((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-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-22 ((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-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 (Directory-Core-readDataFile arg-0 "racket/support.rkt" ext-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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-24 (let ((act-24 (File-System-writeFile arg-3 scm ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc9 act-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-25 (let ((act-25 (File-System-chmodRaw arg-3 (Prelude-fromInteger_Num__Int 493) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) ext-0)))) (let ((sc12 act-25)) (case (vector-ref sc12 0) ((0) (let ((e-3 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))) (else (let ((e-15 (vector-ref sc10 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 arg-3 e-15) ext-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Racket-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) appDirRel)))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (Directory-Core-splitDir appDirGen)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Directory-System-currentDir eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (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--15218-11534 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 (Options-Core-isWindows))))) (let ((outRktFile (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ".rkt"))))) (let ((outBinFile (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ext))))) (let ((outRktAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outRktFile)))))) (let ((outBinAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outBinFile)))))) (let ((act-17 (Racket-Scheme-Compiler-compileToRKT arg-1 appDirGen arg-3 outRktAbs eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (let ((act-18 (Racket-Scheme-Compiler-findRacoExe eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (let ((act-19 (Racket-Scheme-Compiler-findRacket eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((act-20 (let ((sc6 arg-0)) (cond ((equal? sc6 0) (Context-Core-logTime 'erased arg-1 (lambda () "Build racket") (lambda (eta-1) (let ((act-20 (System-system (Strings-Prelude-C-43C-43 e-8 (Strings-Prelude-C-43C-43 " -o " (Strings-Prelude-C-43C-43 outBinAbs (Strings-Prelude-C-43C-43 " " outRktAbs)))) eta-1))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-1))) eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-10 (vector-ref sc6 1))) (let ((_-0 (vector 1 e-1))) ((Racket-Scheme-Compiler-case--15218-11617 arg-4 arg-3 arg-2 arg-1 arg-0 appDirRel appDirGen e-5 e-1 _-0 ext outRktFile outBinFile outRktAbs outBinAbs e-7 e-8 e-9 e-10 (Prelude-C-61C-61_Eq__Int e-10 0)) eta-0))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
(define Racket-Scheme-Compiler-codegenRacket (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Racket-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
(define Racket-Scheme-Compiler-cftySpec (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_void") eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_int") eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_string/utf-8") eta-0))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_double") eta-0))) ((4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_int8") eta-0))) ((5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "_pointer") eta-0))) ((8) (let ((e-0 (vector-ref sc0 1))) (Racket-Scheme-Compiler-cftySpec arg-0 e-0))) ((9) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "_" (Strings-Prelude-C-43C-43 e-1 "-pointer"))) eta-0)))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Racket-Scheme-Compiler-n--13341-9826-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) ((4) (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 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) ((Racket-Scheme-Compiler-case--13514-10127 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)) ext-0)))))))))))))
(define Chez-Scheme-Compiler-case--15679-11980 (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-15 (let ((act-15 (System-system e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "compileExpr returned Nothing") eta-0)))))))
(define Chez-Scheme-Compiler-case--15387-11880 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-11) (else arg-10)))))
(define Chez-Scheme-Compiler-case--15387-11771 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17) (let ((sc0 arg-4)) (cond ((equal? sc0 0) arg-11) (else arg-10)))))
(define Chez-Scheme-Compiler-case--15309-11730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (Chez-Scheme-Compiler-makeShWindows arg-14 arg-17 arg-5 (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-11) (else arg-10))))) (else (lambda (eta-0) (Chez-Scheme-Compiler-makeSh arg-17 arg-5 (let ((sc1 arg-4)) (cond ((equal? sc1 0) arg-11) (else arg-10))) eta-0)))))))
(define Chez-Scheme-Compiler-case--15289-11652 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((outSsFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ".ss"))))) (let ((outSoFile (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-0 ".so"))))) (let ((outSsAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outSsFile)))))) (let ((outSoAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outSoFile)))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Chez-Scheme-Compiler-findChez eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (Chez-Scheme-Compiler-compileToSS arg-3 arg-6 arg-1 outSsAbs eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (Context-Core-logTime 'erased arg-3 (lambda () "Make SO") (let ((sc3 arg-4)) (cond ((equal? sc3 0) (Chez-Scheme-Compiler-compileToSO arg-3 e-5 arg-6 outSsAbs)) (else (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((outShRel (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-0)))) (let ((act-18 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--15309-11730 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-1 _-0 outSsFile outSoFile outSsAbs outSoAbs e-5 e-6 e-7 outShRel (Options-Core-isWindows)) eta-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-19 (let ((act-19 (File-System-chmodRaw outShRel (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 outShRel)) eta-0)))))))))))))))))))))))))))))))) (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--15199-11577 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--15186-11554 (lambda (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-15 (let ((act-15 (File-System-writeFile arg-2 (Chez-Scheme-Compiler-startChezWinSh arg-3 arg-1 arg-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--15145-11515 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--15065-11448 (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-15 (let ((act-15 (File-System-chmodRaw arg-4 (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (System-system (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 arg-4 "\""))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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--14803-11307 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-15 (let ((act-15 (File-System-chmodRaw arg-0 (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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 Chez-Scheme-Compiler-case--14547-10995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))))))) eta-0)))))))))))))))))
(define Chez-Scheme-Compiler-case--14413-10859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String)))) arg-3)) eta-0))) (else (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-2 (vector 1 arg-1 arg-4) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-n--14413-10816-showFld arg-0 arg-1 arg-2 eta-1)) arg-0) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))) eta-0))))))))))))))))
(define Chez-Scheme-Compiler-case--14193-10628 (lambda (arg-0 arg-1 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-15 ((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-15)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 "" e-7)) eta-0))))))))(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) (lambda (eta-0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0))) ((1) (let ((e-20 (vector-ref sc5 2))) (let ((sc6 e-20)) (case (vector-ref sc6 0) ((0) (lambda (eta-0) (Chez-Scheme-Compiler-cCall arg-7 arg-6 arg-5 arg-4 e-12 e-15 arg-3 arg-2 eta-0)))(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--14148-10584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld arg-4)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))
(define Chez-Scheme-Compiler-case--13773-10512 (lambda (arg-0 arg-1 arg-2 arg-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) ((8) (Chez-Scheme-Compiler-handleRet arg-11 arg-13))(else arg-13)))))
(define Chez-Scheme-Compiler-case--13957-10457 (lambda (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-15 ((Common-Compiler-copyLib (vector 0 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e-2)) e-3)) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-writeIORef 'erased arg-6 (vector 1 arg-2 arg-8) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\xa;"))) eta-0)))))))))))))))
(define Chez-Scheme-Compiler-case--13773-10408 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9) (let ((sc0 arg-9)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0))) (else (lambda (eta-0) (let ((act-15 ((Common-Compiler-locate arg-7 arg-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 ((Common-Compiler-copyLib (vector 0 (Strings-Prelude-C-43C-43 arg-5 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e-2)) e-3)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-6 (vector 1 arg-2 arg-8) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(load-shared-object \"" (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-escapeString e-2) "\")\xa;"))) eta-0)))))))))))))))))))))))
(define Chez-Scheme-Compiler-case--13178-9658 (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--13138-9624 (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--13071-9533 (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--13049-9520 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased e-1 eta-0)))) (else (lambda (eta-0) (Chez-Scheme-Compiler-pathLookup eta-0)))))))
(define Chez-Scheme-Compiler-n--14413-10816-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-15 ((Chez-Scheme-Compiler-cftySpec (FC-Core-emptyFC) e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 e-5 "]"))))) eta-0))))))))))))
(define Chez-Scheme-Compiler-n--13773-10240-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) ((6) 1)(else 0)))))
(define Chez-Scheme-Compiler-n--13773-10236-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) ((6) (vector 1 (vector 0 ) (Chez-Scheme-Compiler-n--13773-10236-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--13773-10236-mkNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 (Prelude-C-43_Num__Int arg-8 1) e-3))))))))))))
(define Chez-Scheme-Compiler-n--13773-10239-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--13773-10236-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--13773-10237-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--13067-9529-isLib (lambda (arg-0 arg-1 arg-2) (Chez-Scheme-Compiler-case--13071-9533 arg-0 arg-1 arg-2 (Strings-Data-isPrefixOf "lib" arg-2))))
(define Chez-Scheme-Compiler-n--13111-9572-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--13773-10241-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) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Chez-Scheme-Compiler-n--13773-10241-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-15 ((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--13773-10240-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-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Chez-Scheme-Compiler-cftySpec arg-4 arg-10) eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(let ([c-code (foreign-callable #f " (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-n--13773-10239-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))")))))))) eta-0))))))))))))))))))
(define Chez-Scheme-Compiler-n--13773-10242-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) ((7) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Chez-Scheme-Compiler-n--13773-10241-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))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-schName e-2)) eta-0))))))))))
(define Chez-Scheme-Compiler-n--13773-10237-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--13773-10237-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--13773-10237-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--14193-10628 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "int") 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)))))) ((equal? sc2 "String") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "string") 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)))))) ((equal? sc2 "Double") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "double") 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)))))) ((equal? sc2 "Char") (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "char") 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))))))) ((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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void*") eta-0)))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void") eta-0)))) (vector 1 (vector 0 (lambda () (Name-Core-C-61C-61_Eq__Name e-6 (vector 1 "AnyPtr"))) (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void*") eta-0)))) (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 "DIR=\"`realpath $0`\"" (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--13178-9658 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 (Prelude-fromInteger_Num__Int 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) ((8) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Common-Scheme-Compiler-mkWorld call)) eta-0)))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased call) eta-0))))))))
(define Chez-Scheme-Compiler-schHeader (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 (Chez-Scheme-Compiler-case--13138-9624 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 () ")"))
(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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Chez-Scheme-Compiler-mkStruct arg-2 eta-1)) e-1) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((Chez-Scheme-Compiler-mkStruct arg-2 e-2) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 ((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-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-8 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-8) eta-0))) (else (let ((e-8 (vector-ref sc5 1))) (let ((act-19 ((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-19)) (case (vector-ref sc6 0) ((0) (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-9) eta-0))) (else (let ((e-9 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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;")))))))))) eta-0)))))))))))))))))))))))))))))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 "" "")) eta-0)))))))
(define Chez-Scheme-Compiler-pathLookup (lambda (ext-0) (let ((act-15 (System-getEnv "PATH" ext-0))) (let ((pathList (Strings-Data-split (lambda (arg-0) (Prelude-C-61C-61_Eq__Char arg-0 (Options-Core-pathSep))) (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin:/usr/local/bin") act-15)))) (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-16 ((Common-Scheme-Compiler-firstExists candidates) ext-0))) (Prelude-pure_Applicative__IO 'erased (Maybe-Data-fromMaybe 'erased (lambda () "/usr/bin/env scheme") act-16) ext-0)))))))
(define Chez-Scheme-Compiler-mkStruct (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((9) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) ((Chez-Scheme-Compiler-case--14413-10859 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-0 e-6)) eta-0))))))))))))))) ((8) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-mkStruct arg-0 e-2))) ((7) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Chez-Scheme-Compiler-mkStruct arg-0 e-3) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Chez-Scheme-Compiler-mkStruct arg-0 e-4) eta-0)))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "") eta-0)))))))
(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) ((6) (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 (Prelude-C-43_Num__Int arg-0 1) 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-15 (let ((act-15 (File-System-writeFile cmdFile (Chez-Scheme-Compiler-startChezCmd arg-0 arg-2 arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (File-System-writeFile arg-1 (Chez-Scheme-Compiler-startChezWinSh arg-0 arg-2 arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 (let ((act-15 (File-System-writeFile arg-0 (Chez-Scheme-Compiler-startChez arg-1 arg-2) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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)) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-15 ((Chez-Scheme-Compiler-getFArgs e-13) eta-0))) (let ((sc7 act-15)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 e-7 e-10) e-6)) 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))))))))(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--13067-9529-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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) libs)))))
(define Chez-Scheme-Compiler-findChez (lambda (ext-0) (let ((act-15 (System-getEnv "CHEZ" ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased e-1 ext-0))) (else (Chez-Scheme-Compiler-pathLookup ext-0)))))))
(define Chez-Scheme-Compiler-executeExpr (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 ((Chez-Scheme-Compiler-compileExpr 1 arg-0 arg-1 arg-2 "_tmpchez") ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (System-system e-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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--13111-9572-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-15 (Context-Core-getDirectives arg-0 (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Chez-Scheme-Compiler-findLibs arg-0 e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-0) (Common-Compiler-copyLib eta-0)) e-6) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (Common-Compiler-getCompileData arg-0 (vector 0 ) arg-2 ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-19 (let ((act-19 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Loaded" ) (vector 1 "libc" (vector 1 "libc 6" (vector 0 ))) ext-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 (Core-Core-newRef 'erased 'erased (vector "Compiler.Scheme.Chez.Structs" ) (vector 0 ) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((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-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (let ((act-23 ((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-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-24 ((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-24)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-14 (vector-ref sc9 1))) (let ((act-25 (let ((act-25 (Chez-Scheme-Compiler-findChez ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-25) ext-0)))) (let ((sc10 act-25)) (case (vector-ref sc10 0) ((0) (let ((e-2 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-15 (vector-ref sc10 1))) (let ((act-26 (Directory-Core-readDataFile arg-0 "chez/support.ss" ext-0))) (let ((sc11 act-26)) (case (vector-ref sc11 0) ((0) (let ((e-2 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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 e-14 (Chez-Scheme-Compiler-schFooter)))))))) (let ((act-27 (let ((act-27 (File-System-writeFile arg-3 scm ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-27) ext-0)))) (let ((sc12 act-27)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-28 (let ((act-28 (File-System-chmodRaw arg-3 (Prelude-fromInteger_Num__Int 493) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-28) ext-0)))) (let ((sc15 act-28)) (case (vector-ref sc15 0) ((0) (let ((e-3 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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 (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "compileChez")))) (let ((build (Strings-Prelude-C-43C-43 "(parameterize ([optimize-level 3]) (compile-program " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String arg-3) "))")))) (lambda (eta-0) (let ((act-15 (let ((act-15 (File-System-writeFile tmpFileAbs build eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (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-16 (let ((act-16 (File-System-chmodRaw tmpFileAbs (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (System-system (Strings-Prelude-C-43C-43 arg-1 (Strings-Prelude-C-43C-43 " --script \"" (Strings-Prelude-C-43C-43 tmpFileAbs "\""))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (Core-Core-throw_Catchable__Core_Error 'erased (vector 49 tmpFileAbs e-6) eta-0)))))))))))))))
(define Chez-Scheme-Compiler-compileExpr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((appDirRel (Strings-Prelude-C-43C-43 arg-4 "_app"))) (let ((appDirGen (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) appDirRel)))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (Directory-Core-splitDir appDirGen)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (Directory-System-currentDir eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (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 (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ".ss"))))) (let ((outSoFile (Strings-Prelude-C-43C-43 appDirRel (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 ".so"))))) (let ((outSsAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outSsFile)))))) (let ((outSoAbs (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) outSoFile)))))) (let ((act-17 (let ((act-17 (Chez-Scheme-Compiler-findChez eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-18 (Chez-Scheme-Compiler-compileToSS arg-1 appDirGen arg-3 outSsAbs eta-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((act-19 (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))))) eta-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc5 1))) (let ((outShRel (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)))) (let ((act-20 (let ((_-0 (vector 1 e-1))) ((Chez-Scheme-Compiler-case--15309-11730 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 (Options-Core-isWindows)) eta-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((act-21 (File-System-chmodRaw outShRel (Prelude-fromInteger_Num__Int 493) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 outShRel)) eta-0))))))))))))))))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))))))))))))))
(define Chez-Scheme-Compiler-codegenChez (lambda () (vector 0 (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-compileExpr 0 eta-0 eta-1 eta-2 eta-3))))) (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (Chez-Scheme-Compiler-executeExpr eta-0 eta-1 eta-2 eta-3))))))))
(define Chez-Scheme-Compiler-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) ((2) (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-15 ((Chez-Scheme-Compiler-getFArgs e-17) eta-0))) (let ((sc8 act-15)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc8 1))) (let ((act-16 ((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-16)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc9 1))) (let ((act-17 ((Chez-Scheme-Compiler-tySpec e-1) eta-0))) (let ((sc10 act-17)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-8 (vector-ref sc10 1))) (let ((act-18 ((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-18)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-9 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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) ")")))))))))) eta-0)))))))))))))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad ffi call\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-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) ((2) (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) ((2) (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-15 ((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-15)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")"))))))) eta-0))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad getField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-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) ((2) (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) ((2) (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-15 ((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-15)) (case (vector-ref sc14 0) ((0) (let ((e-2 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc14 1))) (let ((act-16 ((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-16)) (case (vector-ref sc15 0) ((0) (let ((e-2 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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 ")")))))))))) eta-0)))))))))))))(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "(error \"bad setField\")") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2))))))))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "\"chez\"") eta-0)))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-Scheme-Compiler-chezExtPrim eta-0 eta-1 eta-2)))) (lambda (eta-0) (Chez-Scheme-Compiler-chezString eta-0)) arg-0 arg-1 arg-2)))))(else (Common-Scheme-Compiler-schExtCommon (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (Chez-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void") eta-0))) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "int") eta-0))) ((2) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "string") eta-0))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "double") eta-0))) ((4) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "char") eta-0))) ((5) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void*") eta-0))) ((7) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased "void*") eta-0))) ((8) (let ((e-2 (vector-ref sc0 1))) (Chez-Scheme-Compiler-cftySpec arg-0 e-2))) ((9) (let ((e-3 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (Strings-Prelude-C-43C-43 "(* " (Strings-Prelude-C-43C-43 e-3 ")"))) eta-0))))(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 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Chez-Scheme-Compiler-case--13773-10408 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-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) arg-5 e-5)) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (a) (Chez-Scheme-Compiler-cftySpec arg-3 (Builtin-snd 'erased 'erased a))) arg-6) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Chez-Scheme-Compiler-cftySpec arg-3 arg-7) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-19 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Chez-Scheme-Compiler-n--13773-10242-buildArg arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) arg-6) ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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) ")")))))))))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-6 (let ((sc5 arg-7)) (case (vector-ref sc5 0) ((8) (Chez-Scheme-Compiler-handleRet e-8 call))(else call))))) ext-0)))))))))))))))))))))))))))))
(define CommandLine-Idris-case--3212-1344 (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--3190-1313 (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 () (Prelude-fromInteger_Num__Int 38398)) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (CommandLine-Idris-portPart e-3) (lambda (eta-0) (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2338) (lambda (arg-2339) (Prelude-C-43_Num__Int arg-2338 arg-2339))) (lambda (arg-2340) (lambda (arg-2341) (Prelude-C-42_Num__Int arg-2340 arg-2341))) (lambda (arg-2342) (Prelude-fromInteger_Num__Int arg-2342))) eta-0)))))) (let ((host (CommandLine-Idris-case--3212-1344 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--3171-1280 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (substring arg-0 1 (string-length arg-0))))))))
(define CommandLine-Idris-case--3144-1257 (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (CommandLine-Idris-getOpts e-2) eta-0))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 "Invalid command line") eta-0)))))))
(define CommandLine-Idris-case--3098-1225 (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) (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-2 cls)))))))))
(define CommandLine-Idris-case--3028-1188 (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--2976-1111 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-processArgs arg-0 (let ((sc1 arg-2)) (let ((e-1 (vector-ref sc1 2))) e-1)) arg-1 (let ((sc1 arg-2)) (let ((e-2 (vector-ref sc1 3))) e-2))) (lambda (args) (vector 1 (vector 1 args))))) (else (vector 1 (vector 0 )))))))
(define CommandLine-Idris-n--2894-1021-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--2894-1021-showSep arg-0 arg-1 e-3)))))))))))))
(define CommandLine-Idris-versionMsg (lambda () (Strings-Prelude-C-43C-43 "Idris 2, version " (Version-Idris-showVersion 0 (Version-Idris-version)))))
(define CommandLine-Idris-usage (lambda () (Strings-Prelude-C-43C-43 (CommandLine-Idris-versionMsg) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Usage: idris2 [options] [input file]\xa;\xa;" (Strings-Prelude-C-43C-43 "Available options:\xa;" ((Prelude-concatMap 'erased 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (CommandLine-Idris-optUsage eta-0))) (CommandLine-Idris-options))))))))
(define CommandLine-Idris-processArgs (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 arg-3 arg-2))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-2)) (case (vector-ref sc1 0) ((0) (vector 0 (Strings-Prelude-C-43C-43 "Missing argument <" (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "> for flag " arg-0))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-7 (arg-3 e-6))))))))))))))
(define CommandLine-Idris-portPart (lambda (arg-0) (CommandLine-Idris-case--3171-1280 arg-0 (Prelude-C-61C-61_Eq__String arg-0 ""))))
(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) (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (List-Prelude-C-43C-43 'erased e-2 cls))))))))))))))
(define CommandLine-Idris-options (lambda () (vector 1 (vector 0 (vector 1 "--check" (vector 1 "-c" (vector 0 ))) (vector 0 ) (vector 1 (vector 0 ) (vector 0 )) (vector 1 "Exit after checking source file")) (vector 1 (vector 0 (vector 1 "--output" (vector 1 "-o" (vector 0 ))) (vector 1 "file" (vector 0 )) (lambda (f) (vector 1 (vector 1 f) (vector 1 (vector 9 ) (vector 0 )))) (vector 1 "Specify output file")) (vector 1 (vector 0 (vector 1 "--exec" (vector 1 "-x" (vector 0 ))) (vector 1 "name" (vector 0 )) (lambda (f) (vector 1 (vector 2 f) (vector 1 (vector 9 ) (vector 0 )))) (vector 1 "Execute function after checking source file")) (vector 1 (vector 0 (vector 1 "--no-prelude" (vector 0 )) (vector 0 ) (vector 1 (vector 4 ) (vector 0 )) (vector 1 "Don't implicitly import Prelude")) (vector 1 (vector 0 (vector 1 "--codegen" (vector 1 "--cg" (vector 0 ))) (vector 1 "backend" (vector 0 )) (lambda (f) (vector 1 (vector 3 f) (vector 0 ))) (vector 1 "Set code generator (default chez)")) (vector 1 (vector 0 (vector 1 "--package" (vector 1 "-p" (vector 0 ))) (vector 1 "package" (vector 0 )) (lambda (f) (vector 1 (vector 11 f) (vector 0 ))) (vector 1 "Add a package as a dependency")) (vector 1 (vector 0 (vector 1 "--ide-mode" (vector 0 )) (vector 0 ) (vector 1 (vector 15 ) (vector 0 )) (vector 1 "Run the REPL with machine-readable syntax")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket" (vector 0 )) (vector 0 ) (vector 1 (vector 16 "localhost:38398") (vector 0 )) (vector 1 "Run the ide socket mode on default host and port (localhost:38398)")) (vector 1 (vector 0 (vector 1 "--ide-mode-socket-with" (vector 0 )) (vector 1 "host:port" (vector 0 )) (lambda (hp) (vector 1 (vector 16 hp) (vector 0 ))) (vector 1 "Run the ide socket mode on given host and port")) (vector 1 (vector 0 (vector 1 "--prefix" (vector 0 )) (vector 0 ) (vector 1 (vector 5 ) (vector 0 )) (vector 1 "Show installation prefix")) (vector 1 (vector 0 (vector 1 "--paths" (vector 0 )) (vector 0 ) (vector 1 (vector 27 ) (vector 0 )) (vector 1 "Show paths")) (vector 1 (vector 0 (vector 1 "--build" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 0 ) f) (vector 0 ))) (vector 1 "Build modules/executable for the given package")) (vector 1 (vector 0 (vector 1 "--install" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 1 ) f) (vector 0 ))) (vector 1 "Install the given package")) (vector 1 (vector 0 (vector 1 "--clean" (vector 0 )) (vector 1 "package file" (vector 0 )) (lambda (f) (vector 1 (vector 12 (vector 2 ) f) (vector 0 ))) (vector 1 "Clean intermediate files/executables for the given package")) (vector 1 (vector 0 (vector 1 "--libdir" (vector 0 )) (vector 0 ) (vector 1 (vector 13 (vector 0 )) (vector 0 )) (vector 1 "Show library directory")) (vector 1 (vector 0 (vector 1 "--no-banner" (vector 0 )) (vector 0 ) (vector 1 (vector 8 ) (vector 0 )) (vector 1 "Suppress the banner")) (vector 1 (vector 0 (vector 1 "--quiet" (vector 1 "-q" (vector 0 ))) (vector 0 ) (vector 1 (vector 9 ) (vector 0 )) (vector 1 "Quiet mode; display fewer messages")) (vector 1 (vector 0 (vector 1 "--verbose" (vector 0 )) (vector 0 ) (vector 1 (vector 10 ) (vector 0 )) (vector 1 "Verbose mode (default)")) (vector 1 (vector 0 (vector 1 "--version" (vector 1 "-v" (vector 0 ))) (vector 0 ) (vector 1 (vector 6 ) (vector 0 )) (vector 1 "Display version string")) (vector 1 (vector 0 (vector 1 "--help" (vector 1 "-h" (vector 1 "-?" (vector 0 )))) (vector 0 ) (vector 1 (vector 7 ) (vector 0 )) (vector 1 "Display help text")) (vector 1 (vector 0 (vector 1 "--timing" (vector 0 )) (vector 0 ) (vector 1 (vector 25 ) (vector 0 )) (vector 1 "Display timing logs")) (vector 1 (vector 0 (vector 1 "--find-ipkg" (vector 0 )) (vector 0 ) (vector 1 (vector 24 ) (vector 0 )) (vector 1 "Find and use an .ipkg file in a parent directory")) (vector 1 (vector 0 (vector 1 "--client" (vector 0 )) (vector 1 "REPL command" (vector 0 )) (lambda (f) (vector 1 (vector 23 f) (vector 0 ))) (vector 1 "Run a REPL command then quit immediately")) (vector 1 (vector 0 (vector 1 "--yaffle" (vector 1 "--ttimp" (vector 0 ))) (vector 1 "ttimp file" (vector 0 )) (lambda (f) (vector 1 (vector 17 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--ttm" (vector 0 )) (vector 1 "ttimp file" (vector 0 )) (lambda (f) (vector 1 (vector 18 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpcases" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 19 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumplifted" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 20 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpanf" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 21 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--dumpvmcode" (vector 0 )) (vector 1 "output file" (vector 0 )) (lambda (f) (vector 1 (vector 22 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--debug-elab-check" (vector 0 )) (vector 0 ) (vector 1 (vector 26 ) (vector 0 )) (vector 0 )) (vector 0 )))))))))))))))))))))))))))))))))
(define CommandLine-Idris-optUsage (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (h) (Strings-Prelude-C-43C-43 "  " (let ((optshow (Strings-Prelude-C-43C-43 (CommandLine-Idris-n--2894-1021-showSep arg-0 "," (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))) (Strings-Prelude-C-43C-43 " " (CommandLine-Idris-n--2894-1021-showSep arg-0 " " (Prelude-map_Functor__List 'erased 'erased (lambda (x) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 x ">"))) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1)))))))) (Strings-Prelude-C-43C-43 optshow (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-minus (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))))))))))))))))))) (Prelude-length optshow)) #\ )) (Strings-Prelude-C-43C-43 h "\xa;"))))))) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3)))))
(define CommandLine-Idris-matchFlag (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 1 (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (CommandLine-Idris-case--2976-1111 e-2 e-3 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__String arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__String arg-623 arg-624)))) e-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))))))))))
(define CommandLine-Idris-ideSocketModeHostPort (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (vector 0 "localhost" (Prelude-fromInteger_Num__Int 38398))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((16) (let ((e-4 (vector-ref sc1 1))) (CommandLine-Idris-case--3190-1313 e-3 e-4 (Strings-Data-break (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 #\:)) e-4))))(else (CommandLine-Idris-ideSocketModeHostPort e-3)))))))))))
(define OptDesc-CommandLine-Idris-help (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define CommandLine-Idris-getOpts (lambda (arg-0) (CommandLine-Idris-parseOpts (CommandLine-Idris-options) arg-0)))
(define CommandLine-Idris-getCmdOpts (lambda (ext-0) (let ((act-15 (System-getArgs ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (Prelude-pure_Applicative__IO 'erased (CommandLine-Idris-getOpts e-2) ext-0)))(else (Prelude-pure_Applicative__IO 'erased (vector 0 "Invalid command line") ext-0)))))))
(define OptDesc-CommandLine-Idris-flags (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define CommandLine-Idris-findMatch (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (vector 1 (vector 0 (vector 0 ) (vector 0 )))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (vector 1 (vector 0 (vector 1 (vector 14 e-6) (vector 0 )) e-7)))))))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (CommandLine-Idris-matchFlag e-2 arg-1) (lambda (bind-0) (let ((sc1 bind-0)) (case (vector-ref sc1 0) ((0) (CommandLine-Idris-findMatch e-3 arg-1)) (else (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4))))))))))))))
(define 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--36177-18574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 (vector 1 arg-16) e-3 e-4 e-5 e-6))))))))))
(define Package-Idris-case--36123-18460 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-2 (vector 0 )))))) (lambda (eta-0) (let ((act-15 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (IORef-Data-writeIORef 'erased arg-1 (let ((sc3 e-6)) (let ((e-0 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-8 (vector-ref sc3 6))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-3 e-4 e-8 e-7)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0))))))))))))))))))))))
(define Package-Idris-case--36063-18413 (lambda (arg-0 arg-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)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-2 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((act-16 (Context-Core-setSourceDir arg-2 (let ((sc3 e-5)) (let ((e-15 (vector-ref sc3 16))) e-15)) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc4 e-5)) (let ((e-14 (vector-ref sc4 15))) e-14))) eta-0))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 ((Package-Idris-n--35996-18295-loadDependencies arg-0 arg-1 arg-2 (let ((sc5 e-5)) (let ((e-10 (vector-ref sc5 11))) e-10))) eta-0))) (let ((sc5 act-18)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc6 arg-0)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc6 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased arg-5 (vector 1 e-3 (vector 0 )))))) (let ((act-19 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc7 act-19)) (case (vector-ref sc7 0) ((0) (let ((e-4 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-4 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-1 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-15 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-14 (vector-ref sc9 6))) (let ((e-13 (vector-ref sc9 7))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-15 e-4 e-14 e-13)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc9 act-21)) (case (vector-ref sc9 0) ((0) (let ((e-4 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0)))))))))))))))))))))))))))))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (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--35996-18354 (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-15 (let ((act-15 (Directory-System-changeDir e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Package-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-eoi)) (lambda () (lambda (_-18400) (Core-Parser-Text-pure 'erased 'erased desc))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (case (vector-ref sc5 0) ((1) (let ((e-2 (vector-ref sc5 1))) (let ((sc6 e-2)) (let ((e-12 (vector-ref sc6 1))) (let ((e-11 (vector-ref sc6 2))) (let ((act-17 (Package-Idris-addFields arg-2 e-11 (Package-Idris-initPkgDesc e-12) eta-0))) (let ((sc7 act-17)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-18 (Context-Core-setSourceDir arg-2 (let ((sc8 e-13)) (let ((e-15 (vector-ref sc8 16))) e-15)) eta-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 ((Package-Idris-processOptions arg-2 arg-1 (let ((sc9 e-13)) (let ((e-22 (vector-ref sc9 15))) e-22))) eta-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-20 ((Package-Idris-n--35996-18295-loadDependencies arg-0 arg-1 arg-2 (let ((sc10 e-13)) (let ((e-27 (vector-ref sc10 11))) e-27))) eta-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((sc11 arg-0)) (case (vector-ref sc11 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((e-3 (vector-ref sc11 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-21 (REPLOpts-Idris-setSource arg-1 srcC-39 eta-0))) (let ((sc12 act-21)) (case (vector-ref sc12 0) ((0) (let ((e-4 (vector-ref sc12 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-readIORef 'erased arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-18 (vector-ref sc13 1))) (let ((act-23 (let ((act-23 (IORef-Data-writeIORef 'erased arg-1 (let ((sc14 e-18)) (let ((e-0 (vector-ref sc14 1))) (let ((e-23 (vector-ref sc14 2))) (let ((e-21 (vector-ref sc14 4))) (let ((e-4 (vector-ref sc14 5))) (let ((e-20 (vector-ref sc14 6))) (let ((e-19 (vector-ref sc14 7))) (vector 0 e-0 e-23 (vector 1 srcC-39) e-21 e-4 e-20 e-19)))))))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) eta-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) eta-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-11 (vector-ref sc5 1))) (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-11) e-11) eta-0))))))))))))))))))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) eta-0)))))))
(define Package-Idris-case--35720-18149 (lambda (arg-0 arg-1 arg-2 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) (Package-Idris-install arg-3 arg-1 arg-7 eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define Package-Idris-case--35720-18077 (lambda (arg-0 arg-1 arg-2 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))(else (lambda (eta-0) (let ((act-15 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))))))))
(define Package-Idris-case--35689-18050 (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) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((1) (lambda (eta-0) (let ((act-15 (Package-Idris-build arg-4 arg-3 arg-2 arg-8 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((0) (Package-Idris-install arg-4 arg-2 arg-8 eta-0))(else (let ((act-16 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))))))))))) ((2) (lambda (eta-0) (Package-Idris-clean arg-4 arg-2 arg-8 eta-0))) (else (lambda (eta-0) (Package-Idris-runRepl arg-4 arg-2 arg-8 eta-0)))))))
(define Package-Idris-case--35648-18026 (lambda (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)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (lambda (eta-0) (let ((act-15 (Package-Idris-addFields arg-4 e-9 (Package-Idris-initPkgDesc e-8) eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 arg-1)) (case (vector-ref sc3 0) ((0) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((1) (let ((act-16 (Package-Idris-build arg-4 arg-3 arg-2 e-5 eta-0))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc4 1))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((0) (Package-Idris-install arg-4 arg-2 e-5 eta-0))(else (let ((act-17 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0))))))))))) ((2) (Package-Idris-clean arg-4 arg-2 e-5 eta-0)) (else (Package-Idris-runRepl arg-4 arg-2 e-5 eta-0))))))))))))))) (else (let ((e-5 (vector-ref sc0 1))) (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-0 e-5) e-5) eta-0))))))))
(define Package-Idris-case--35246-17864 (lambda (arg-0 arg-1 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 e-3 e-2)))))))))
(define Package-Idris-case--35246-17703 (lambda (arg-0 arg-1 arg-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 ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 arg-4 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))) (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-10) (vector 1 v arg-10))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) arg-8))) (lambda (eta-0) (let ((act-15 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2871 arg-2872))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--35246-17594-deleteFolder arg-0 arg-1 arg-2 builddir eta-1 eta-2))) (lambda (ks) (lambda (eta-1) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-3) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2871 arg-2872))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-3)) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--35246-17595-deleteBin arg-0 arg-1 arg-2 builddir ks eta-3)) eta-1) eta-2)))) pkgTrie eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (Package-Idris-n--35246-17594-deleteFolder arg-0 arg-1 arg-2 builddir (vector 0 ) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-17 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-1))) (lambda () (lambda (e) (lambda (eta-1) (Package-Idris-n--35246-17593-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-1)))) (let ((sc3 arg-0)) (let ((e-13 (vector-ref sc3 14))) e-13))) eta-0))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc4 arg-0)) (let ((e-21 (vector-ref sc4 22))) e-21))) eta-0))))))))))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") eta-0)))))))
(define Package-Idris-case--35252-17606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 e-2)) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Package-Idris-case--35136-17520 (lambda (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-15 (Package-Idris-n--35129-17489-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0))))))))))))))))))
(define Package-Idris-case--34794-17184 (lambda (arg-0 arg-1 arg-2 arg-3 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-15 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (let ((act-16 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else ((Package-Idris-runScript (let ((sc3 arg-0)) (let ((e-19 (vector-ref sc3 20))) e-19))) eta-0))))))))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
(define Package-Idris-case--34750-17149 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (let ((act-15 (Directory-System-changeDir (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-17 (let ((act-17 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-3 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc5 arg-0)) (let ((e-19 (vector-ref sc5 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc3 arg-0)) (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-0)) (let ((e-0 (vector-ref sc1 1))) e-0)))) eta-0)))))))
(define Package-Idris-case--34714-17114 (lambda (arg-0 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-15 (let ((act-15 ((Directory-Core-mkdirs (vector 1 (let ((sc1 arg-0)) (let ((e-0 (vector-ref sc1 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-16 (let ((act-16 (Directory-System-changeDir (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (cond ((equal? sc4 0) (let ((act-17 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) (Strings-Prelude-C-43C-43 arg-7 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 arg-9 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-18 (let ((act-18 (Directory-System-changeDir arg-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) eta-0)))) (let ((sc6 act-18)) (case (vector-ref sc6 0) ((0) (let ((e-3 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc7 arg-0)) (let ((e-19 (vector-ref sc7 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc5 arg-0)) (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-0)) (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-9)) eta-0)))))))
(define Package-Idris-case--34667-17086 (lambda (arg-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 ((installPrefix (Strings-Prelude-C-43C-43 (let ((sc1 (let ((sc2 (let ((sc3 arg-3)) (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 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (lambda (eta-0) (let ((act-15 (let ((act-15 (Directory-System-changeDir installPrefix eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (cond ((equal? sc2 0) (let ((act-16 (let ((act-16 ((Directory-Core-mkdirs (vector 1 (let ((sc3 arg-0)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 0 ))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((act-17 (let ((act-17 (Directory-System-changeDir (let ((sc5 arg-0)) (let ((e-0 (vector-ref sc5 1))) e-0)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (cond ((equal? sc6 0) (let ((act-18 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (Package-Idris-installFrom arg-2 (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-4)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc7 arg-0)) (let ((e-0 (vector-ref sc7 1))) e-0)))) eta-1)) arg-6) eta-0))) (let ((sc7 act-18)) (case (vector-ref sc7 0) ((0) (let ((e-3 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-19 (let ((act-19 (Directory-System-changeDir e-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc8 act-19)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else ((Package-Idris-runScript (let ((sc9 arg-0)) (let ((e-19 (vector-ref sc9 20))) e-19))) eta-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc7 arg-0)) (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-0)) (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--34486-16928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--34441-16883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 (let ((act-15 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 arg-8 (Strings-Prelude-C-43C-43 " to " arg-9))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((act-16 (let ((act-16 (Package-Idris-copyFile arg-8 arg-10 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--34403-16819 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (Binary-Utils-writeToFile arg-0 e-2 eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))))))))
(define Package-Idris-case--34233-16711 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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 2))) (let ((mainn (vector 0 (vector 1 "Main" (vector 0 )) (vector 1 "main")))) (lambda (eta-0) (Package-Idris-compileMain arg-3 arg-2 arg-1 mainn e-6 arg-10 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--34191-16659 (lambda (arg-0 arg-1 arg-2 arg-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (Package-Idris-case--34233-16711 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-2 (let ((sc1 arg-0)) (let ((e-12 (vector-ref sc1 13))) e-12)))))))))
(define Package-Idris-case--34132-16624 (lambda (arg-0 arg-1 arg-2 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-15 (let ((_-0 (vector 0 ))) ((Package-Idris-case--34191-16659 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 _-0 (let ((sc1 arg-0)) (let ((e-13 (vector-ref sc1 14))) e-13))) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 ((Package-Idris-runScript (let ((sc2 arg-0)) (let ((e-17 (vector-ref sc2 18))) e-17))) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-9) eta-0)))))))
(define Package-Idris-case--34024-16481 (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-15 ((SetOptions-Idris-preOptions arg-3 arg-2 e-2) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--33817-16401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-5)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 arg-9 arg-10 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))))
(define Package-Idris-case--32901-16249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 arg-1 arg-0)))))))))))))))))))))))))))
(define Package-Idris-case--32901-16204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 arg-1 arg-0)) e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-16159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 arg-1 arg-0)) e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-16114 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 arg-1 arg-0)) e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-16069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 arg-1 arg-0)) e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-16024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 arg-1 arg-0)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15983 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 arg-0) e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15938 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 arg-1 arg-0)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15899 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 arg-0) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 arg-0 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15789 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 arg-0) e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15748 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 arg-0) e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15707 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 arg-0) e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15666 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 arg-0) e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 arg-0) e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15584 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 arg-0) e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15543 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 e-2 (vector 1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 e-1 arg-0 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-case--32901-15465 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (let ((e-11 (vector-ref sc0 12))) (let ((e-12 (vector-ref sc0 13))) (let ((e-13 (vector-ref sc0 14))) (let ((e-14 (vector-ref sc0 15))) (let ((e-15 (vector-ref sc0 16))) (let ((e-16 (vector-ref sc0 17))) (let ((e-17 (vector-ref sc0 18))) (let ((e-18 (vector-ref sc0 19))) (let ((e-19 (vector-ref sc0 20))) (let ((e-20 (vector-ref sc0 21))) (let ((e-21 (vector-ref sc0 22))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))))
(define Package-Idris-n--33817-16269-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-15 (Directory-Core-nsToSource arg-2 e-2 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-3 e-5)) eta-0))))))))))))
(define Package-Idris-n--32486-14965-strField (lambda (arg-0 arg-1 arg-2) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-exactProperty arg-2)) (lambda () (lambda (_-14989) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-equals)) (lambda () (lambda (_-15000) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-stringLit)) (lambda () (lambda (str) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased ((arg-1 (vector 0 arg-0 start end)) str)))))))))))))))))
(define Package-Idris-n--35996-18295-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--35129-17489-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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (These-Data-bifold 'erased arg-1 eta-1)) eta-0)) (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-15 (Package-Idris-n--35129-17489-go 'erased arg-1 'erased arg-3 arg-4 ksC-39 e-3 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 ((arg-4 ksC-39) eta-0))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-6 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (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)))) eta-0)))))))))))))))))) (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--33817-16270-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-6) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 ((Package-Idris-addField arg-2 arg-3 arg-4 e-2 arg-6) eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Package-Idris-n--33817-16270-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
(define Package-Idris-n--35246-17594-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (Package-Idris-n--35246-17593-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Name-Core-showSep (Options-Core-dirSep) arg-4))) ext-0)))
(define Package-Idris-n--35246-17595-deleteBin (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((ttFile (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 (Name-Core-showSep (Options-Core-dirSep) arg-4) (Strings-Prelude-C-43C-43 (Options-Core-dirSep) arg-5)))))) (lambda (eta-0) (let ((act-15 (Package-Idris-n--35246-17593-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttc") eta-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Package-Idris-n--35246-17593-delete arg-0 arg-1 arg-2 (Strings-Prelude-C-43C-43 ttFile ".ttm") eta-0)))))))))
(define Package-Idris-n--35246-17593-delete (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (File-System-removeFile arg-3 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Removed: " arg-3) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-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-2871) (lambda (arg-2872) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2871 arg-2872))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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-15 (let ((act-15 (System-system e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 (Prelude-C-47C-61_Eq__Int e-7 (Prelude-fromInteger_Num__Int 0)))) (cond ((equal? sc3 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 e-5 "Script failed") eta-0)) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))))))))))))))
(define Package-Idris-runRepl (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (Package-Idris-addDeps arg-0 arg-2 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-16 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc1 arg-2)) (let ((e-14 (vector-ref sc1 15))) e-14))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Not implemented") ext-0)))))))))))
(define Package-Idris-rejectPackageOpts (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-1)) (case (vector-ref sc1 0) ((12) (lambda (eta-0) (let ((act-15 (let ((act-15 (PrimIO-putStrLn "Package commands (--build, --install, --clean, --repl) must be the only option given" eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-3 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))(else (Package-Idris-rejectPackageOpts e-2))))))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 1) eta-0)))))))
(define Package-Idris-processPackageOpts (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)) (case (vector-ref sc1 0) ((12) (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (let ((sc2 e-2)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (let ((act-15 (Package-Idris-processPackage arg-0 arg-1 arg-2 e-3 e-4 eta-0))) (let ((sc3 act-15)) (case (vector-ref sc3 0) ((0) (let ((e-5 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased 0) eta-0)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))))(else (Package-Idris-rejectPackageOpts arg-3)))))))(else (Package-Idris-rejectPackageOpts arg-3))))))
(define Package-Idris-processPackage (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (let ((act-15 (Package-Parser-parseFile 'erased arg-4 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Idris-parsePkgDesc arg-4)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-eoi)) (lambda () (lambda (_-18013) (Core-Parser-Text-pure 'erased 'erased desc))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 ((e-8 (vector-ref sc2 1))) (let ((e-9 (vector-ref sc2 2))) (let ((act-16 (Package-Idris-addFields arg-0 e-9 (Package-Idris-initPkgDesc e-8) ext-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-3 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-6 (vector-ref sc3 1))) (let ((sc4 arg-3)) (case (vector-ref sc4 0) ((0) (let ((act-17 (Package-Idris-build arg-0 arg-1 arg-2 e-6 ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))(else (let ((act-18 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0))))))))))) ((1) (let ((act-17 (Package-Idris-build arg-0 arg-1 arg-2 e-6 ext-0))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-3 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-7 (vector-ref sc5 1))) (let ((sc6 e-7)) (case (vector-ref sc6 0) ((0) (Package-Idris-install arg-0 arg-2 e-6 ext-0))(else (let ((act-18 ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0))))))))))) ((2) (Package-Idris-clean arg-0 arg-2 e-6 ext-0)) (else (Package-Idris-runRepl arg-0 arg-2 e-6 ext-0)))))))))))))) (else (let ((e-6 (vector-ref sc1 1))) (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-6) e-6) ext-0))))))))))))
(define Package-Idris-processOptions (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) 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))) (Package-Idris-case--34024-16481 e-5 e-6 arg-1 arg-0 (CommandLine-Idris-getOpts (Strings-Data-words e-6))))))))))))
(define PkgDesc-Package-Idris-preinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-18 (vector-ref sc0 19))) e-18))))
(define PkgDesc-Package-Idris-preclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-20 (vector-ref sc0 21))) e-20))))
(define PkgDesc-Package-Idris-prebuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
(define PkgDesc-Package-Idris-postinstall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
(define PkgDesc-Package-Idris-postclean (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-21 (vector-ref sc0 22))) e-21))))
(define PkgDesc-Package-Idris-postbuild (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
(define Package-Idris-parsePkgDesc (lambda (arg-0) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-exactProperty "package")) (lambda () (lambda (_-15396) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-packageName)) (lambda () (lambda (name) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Parser-Text-many 'erased 'erased (Package-Idris-field arg-0))) (lambda (fields) (Core-Parser-Text-pure 'erased 'erased (vector 0 name fields))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((e-3 (vector-ref sc0 2))) (let ((ttcfile (Name-Core-showSep (Options-Core-dirSep) (List-Data-reverse 'erased arg-4)))) (let ((ttcPath (Strings-Prelude-C-43C-43 arg-2 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "ttc" (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 ttcfile ".ttc"))))))) (let ((destPath (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Name-Core-showSep (Options-Core-dirSep) (List-Data-reverse 'erased e-3)))))) (let ((destFile (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 ttcfile ".ttc"))))) (lambda (eta-0) (let ((act-15 (let ((act-15 ((Directory-Core-mkdirs (List-Data-reverse 'erased e-3)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((act-16 (let ((act-16 (PrimIO-putStrLn (Strings-Prelude-C-43C-43 "Installing " (Strings-Prelude-C-43C-43 ttcPath (Strings-Prelude-C-43C-43 " to " destPath))) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-6 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-6) eta-0))) (else (let ((act-17 (let ((act-17 (Package-Idris-copyFile ttcPath destFile eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) eta-0)))) (let ((sc4 act-17)) (case (vector-ref sc4 0) ((0) (let ((e-7 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-7) eta-0))) (else (let ((e-7 (vector-ref sc4 1))) (let ((sc5 e-7)) (case (vector-ref sc5 0) ((1) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-18 (vector-ref sc1 19))) e-18))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Strings-Prelude-C-43C-43 (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 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 "idris2-" (Version-Idris-showVersion 1 (Version-Idris-version))))))) (let ((act-18 (let ((act-18 (Directory-System-changeDir installPrefix ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc4 1))) (let ((sc5 e-8)) (cond ((equal? sc5 0) (let ((act-19 (let ((act-19 ((Directory-Core-mkdirs (vector 1 (let ((sc6 arg-2)) (let ((e-0 (vector-ref sc6 1))) e-0)) (vector 0 ))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc6 act-19)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc6 1))) (let ((sc7 e-9)) (case (vector-ref sc7 0) ((1) (let ((act-20 (let ((act-20 (Directory-System-changeDir (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc8 act-20)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-10 (vector-ref sc8 1))) (let ((sc9 e-10)) (cond ((equal? sc9 0) (let ((act-21 ((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)) (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) build)) (Strings-Prelude-C-43C-43 installPrefix (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) eta-0)) toInstall) ext-0))) (let ((sc10 act-21)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-22 (let ((act-22 (Directory-System-changeDir e-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) ext-0)))) (let ((sc11 act-22)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else ((Package-Idris-runScript (let ((sc12 arg-2)) (let ((e-19 (vector-ref sc12 20))) e-19))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " (let ((sc10 arg-2)) (let ((e-0 (vector-ref sc10 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't make directory " (let ((sc8 arg-2)) (let ((e-0 (vector-ref sc8 1))) e-0)))) ext-0)))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 (Strings-Prelude-C-43C-43 "Can't change directory to " installPrefix)) ext-0)))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))
(define Package-Idris-initPkgDesc (lambda (arg-0) (vector 0 arg-0 "0" "Anonymous" (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
(define Package-Idris-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-15 (ma eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) ((Prelude-flip 'erased 'erased 'erased arg-4 b e-5) eta-0)))))))))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-5) eta-0))) arg-6))))))
(define Package-Idris-foldWithKeysC (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-1 ext-0) (Package-Idris-n--35129-17489-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-15 (let ((act-15 (Directory-Core-findIpkgFile ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (Directory-System-changeDir e-7 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc4 act-16)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-17 (let ((act-17 (Package-Parser-parseFile 'erased e-9 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Idris-parsePkgDesc e-9)) (lambda () (lambda (desc) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-eoi)) (lambda () (lambda (_-18400) (Core-Parser-Text-pure 'erased 'erased desc))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc5 act-17)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-18 (Package-Idris-addFields arg-0 e-12 (Package-Idris-initPkgDesc e-13) ext-0))) (let ((sc8 act-18)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((e-14 (vector-ref sc8 1))) (let ((act-19 (Context-Core-setSourceDir arg-0 (let ((sc9 e-14)) (let ((e-15 (vector-ref sc9 16))) e-15)) ext-0))) (let ((sc9 act-19)) (case (vector-ref sc9 0) ((0) (let ((e-3 (vector-ref sc9 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-20 ((Package-Idris-processOptions arg-0 arg-1 (let ((sc10 e-14)) (let ((e-23 (vector-ref sc10 15))) e-23))) ext-0))) (let ((sc10 act-20)) (case (vector-ref sc10 0) ((0) (let ((e-3 (vector-ref sc10 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((act-21 ((Package-Idris-n--35996-18295-loadDependencies arg-2 arg-1 arg-0 (let ((sc11 e-14)) (let ((e-28 (vector-ref sc11 11))) e-28))) ext-0))) (let ((sc11 act-21)) (case (vector-ref sc11 0) ((0) (let ((e-3 (vector-ref sc11 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) ext-0))) (else (let ((sc12 arg-2)) (case (vector-ref sc12 0) ((0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((e-3 (vector-ref sc12 1))) (let ((srcC-39 (Name-Core-showSep (Options-Core-dirSep) (List-Prelude-C-43C-43 'erased e-10 (vector 1 e-3 (vector 0 )))))) (let ((act-22 (REPLOpts-Idris-setSource arg-1 srcC-39 ext-0))) (let ((sc13 act-22)) (case (vector-ref sc13 0) ((0) (let ((e-4 (vector-ref sc13 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((act-23 (let ((act-23 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-23) ext-0)))) (let ((sc14 act-23)) (case (vector-ref sc14 0) ((0) (let ((e-4 (vector-ref sc14 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-19 (vector-ref sc14 1))) (let ((act-24 (let ((act-24 (IORef-Data-writeIORef 'erased arg-1 (let ((sc15 e-19)) (let ((e-0 (vector-ref sc15 1))) (let ((e-24 (vector-ref sc15 2))) (let ((e-22 (vector-ref sc15 4))) (let ((e-4 (vector-ref sc15 5))) (let ((e-21 (vector-ref sc15 6))) (let ((e-20 (vector-ref sc15 7))) (vector 0 e-0 e-24 (vector 1 srcC-39) e-22 e-4 e-21 e-20)))))))) ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-24) ext-0)))) (let ((sc15 act-24)) (case (vector-ref sc15 0) ((0) (let ((e-4 (vector-ref sc15 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 srcC-39)) ext-0))))))))))))))))))))))))))))))))))))))))) (else (let ((e-12 (vector-ref sc6 1))) (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) ext-0)))))))))))))))))))))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-2) ext-0)))))))))))
(define Package-Idris-field (lambda (arg-0) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "prebuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "postbuild") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "preinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postinstall") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Idris-n--32486-14965-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postclean") (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () (Prelude-C-38C-38 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-exactProperty "depends")) (lambda () (lambda (_-15197) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-equals)) (lambda () (lambda (_-15208) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-sep 'erased (Package-Rule-Parser-packageName))) (lambda () (lambda (ds) (Core-Parser-Text-pure 'erased 'erased (vector 9 ds))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-exactProperty "modules")) (lambda () (lambda (_-15187) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-equals)) (lambda () (lambda (_-15237) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-sep 'erased (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-moduleIdent)) (lambda () (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 0 (vector 0 arg-0 start end) m))))))))))) (lambda () (lambda (ms) (Core-Parser-Text-pure 'erased 'erased (vector 10 ms))))))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-exactProperty "main")) (lambda () (lambda (_-15177) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-equals)) (lambda () (lambda (_-15309) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" ))) (lambda (start) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Package-Rule-Parser-namespacedIdent)) (lambda () (lambda (m) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Common-Rule-Parser-location (vector "Parser.Lexer.Package.Token" ))) (lambda (end) (Core-Parser-Text-pure 'erased 'erased (vector 11 (vector 0 arg-0 start end) m))))))))))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-exactProperty "executable")) (lambda () (lambda (_-15167) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Package-Rule-Parser-equals)) (lambda () (lambda (_-15363) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased (Prelude-C-38C-38 0 (lambda () 0)) 1) (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 0 (Package-Rule-Parser-stringLit) (lambda () (Package-Rule-Parser-packageName)))) (lambda () (lambda (e) (Core-Parser-Text-pure 'erased 'erased (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 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-15 (Binary-Utils-readFromFile arg-0 ext-0))) (let ((sc0 act-15)) (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))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-5) ext-0))))))))
(define Package-Idris-compileMain (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (Core-Core-newRef 'erased 'erased (vector "Core.Metadata.MD" ) (Metadata-Core-initMetadata) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Core.UnifyState.UST" ) (UnifyState-Core-initUState) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (REPL-Idris-loadMainFile arg-0 e-6 arg-1 e-5 arg-2 arg-4 ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-18 (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-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))))))))))))
(define Package-Idris-clean (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((build (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-2 (vector-ref sc1 3))) e-2)))) (let ((exec (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))) (let ((act-16 ((Package-Idris-runScript (let ((sc1 arg-2)) (let ((e-20 (vector-ref sc1 21))) e-20))) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-17 (let ((act-17 (Directory-System-currentDir ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-7)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((builddir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) (Strings-Prelude-C-43C-43 build (Strings-Prelude-C-43C-43 (Options-Core-dirSep) "ttc")))))) (let ((execdir (Strings-Prelude-C-43C-43 e-1 (Strings-Prelude-C-43C-43 (Options-Core-dirSep) exec)))) (let ((pkgTrie (Prelude-foldl_Foldable__List 'erased 'erased (lambda (trie) (lambda (ksv) (let ((ks (Builtin-fst 'erased 'erased ksv))) (let ((v (Builtin-snd 'erased 'erased ksv))) (StringTrie-Data-insertWith 'erased (List-Data-reverse 'erased ks) (lambda (eta-0) (Prelude-maybe 'erased 'erased (lambda () (vector 1 v (vector 0 ))) (lambda () (lambda (arg-3) (vector 1 v arg-3))) eta-0)) trie))))) (StringTrie-Data-empty 'erased) toClean))) (let ((act-18 (Package-Idris-foldWithKeysC 'erased 'erased (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2871 arg-2872))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--35246-17594-deleteFolder 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) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-2871) (lambda (arg-2872) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-2871 arg-2872))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) eta-2)) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--35246-17595-deleteBin arg-2 arg-1 arg-0 builddir ks eta-2)) eta-0) eta-1)))) pkgTrie ext-0))) (let ((sc4 act-18)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (Package-Idris-n--35246-17594-deleteFolder arg-2 arg-1 arg-0 builddir (vector 0 ) ext-0))) (let ((sc5 act-19)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-20 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (lambda () (lambda (e) (lambda (eta-0) (Package-Idris-n--35246-17593-delete arg-2 arg-1 arg-0 (Strings-Prelude-C-43C-43 execdir (Strings-Prelude-C-43C-43 (Options-Core-dirSep) e)) eta-0)))) (let ((sc6 arg-2)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else ((Package-Idris-runScript (let ((sc7 arg-2)) (let ((e-21 (vector-ref sc7 22))) e-21))) ext-0)))))))))))))))))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 54 "Can't get current directory") ext-0))))))))))))))))))))))))
(define Package-Idris-build (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Package-Idris-addDeps arg-0 arg-3 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((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-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 ((Package-Idris-runScript (let ((sc3 arg-3)) (let ((e-16 (vector-ref sc3 17))) e-16))) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((toBuild (Prelude-maybe 'erased 'erased (lambda () (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (let ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 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 ((sc4 arg-3)) (let ((e-11 (vector-ref sc4 12))) e-11)))))) (let ((sc4 arg-3)) (let ((e-12 (vector-ref sc4 13))) e-12))))) (let ((act-19 (ModTree-Idris-buildAll arg-0 arg-1 arg-2 toBuild ext-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 e-9)) (case (vector-ref sc5 0) ((0) (let ((act-20 (let ((_-0 (vector 0 ))) ((Package-Idris-case--34191-16659 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 e-8 toBuild _-0 (let ((sc6 arg-3)) (let ((e-13 (vector-ref sc6 14))) e-13))) ext-0)))) (let ((sc6 act-20)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-21 ((Package-Idris-runScript (let ((sc7 arg-3)) (let ((e-17 (vector-ref sc7 18))) e-17))) ext-0))) (let ((sc7 act-21)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0))))))))))(else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) ext-0))))))))))))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-2) (vector 0 eta-2))) eta-1)) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-2) (vector 1 eta-2))) eta-1)) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (lambda (eta-3) (lambda (eta-4) (vector 2 eta-3 eta-4)))) eta-2)) (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-15 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.ParsedMods" ) (vector 0 ) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Core-Core-newRef 'erased 'erased (vector "Idris.Package.MainMod" ) (vector 0 ) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 ((Package-Idris-n--33817-16270-go arg-2 arg-1 arg-0 e-5 e-6 arg-1 arg-2) ext-0))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (Context-Core-setSourceDir arg-0 (let ((sc3 e-7)) (let ((e-15 (vector-ref sc3 16))) e-15)) ext-0))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((act-19 (let ((act-19 (IORef-Data-readIORef 'erased e-5 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) ext-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (let ((act-20 (IORef-Data-readIORef 'erased e-6 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) ext-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-21 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Package-Idris-n--33817-16269-toSource arg-2 arg-1 arg-0 eta-0)) e-9) ext-0))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-11 (vector-ref sc6 1))) (let ((act-22 ((Core-Core-traverseOpt 'erased 'erased (lambda (eta-0) (Package-Idris-n--33817-16269-toSource arg-2 arg-1 arg-0 eta-0)) e-10) ext-0))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-12 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc8 e-7)) (let ((e-0 (vector-ref sc8 1))) (let ((e-1 (vector-ref sc8 2))) (let ((e-2 (vector-ref sc8 3))) (let ((e-3 (vector-ref sc8 4))) (let ((e-4 (vector-ref sc8 5))) (let ((e-29 (vector-ref sc8 6))) (let ((e-28 (vector-ref sc8 7))) (let ((e-27 (vector-ref sc8 8))) (let ((e-26 (vector-ref sc8 9))) (let ((e-25 (vector-ref sc8 10))) (let ((e-24 (vector-ref sc8 11))) (let ((e-13 (vector-ref sc8 14))) (let ((e-14 (vector-ref sc8 15))) (let ((e-15 (vector-ref sc8 16))) (let ((e-16 (vector-ref sc8 17))) (let ((e-17 (vector-ref sc8 18))) (let ((e-18 (vector-ref sc8 19))) (let ((e-19 (vector-ref sc8 20))) (let ((e-20 (vector-ref sc8 21))) (let ((e-21 (vector-ref sc8 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-29 e-28 e-27 e-26 e-25 e-24 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21))))))))))))))))))))))) ext-0))))))))))))))))))))))))))))))))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-23 (vector-ref sc1 1))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-23 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((1) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-22 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-3 e-22 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((2) (let ((e-5 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-23 (vector-ref sc1 5))) (let ((e-22 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 (vector 1 e-5) e-23 e-22 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((3) (let ((e-7 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-5 (vector-ref sc1 6))) (let ((e-23 (vector-ref sc1 7))) (let ((e-22 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 e-7) e-5 e-23 e-22 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((4) (let ((e-9 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-23 (vector-ref sc1 9))) (let ((e-22 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 (vector 1 e-9) e-6 e-7 e-23 e-22 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((5) (let ((e-11 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-23 (vector-ref sc1 11))) (let ((e-22 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 (vector 1 e-11) e-7 e-8 e-9 e-23 e-22 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((6) (let ((e-13 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-23 (vector-ref sc1 13))) (let ((e-22 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 (vector 1 e-13) e-8 e-9 e-10 e-11 e-23 e-22 e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((7) (let ((e-15 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-23 (vector-ref sc1 15))) (let ((e-22 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 (vector 1 e-15) e-9 e-10 e-11 e-12 e-13 e-23 e-22 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((8) (let ((e-17 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-23 (vector-ref sc1 17))) (let ((e-22 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 (vector 1 e-17) e-10 e-11 e-12 e-13 e-14 e-15 e-23 e-22 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((9) (let ((e-18 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-22 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-18 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-22 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((10) (let ((e-19 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-1 e-19 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0)))))))) ((11) (let ((e-20 (vector-ref sc0 1))) (let ((e-21 (vector-ref sc0 2))) (lambda (eta-0) (let ((act-15 (let ((act-15 (IORef-Data-writeIORef 'erased arg-2 (vector 1 (vector 0 e-20 e-21)) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-4) eta-0))))))))) ((12) (let ((e-22 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 (vector 1 e-22) e-14 e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((13) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 (vector 1 (vector 0 e-23 e-24)) e-15 e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((14) (let ((e-26 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 (vector 1 e-26) e-16 e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0)))) ((15) (let ((e-27 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 (vector 1 (vector 0 e-27 e-28)) e-17 e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((16) (let ((e-29 (vector-ref sc0 1))) (let ((e-30 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 (vector 1 (vector 0 e-29 e-30)) e-18 e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((17) (let ((e-31 (vector-ref sc0 1))) (let ((e-32 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 (vector 1 (vector 0 e-31 e-32)) e-19 e-20 e-21)))))))))))))))))))))))) eta-0))))) ((18) (let ((e-33 (vector-ref sc0 1))) (let ((e-34 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-20 (vector-ref sc1 21))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 (vector 1 (vector 0 e-33 e-34)) e-20 e-21)))))))))))))))))))))))) eta-0))))) ((19) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-21 (vector-ref sc1 22))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 (vector 1 (vector 0 e-35 e-36)) e-21)))))))))))))))))))))))) eta-0))))) (else (let ((e-37 (vector-ref sc0 1))) (let ((e-38 (vector-ref sc0 2))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (let ((sc1 arg-4)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (let ((e-10 (vector-ref sc1 11))) (let ((e-11 (vector-ref sc1 12))) (let ((e-12 (vector-ref sc1 13))) (let ((e-13 (vector-ref sc1 14))) (let ((e-14 (vector-ref sc1 15))) (let ((e-15 (vector-ref sc1 16))) (let ((e-16 (vector-ref sc1 17))) (let ((e-17 (vector-ref sc1 18))) (let ((e-18 (vector-ref sc1 19))) (let ((e-19 (vector-ref sc1 20))) (let ((e-20 (vector-ref sc1 21))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 e-14 e-15 e-16 e-17 e-18 e-19 e-20 (vector 1 (vector 0 e-37 e-38)))))))))))))))))))))))))) eta-0)))))))))
(define Package-Idris-addDeps (lambda (arg-0 arg-1 ext-0) (let ((act-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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--4972-322 (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) (Prelude-pure_Applicative__IO 'erased (Package-Parser-runParser 'erased e-2 arg-1) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 e-5)) eta-0))))))))
(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-15 (File-System-readFile arg-1 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Package-Parser-runParser 'erased e-2 arg-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (vector 2 e-5)) ext-0))))))))
(define Package-Rule-Parser-case--2758-2563 (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--2725-2538 (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--2719-2527 (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--2725-2538 arg-0 e-2 (Common-Lexer-Parser-case--2301-307 e-2 (vector 0 ) (Prelude-unpack e-2))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Package-Rule-Parser-case--2699-2509 (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--2679-2491 (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--2660-2474 (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--2613-2443 (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--2605-2426 (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--2613-2443 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--2587-2407 (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--2569-2390 (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 () (Core-Parser-Text-terminal 'erased 'erased "Expected string" (lambda (x) (Package-Rule-Parser-case--2660-2474 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Package-Rule-Parser-sepC-39 (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected separator" (lambda (x) (Package-Rule-Parser-case--2758-2563 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(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 () (Core-Parser-Text-terminal 'erased 'erased "Expected package name" (lambda (x) (Package-Rule-Parser-case--2719-2527 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Package-Rule-Parser-namespacedIdent (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected namespaced identifier" (lambda (x) (Package-Rule-Parser-case--2679-2491 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Package-Rule-Parser-moduleIdent (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected module identifier" (lambda (x) (Package-Rule-Parser-case--2699-2509 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Package-Rule-Parser-exactProperty (lambda (arg-0) (Core-Parser-Text-terminal 'erased 'erased (Strings-Prelude-C-43C-43 "Expected property " arg-0) (lambda (x) (Package-Rule-Parser-case--2605-2426 arg-0 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Package-Rule-Parser-equals (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected equals" (lambda (x) (Package-Rule-Parser-case--2569-2390 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Package-Rule-Parser-eoi (lambda () (Core-Parser-Text-terminal 'erased 'erased "Expected end of input" (lambda (x) (Package-Rule-Parser-case--2587-2407 x (let ((sc0 x)) (let ((e-3 (vector-ref sc0 3))) e-3)))))))
(define Package-Lexer-Parser-case--2617-416 (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--2617-402-useful arg-0 (let ((sc4 eta-0)) (let ((e-4 (vector-ref sc4 3))) e-4)))) e-2) (vector 1 (vector 0 e-6 e-10 (vector 1 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
(define Package-Lexer-Parser-n--2617-402-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--2536-307-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--2536-307-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--2617-416 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 Extra-String-Data-drop (lambda (arg-0 arg-1) (Prelude-substr arg-0 (Prelude-length arg-1) arg-1)))
(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--1600-3168-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--1600-3167-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--1600-3167-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--1600-3167-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1600-3168-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1600-3168-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--32110-2571 (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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0))))))))))))
(define REPL-IDEMode-Idris-case--31919-2462 (lambda (arg-0 arg-1 arg-2 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-15 (REPL-IDEMode-Idris-n--31756-2264-updateOutput arg-0 arg-1 arg-2 arg-3 arg-4 e-6 eta-0))) (let ((sc2 act-15)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-16 (REPL-IDEMode-Idris-processCatch arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-0))) (let ((sc3 act-16)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-8 (vector-ref sc3 1))) (let ((act-17 ((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-17)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))))))))))) (else (lambda (eta-0) (let ((act-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (REPL-IDEMode-Idris-loop arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)))))))))))
(define REPL-IDEMode-Idris-case--31862-2391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-15 ((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-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-0))) (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--31919-2462 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--31820-2344 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0))) (else (let ((end 1)) (REPL-IDEMode-Idris-case--31862-2391 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--31756-2310 (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-15 (let ((act-15 (REPL-IDEMode-Idris-getInput e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-16 (let ((act-16 (File-System-fEOF e-2 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) eta-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) eta-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31862-2391 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--31767-2272 (lambda (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define REPL-IDEMode-Idris-case--31569-2153 (lambda (arg-0 arg-1 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--31568-2105 (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--31380-2037 (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--30716-1304 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getFLine arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Strings-Prelude-C-43C-43 (Prelude-pack arg-1) act-15) eta-0)))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (Prelude-cast_Cast__Int_Integer e-2)) eta-0))) (Prelude-pure_Applicative__IO 'erased (Prelude-pack act-15) eta-0)))))))))
(define REPL-IDEMode-Idris-case--30648-1233 (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) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a line" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))
(define REPL-IDEMode-Idris-case--30587-1192 (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) (Prelude-pure_Applicative__IO 'erased e-2 eta-0)))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))
(define REPL-IDEMode-Idris-case--30578-1165 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn "Alas the file is done, aborting" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))) (else (lambda (eta-0) (let ((act-15 (File-System-fGetChar arg-0 eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 eta-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a character" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0))))))))))))
(define REPL-IDEMode-Idris-case--30459-1106 (lambda (arg-0 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) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0)))) (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--30409-1051 (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) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to listen on socket with error: " (Prelude-show_Show__Int arg-5))) eta-0))) (else (lambda (eta-0) (let ((act-15 (PrimIO-putStrLn (Prelude-show_Show__Int arg-0) eta-0))) (let ((act-16 (Socket-Network-accept arg-2 eta-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to accept on socket with error: " (Prelude-show_Show__Int e-2))) eta-0))) (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--30356-1005 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 (Strings-Prelude-C-43C-43 "Failed to bind socket with error: " (Prelude-show_Show__Int arg-4))) eta-0))) (else (lambda (eta-0) (let ((act-15 (Socket-Network-listen arg-2 eta-0))) ((REPL-IDEMode-Idris-case--30409-1051 arg-0 arg-1 arg-2 arg-3 arg-4 act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0))))))))
(define REPL-IDEMode-Idris-case--30340-954 (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-15 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) eta-0))) (let ((act-16 (PrimIO-putStrLn "Failed to open socket" eta-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) eta-0)))))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-1)) arg-0 eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30356-1005 arg-0 arg-1 e-5 osock act-15 (Prelude-C-47C-61_Eq__Int act-15 (Prelude-fromInteger_Num__Int 0))) eta-0))))))))))
(define REPL-IDEMode-Idris-case--30275-904 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 0 "Failed to fdopen socket file descriptor") eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 arg-4) eta-0)))))))
(define REPL-IDEMode-Idris-n--31380-2101-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--31380-2099-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--31380-2100-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 ))))))
(define REPL-IDEMode-Idris-n--31756-2264-updateOutput (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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 (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)))))))))))
(define REPL-IDEMode-Idris-n--31380-2100-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31569-2153 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--31380-2099-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--31568-2105 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--31380-2088-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-n--31380-2073-holesSexp (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-sexpName 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-15 ((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-16 (File-System-fileError act-15 eta-0))) (let ((sc1 act-16)) (cond ((equal? sc1 0) (Prelude-pure_Applicative__IO 'erased (vector 0 "Failed to fdopen socket file descriptor") eta-0)) (else (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0)))))))))))
(define REPL-IDEMode-Idris-sexpName (lambda (arg-0) (vector 0 (vector 1 (vector 1 (Name-Core-show_Show__Name arg-0)) (vector 1 (vector 0 (vector 0 )) (vector 1 (vector 0 (vector 1 (vector 1 "?") (vector 1 (vector 0 (vector 0 )) (vector 0 )))) (vector 0 )))))))
(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-15 (arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 e-5)) ext-0))))))))
(define REPL-IDEMode-Idris-replIDE (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-15 (REPLOpts-Idris-getOutput arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 ((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-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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-15 (Context-Core-branch arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (let ((act-16 (IORef-Data-readIORef 'erased arg-1 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-17 (let ((act-17 (IORef-Data-readIORef 'erased arg-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc2 act-17)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-18 (let ((act-18 (IORef-Data-readIORef 'erased arg-4 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-18) ext-0)))) (let ((sc3 act-18)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-8 (vector-ref sc3 1))) (Core-Core-catch_Catchable__Core_Error 'erased (lambda (eta-0) (let ((act-19 ((REPL-IDEMode-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) eta-0))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-20 (Context-Core-commit arg-0 eta-0))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased e-9) eta-0))))))))))) (lambda (err) (lambda (eta-0) (let ((act-19 (let ((act-19 (IORef-Data-writeIORef 'erased arg-0 e-5 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-19) eta-0)))) (let ((sc4 act-19)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-20 (let ((act-20 (IORef-Data-writeIORef 'erased arg-1 e-6 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-20) eta-0)))) (let ((sc5 act-20)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-21 (let ((act-21 (IORef-Data-writeIORef 'erased arg-2 e-7 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-21) eta-0)))) (let ((sc6 act-21)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-22 (let ((act-22 (IORef-Data-writeIORef 'erased arg-4 e-8 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-22) eta-0)))) (let ((sc7 act-22)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((act-23 ((Error-Idris-perror arg-0 arg-2 err) eta-0))) (let ((sc8 act-23)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (let ((e-13 (vector-ref sc8 1))) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 1 e-13))) eta-0)))))))))))))))))))))))) 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) (REPL-IDEMode-Idris-replWrap (lambda (eta-1) (let ((act-15 ((REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 4 e-1)) eta-1))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-3 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-3) eta-1))) (else (let ((e-5 (vector-ref sc1 1))) (SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting arg-3 arg-4 e-1 e-5 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 1 (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 19 (vector 0 (Prelude-fromInteger_Num__Int e-42) (Prelude-fromInteger_Num__Int 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 19 (vector 1 1 (Prelude-fromInteger_Num__Int e-5) (Prelude-fromInteger_Num__Int 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 19 (vector 2 1 (Prelude-fromInteger_Num__Int e-8) (vector 1 e-9)))) eta-0))))) ((5) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "add-missing" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 22 (vector 0 (vector 0 ))))) eta-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 19 (vector 3 1 (Prelude-fromInteger_Num__Int 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 19 (vector 4 1 (Prelude-fromInteger_Num__Int 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 19 (vector 5 1 (Prelude-fromInteger_Num__Int 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 19 (vector 6 1 (Prelude-fromInteger_Num__Int 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 19 (vector 7 1 (Prelude-fromInteger_Num__Int e-22) (vector 1 e-23)))) eta-0))))) ((11) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "docs-for" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 (vector 0 )))) eta-0))))))) ((12) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "apropros" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 (vector 0 )))) eta-0))))))) ((14) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "who-calls" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))) ((15) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "calls-who" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))) ((16) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "browse-namespace" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))) ((17) (let ((e-30 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "normalise-term" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-30)) eta-0)))))))) ((18) (let ((e-31 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "show-term-implicits" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-31)) eta-0)))))))) ((19) (let ((e-32 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "hide-term-implicits" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 2 e-32)) eta-0)))))))) ((20) (let ((e-33 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "elaborate-term" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 3 e-33)) eta-0)))))))) ((21) (let ((e-34 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "print-definition" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 (vector 5 (vector 1 e-34 (vector 0 ))))) eta-0)))))))) ((22) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-todoCmd arg-4 "repl-completions" eta-0))) (let ((sc1 act-15)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) eta-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 1 (vector 0 ))) eta-0))))))) ((23) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 20 )) eta-0))) ((13) (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 18 )) eta-0))) (else (lambda (eta-0) (REPL-IDEMode-Idris-replWrap (REPL-Idris-process arg-0 arg-1 arg-2 arg-3 arg-4 (vector 12 )) 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-15 (REPLOpts-Idris-getOutput arg-4 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (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-16 (let ((act-16 (REPL-IDEMode-Idris-getInput e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-16) ext-0)))) (let ((sc2 act-16)) (case (vector-ref sc2 0) ((0) (let ((e-4 (vector-ref sc2 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (else (let ((e-6 (vector-ref sc2 1))) (let ((act-17 (let ((act-17 (File-System-fEOF e-2 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-17) ext-0)))) (let ((sc3 act-17)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-4) ext-0))) (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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) ext-0)) (else (let ((end 1)) ((REPL-IDEMode-Idris-case--31862-2391 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-15 (Socket-Network-socket (vector 2 ) (vector 1 ) 0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((act-16 (PrimIO-putStrLn (Prelude-show_Show__Int e-2) ext-0))) (let ((act-17 (PrimIO-putStrLn "Failed to open socket" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 (Socket-Network-bind e-5 (vector 1 (vector 2 arg-0)) arg-1 ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--30356-1005 arg-1 arg-0 e-5 osock act-16 (Prelude-C-47C-61_Eq__Int act-16 (Prelude-fromInteger_Num__Int 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) ((21) (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) (Prelude-pure_Applicative__IO 'erased (vector 0 ) eta-0)))(else (let ((e-0 (- arg-1 1))) (lambda (eta-0) (let ((act-15 (REPL-IDEMode-Idris-getChar arg-0 eta-0))) (let ((act-16 ((REPL-IDEMode-Idris-getNChars arg-0 e-0) eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15 act-16) eta-0))))))))))
(define REPL-IDEMode-Idris-getInput (lambda (arg-0 ext-0) (let ((act-15 ((REPL-IDEMode-Idris-getNChars arg-0 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) ext-0))) ((REPL-IDEMode-Idris-case--30716-1304 arg-0 act-15 (Hex-Utils-fromHexChars (List-Data-reverse 'erased act-15))) ext-0))))
(define REPL-IDEMode-Idris-getFLine (lambda (arg-0 ext-0) (let ((act-15 (File-System-fGetLine arg-0 ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased e-2 ext-0))) (else (let ((act-16 (PrimIO-putStrLn "Failed to read a line" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))))))
(define REPL-IDEMode-Idris-getChar (lambda (arg-0 ext-0) (let ((act-15 (File-System-fEOF arg-0 ext-0))) (let ((sc0 act-15)) (cond ((equal? sc0 0) (let ((act-16 (PrimIO-putStrLn "Alas the file is done, aborting" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))) (else (let ((act-16 (File-System-fGetChar arg-0 ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased e-2 ext-0))) (else (let ((act-17 (PrimIO-putStrLn "Failed to read a character" ext-0))) ((System-exitWith 'erased (vector 1 1 (vector 0 ))) ext-0))))))))))))
(define REPL-IDEMode-Idris-displayIDEResult (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 e-0)) (case (vector-ref sc1 0) ((1) (let ((e-4 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-4))) ((3) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (REPL-Idris-displayHelp)))) ((4) (let ((e-5 (vector-ref sc1 1))) (let ((e-6 (vector-ref sc1 2))) (let ((sc2 e-6)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-5)))) ((1) (let ((e-27 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-5) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-27)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))) ((5) (let ((e-7 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-7))))) ((6) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEResultWithHighlight arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-8) (Strings-Prelude-C-43C-43 " : " (Syntax-Idris-show_Show__PTerm e-9)))))))) ((7) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 )))) ((8) (let ((e-11 (vector-ref sc1 1))) (let ((e-12 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error loading file " (Strings-Prelude-C-43C-43 e-11 (Strings-Prelude-C-43C-43 ": " (File-System-show_Show__FileError e-12)))))))) ((9) (let ((e-13 (vector-ref sc1 1))) (let ((e-14 (vector-ref sc1 2))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 (Strings-Prelude-C-43C-43 "Error(s) building file " (Strings-Prelude-C-43C-43 e-13 (Strings-Prelude-C-43C-43 ": " (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Core-Core-show_Show__Error eta-0)) e-14))))))))) ((10) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "No file can be reloaded")) ((11) (let ((e-15 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Current working directory is '" (Strings-Prelude-C-43C-43 e-15 "'")))))) ((12) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 "Compilation failed")) ((13) (let ((e-16 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "File " (Strings-Prelude-C-43C-43 e-16 " written")))))) ((14) (let ((e-17 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Syntax-Idris-show_Show__PTerm e-17))))) ((15) (let ((e-18 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (REPL-Idris-handleMissing eta-0)) e-18)))))) ((16) (let ((e-19 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (lamc-0) (let ((sc2 lamc-0)) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-2) (Strings-Prelude-C-43C-43 " is " (TT-Core-show_Show__Totality e-3))))))) e-19)))))) ((17) (let ((e-20 (vector-ref sc1 1))) (let ((sc2 e-20)) (case (vector-ref sc2 0) ((0) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 0 (vector 0 ))))(else (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31380-2073-holesSexp e-20 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0))))))) ((19) (let ((e-21 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 "Set loglevel to " (Prelude-show_Show__Nat e-21)))))) ((18) (let ((e-22 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31380-2088-optionsSexp e-22 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((20) (let ((e-23 (vector-ref sc1 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (REPL-IDEMode-Idris-n--31380-2101-versionSExp e-23 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0)))) ((22) (let ((e-24 (vector-ref sc1 1))) (let ((sc2 e-24)) (case (vector-ref sc2 0) ((0) (let ((e-29 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" e-29))))) ((1) (let ((e-30 (vector-ref sc2 1))) (REPL-IDEMode-Idris-printIDEError arg-5 arg-6 e-30))) ((2) (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))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Strings-Prelude-C-43C-43 (Unlit-Parser-relit e-31 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-32) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (Syntax-Idris-show_Show__PTerm e-33) "\xa;")))) e-34))))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))(else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-0)))))))
(define Data-Socket-Network-case--2261-1846 (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--2261-1822-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0)))
(define Data-Socket-Network-n--2261-1823-toInt (lambda (arg-0 arg-1) (Prelude-fromInteger_Num__Int (Data-Socket-Network-n--2261-1822-toIntC-39 arg-0 arg-1))))
(define Data-Socket-Network-n--2261-1824-splitted (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Data-Socket-Network-n--2261-1823-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-2871) (lambda (arg-2872) (Prelude-C-60C-43C-62_Semigroup__String arg-2871 arg-2872))) (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--2261-1846 arg-0 (Data-Socket-Network-n--2261-1824-splitted arg-0))))
(define Data-Socket-Network-getSocketFamily (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-621) (lambda (arg-622) (Prelude-C-61C-61_Eq__Int arg-621 arg-622))) (lambda (arg-623) (lambda (arg-624) (Prelude-C-47C-61_Eq__Int arg-623 arg-624)))) arg-0 (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 0 )) (vector 0 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 1 )) (vector 1 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 2 )) (vector 2 )) (vector 1 (vector 0 (Data-Socket-Network-toCode_ToCode__SocketFamily (vector 3 )) (vector 3 )) (vector 0 ))))))))
(define Data-Socket-Network-getErrno (lambda (ext-0) (Data-Socket-Network-idrnet_errno ext-0)))
(define 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--2456-684 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (lambda (eta-0) (let ((act-15 (Raw-Socket-Network-getSockAddr arg-1 eta-0))) (let ((act-16 (Raw-Socket-Network-sockaddr_free arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 (vector 0 arg-2 e-1 e-2 e-3) act-15)) eta-0))))))))))
(define Socket-Network-case--2433-660 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 0 eta-1)) (lambda (eta-1) (Data-Socket-Network-getErrno eta-1)) eta-0))) (else (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (lambda (eta-0) (let ((act-15 (Raw-Socket-Network-getSockAddr arg-1 eta-0))) (let ((act-16 (Raw-Socket-Network-sockaddr_free arg-1 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 (vector 0 arg-2 e-1 e-2 e-3) act-15)) eta-0)))))))))))))
(define Socket-Network-case--2398-620 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (Data-Socket-Network-getErrno eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-fromInteger_Num__Int 0) eta-0)))))))
(define Socket-Network-case--2279-529 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Data-Socket-Network-getErrno eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-fromInteger_Num__Int 0) eta-0)))))))
(define Socket-Network-case--2197-443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-1) (vector 0 eta-1)) (lambda (eta-1) (Data-Socket-Network-getErrno eta-1)) eta-0))) (else (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 (vector 0 arg-3 arg-2 arg-1 arg-0)) eta-0)))))))
(define Socket-Network-n--2279-496-saString (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (Data-Socket-Network-show_Show__SocketAddress e-1))) (else "")))))
(define Socket-Network-socket (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (FFI-Network-idrnet_socket (Data-Socket-Network-toCode_ToCode__SocketFamily arg-0) (Data-Socket-Network-toCode_ToCode__SocketType arg-1) arg-2 ext-0))) ((Socket-Network-case--2197-443 arg-2 arg-1 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-negate_Neg__Int (Prelude-fromInteger_Num__Int 1)))) ext-0))))
(define Socket-Network-listen (lambda (arg-0 ext-0) (let ((act-15 (FFI-Network-socket_listen (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Data-Socket-Network-BACKLOG) ext-0))) ((Socket-Network-case--2398-620 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-negate_Neg__Int (Prelude-fromInteger_Num__Int 1)))) ext-0))))
(define Socket-Network-bind (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-15 (FFI-Network-idrnet_bind (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) (Data-Socket-Network-toCode_ToCode__SocketFamily (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))) (Data-Socket-Network-toCode_ToCode__SocketType (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) (Socket-Network-n--2279-496-saString arg-2 arg-1 arg-0 arg-1) arg-2 ext-0))) ((Socket-Network-case--2279-529 arg-2 arg-1 arg-0 act-15 (Prelude-C-61C-61_Eq__Int act-15 (Prelude-negate_Neg__Int (Prelude-fromInteger_Num__Int 1)))) ext-0))))
(define Socket-Network-accept (lambda (arg-0 ext-0) (let ((act-15 (FFI-Network-idrnet_create_sockaddr ext-0))) (let ((act-16 (FFI-Network-idrnet_accept (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0)) act-15 ext-0))) ((Socket-Network-case--2433-660 arg-0 act-15 act-16 (Prelude-C-61C-61_Eq__Int act-16 (Prelude-negate_Neg__Int (Prelude-fromInteger_Num__Int 1)))) ext-0)))))
(define Raw-Socket-Network-case--2166-468 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((2) (lambda (eta-0) (let ((act-15 (FFI-Network-idrnet_sockaddr_ipv4 arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (Data-Socket-Network-parseIPv4 act-15) eta-0)))) ((3) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 1 ) eta-0))) ((0) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (vector 3 ) eta-0)))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 2166(468) at Network/Socket/Raw.idr:63:1--75:1"))))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 2166(468) at Network/Socket/Raw.idr:63:1--75:1"))))))
(define Raw-Socket-Network-sockaddr_free (lambda (arg-0 ext-0) (FFI-Network-idrnet_free arg-0 ext-0)))
(define Raw-Socket-Network-getSockAddr (lambda (arg-0 ext-0) (let ((act-15 (FFI-Network-idrnet_sockaddr_family arg-0 ext-0))) ((Raw-Socket-Network-case--2166-468 arg-0 act-15 (Data-Socket-Network-getSocketFamily act-15)) ext-0))))
(define SyntaxHighlight-IDEMode-Idris-case--30726-12805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-0) ext-0)))
(define SyntaxHighlight-IDEMode-Idris-case--30493-12598 (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--30406-12493 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (lambda (eta-0) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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--30462-12533-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-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-5) (Prelude-fromInteger_Num__Integer 1))) (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-6) (Prelude-fromInteger_Num__Integer 1))) (vector 0 ))))) (vector 1 (vector 0 (vector 1 (vector 4 "end") (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-9) (Prelude-fromInteger_Num__Integer 1))) (vector 1 (vector 3 (Prelude-C-43_Num__Integer (Prelude-cast_Cast__Int_Integer e-10) (Prelude-fromInteger_Num__Integer 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-15 (let ((act-15 (IORef-Data-readIORef 'erased arg-0 ext-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) ext-0)))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) ((SyntaxHighlight-IDEMode-Idris-case--30406-12493 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-6 (vector-ref sc1 7))) e-6))) ext-0))))))))
(define SyntaxHighlight-IDEMode-Idris-outputSyntaxHighlighting (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-15 (Prelude-map_Functor__IO 'erased 'erased (lambda (eta-0) (Prelude-map_Functor__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (lambda (eta-1) (List-Data-filter 'erased (lambda (eta-2) (SyntaxHighlight-IDEMode-Idris-inFile arg-2 eta-2)) (let ((sc0 eta-1)) (let ((e-1 (vector-ref sc0 2))) e-1)))) eta-0)) (lambda (eta-0) (let ((act-15 (IORef-Data-readIORef 'erased arg-0 eta-0))) (Prelude-pure_Applicative__IO 'erased (vector 1 act-15) eta-0))) ext-0))) (let ((sc0 act-15)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-16 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (SyntaxHighlight-IDEMode-Idris-outputNameSyntax arg-1 eta-0)) e-5) ext-0))) (let ((sc1 act-16)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (Prelude-pure_Applicative__IO 'erased (vector 0 e-2) ext-0))) (else (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased arg-3) ext-0))))))))))))
(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) (Prelude-pure_Applicative__IO 'erased (Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 'erased 'erased (vector 0 )) eta-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-16333) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-16333)) (SyntaxHighlight-IDEMode-Idris-n--30462-12533-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--13248-15397 (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--13248-15373-notComment arg-0 eta-0)) e-2) (vector 1 (vector 0 e-6 e-10 (vector 12 )) (vector 0 )))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))(else (vector 0 e-3)))))))))
(define Parser-IDEMode-Idris-case--13250-15378 (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--13248-15373-notComment (lambda (arg-0 arg-1) (Parser-IDEMode-Idris-case--13250-15378 arg-0 arg-1 (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
(define Parser-IDEMode-Idris-symbols (lambda () (vector 1 "(" (vector 1 ":" (vector 1 ")" (vector 0 ))))))
(define Parser-IDEMode-Idris-sexp (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-15544) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "True")) (lambda () (lambda (_-15555) (Core-Parser-Text-pure 'erased 'erased (vector 2 0)))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-15532) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-exactIdent "False")) (lambda () (lambda (_-15568) (Core-Parser-Text-pure 'erased 'erased (vector 2 1)))))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (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)))))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-intLit)) (lambda () (lambda (i) (Core-Parser-Text-pure 'erased 'erased (vector 3 i))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased 0 (Prelude-C-38C-38 (Prelude-C-124C-124 0 (lambda () 0)) (lambda () (Prelude-C-124C-124 0 (lambda () 0)))) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-strLit)) (lambda () (lambda (str) (Core-Parser-Text-pure 'erased 'erased (vector 1 str))))) (lambda () (Core-Parser-Text-C-60C-124C-62 'erased 'erased (Prelude-C-124C-124 0 (lambda () 0)) (Prelude-C-124C-124 0 (lambda () 0)) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol ":")) (lambda () (lambda (_-15500) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-unqualifiedName)) (lambda () (lambda (x) (Core-Parser-Text-pure 'erased 'erased (vector 4 x)))))))) (lambda () (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 0) (Source-Rule-Parser-symbol "(")) (lambda () (lambda (_-15476) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 0) (Parser-Text-many 'erased 'erased (Parser-IDEMode-Idris-sexp))) (lambda (xs) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Source-Rule-Parser-symbol ")")) (lambda () (lambda (_-15600) (Core-Parser-Text-pure 'erased 'erased (vector 0 xs))))))))))))))))))))))
(define Parser-IDEMode-Idris-parseSExp (lambda (arg-0) (Parser-IDEMode-Idris-ideParser 'erased 0 arg-0 (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 0 1) (Parser-IDEMode-Idris-sexp)) (lambda () (lambda (c) (((Core-Parser-Text-C-62C-62C-61 'erased 'erased 'erased 1 1) (Source-Rule-Parser-eoi)) (lambda (_-15667) (Core-Parser-Text-pure 'erased 'erased c)))))))))
(define Parser-IDEMode-Idris-idelex (lambda (arg-0) (Parser-IDEMode-Idris-case--13248-15397 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")
(PrimIO-unsafePerformIO 'erased (lambda (eta-0) (Main-main eta-0))))